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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 UDGVq S!,E  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 0(HUy`]>  
'BtvT[KM  
宏贴出来如下： SmC91XO  
+.gZILw  
i.6c;KU  
Sub main() 1XL^Zhr  
Dim swApp                       As SldWorks.SldWorks N9idk}T  
Set swApp = Application.SldWorks iCa#OQ  
Set Part = swApp.ActiveDoc 05$CIS>!  
Dim myModelView As Object X`#vH8  
If Part Is Nothing Then qN[U|3k  
MsgBox "请先打开或者新建SolidWorks Part" !-p5j3A4L  
Exit Sub eY;XF.mF  
End If wNq#vn  
Set myModelView = Part.ActiveView ;MR8E9  
myModelView.FrameState = swWindowState_e.swWindowMaximized <Zn]L:  
l*":WzRGvF  
Dim sFileName As String ~"#qG6dP  
Dim fileConfig                  As String lE'2\kxI?  
Dim fileDispName                As String ^#KkO3  
Dim fileOptions                 As Long 6 -N 442  
Dim swSketchMgr                 As SldWorks.SketchManager &M&*3  
Dim swModel                     As SldWorks.ModelDoc2 cY0NQKUk~  
Dim swSketchPt()                As SldWorks.SketchPoint \0). ODA(  
ACctyGd  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ~5q1zr)E  
WBK6U
g  
If sFileName = "" Then <
Y:{>=  
    MsgBox "没有选择txt数据文件", , "运行宏" P XKEqcQR  
    Exit Sub ~l+2Z4nV  
End If _ VKBzOH  
Uc^eIa@  
Dim x, y, z As Double A+de;&  
Dim s g]vo."}5E  
Dim n As Integer Je5}Z.3m  
Open sFileName For Input As #1 GRM6H|.
  
n = 0 m}hEi  
Do While Not EOF(1) OD]`oJ|  
         Line Input #1, s < KGq  
         n = n + 1 +saXN6  
Loop G5vp(%j  
Close #1 ct`j7[  
If n > 1024 Then r2yJ{j&s  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" n+MWny  
    Exit Sub 4Oo{\&(  
End If !mHMFwvS  
ReDim swSketchPt(n) 4a}[&zm(5  
Open sFileName For Input As #1 )Fon;/p  
Set swSketchMgr = Part.SketchManager ,.9k)\/V  
    swSketchMgr.Insert3DSketch True s|IY t^  
    swSketchMgr.AddToDB = True lg"aB  
    n = 0 _NefzZWUJ  
    Do While Not EOF(1) hh8Gr
l;  
         Input #1, x ];xDXQd  
         If EOF(1) Then P q0%oz  
         Exit Sub P9`R~HO'`  
         End If 4>A|2+K\  
         Input #1, y xt_:R~/[  
         If EOF(1) Then V6Mt;e)C  
         Exit Sub y+3+iT@i  
         End If % IHIXncv[  
         Input #1, z =
PU($  
         n = n + 1 J2<kOXXJ9  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) !iO2yp  
    Loop DA1?M'N  
Close #1 sYjhQN=Y*  
End Sub

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