[求助]求大大修改一个sw在一个文件夹中批量导入txt并生成xyz曲线的宏 [复制链接]

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 r "uQ|
 
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 vrq5 +K&||  
roM!%hb  
宏贴出来如下： or qL0i  
XVfw0-O  
B{tROuN<  
Sub main() :\F1S:&P  
Dim swApp                       As SldWorks.SldWorks 7R7e3p,K  
Set swApp = Application.SldWorks ?#~km0~F)  
Set Part = swApp.ActiveDoc 7!g"q\s  
Dim myModelView As Object -T=sY/O  
If Part Is Nothing Then [pxC3{|d$  
MsgBox "请先打开或者新建SolidWorks Part" wx*03(|j;  
Exit Sub 34F;mr"yp  
End If SVn $!t  
Set myModelView = Part.ActiveView ],-(YPiAD  
myModelView.FrameState = swWindowState_e.swWindowMaximized i4}+n^oSYo  
)]tf|Mbu  
Dim sFileName As String A}4 ",  
Dim fileConfig                  As String 4DgH/Yo  
Dim fileDispName                As String {\vcwMUzZ  
Dim fileOptions                 As Long POI|#[-V  
Dim swSketchMgr                 As SldWorks.SketchManager 
z 4qEC  
Dim swModel                     As SldWorks.ModelDoc2 m*'hHt n  
Dim swSketchPt()                As SldWorks.SketchPoint 3}2;*:p4Y  
_$KEE|9  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) qM18Ji*  
[NoOA  
If sFileName = "" Then Oy_%U*  
    MsgBox "没有选择txt数据文件", , "运行宏" =p2: qSV  
    Exit Sub 1]a\uq}  
End If P%a
NbMg  
:/R>0n,  
Dim x, y, z As Double tGJJ|mle>  
Dim s VDFs
.;:s  
Dim n As Integer <Rfx`mn  
Open sFileName For Input As #1 (L*<CV  
n = 0 #.
{ddY{  
Do While Not EOF(1) }R!t/8K  
         Line Input #1, s @|:yK|6O  
         n = n + 1 "&C>=  
Loop $It3}?>C'  
Close #1 Vg(FF"  
If n > 1024 Then n0QHrIf{  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" #T=e p0  
    Exit Sub y!c<P,Lt3f  
End If fTt\
@"V  
ReDim swSketchPt(n) A|(!\J0  
Open sFileName For Input As #1 1i&|}"  
Set swSketchMgr = Part.SketchManager 'Q"Mu  
    swSketchMgr.Insert3DSketch True GuC 9h^[=M  
    swSketchMgr.AddToDB = True pQi|PQq  
    n = 0 ${e5Ka  
    Do While Not EOF(1) wb>"'%  
         Input #1, x E9\u^"GVO  
         If EOF(1) Then :JU$6  
         Exit Sub 2^%O%Pc  
         End If >Cam6LJ  
         Input #1, y
,3 [FD9  
         If EOF(1) Then WmOu#5*;  
         Exit Sub i9|}-5ED  
         End If 3hVuC1;"  
         Input #1, z 0oe2X1.%  
         n = n + 1 vdh[%T,&  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) gZBb/<  
    Loop 1)3'Y2N*  
Close #1 vVZ+u4y  
End Sub

有木有大神出来冒个泡~~