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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 9Pb0Olh  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 R\+$^G}#6  
[w4
z)!  
宏贴出来如下： i'EXylb  
JqZ%*^O  
]CL70+[^9  
Sub main() Kc{wv/6}T  
Dim swApp                       As SldWorks.SldWorks o4Ba l^=[  
Set swApp = Application.SldWorks k<f*ns  
Set Part = swApp.ActiveDoc ,,iQG' *  
Dim myModelView As Object yi%B5KF~Al  
If Part Is Nothing Then )t.q[O`  
MsgBox "请先打开或者新建SolidWorks Part" >3Y&jsh<  
Exit Sub Z2@&4_P  
End If BW*zj=N%  
Set myModelView = Part.ActiveView >%[W2L\'  
myModelView.FrameState = swWindowState_e.swWindowMaximized IWQ8e$N  
x-W0 h  
Dim sFileName As String FJ[(dGKeE  
Dim fileConfig                  As String M>^IQ  
Dim fileDispName                As String lubS{3<  
Dim fileOptions                 As Long '\;tmD"N5#  
Dim swSketchMgr                 As SldWorks.SketchManager  6$Dbeb  
Dim swModel                     As SldWorks.ModelDoc2 $H9xM  
Dim swSketchPt()                As SldWorks.SketchPoint ~lL($rE  
Av[jF
k  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) /za,&7sf  
s6 ^JgdW  
If sFileName = "" Then K4tX4U[Z  
    MsgBox "没有选择txt数据文件", , "运行宏" r9U1O@c  
    Exit Sub RU'J!-w{  
End If I[|I\tW  
%SE
g(<  
Dim x, y, z As Double Ea !j-Lbo  
Dim s - t+Mh.  
Dim n As Integer 5-J-Tn  
Open sFileName For Input As #1 {J]|mxo  
n = 0 Nf~<xK  
Do While Not EOF(1)  e?7paJ  
         Line Input #1, s "&ks83  
         n = n + 1 E0|aI4S4  
Loop BCj&z{5"7e  
Close #1 (1o^Dn3  
If n > 1024 Then ;Cy@TzO/|  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" )>/c/B  
    Exit Sub v3NaX.  
End If hG67%T'}A  
ReDim swSketchPt(n) tX_eN  
Open sFileName For Input As #1 eOb`uyi  
Set swSketchMgr = Part.SketchManager o6r4tpiR5  
    swSketchMgr.Insert3DSketch True BAhC-;B#R  
    swSketchMgr.AddToDB = True t&xx-4  
    n = 0 f.= E
.%  
    Do While Not EOF(1) 40<&0nn  
         Input #1, x |);>wV"  
         If EOF(1) Then = `^jz}  
         Exit Sub sHF vzE%  
         End If !2Orklzd1  
         Input #1, y kpdFb7>|  
         If EOF(1) Then {G}HZv%S U  
         Exit Sub |^F-.
Z  
         End If Y!L jy [/  
         Input #1, z =%3nKSg  
         n = n + 1 _x!pMj(A  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) 5-OvPTY`M  
    Loop
 W6~=?C  
Close #1 d}ZHY[  
End Sub

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