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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 _8F;-7Sz  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 S#HeOPRL  
Q-#<{' (  
宏贴出来如下： J7aYi]vI  
%g89eaEZ  
7N@[Rtv  
Sub main() {D :WXvI  
Dim swApp                       As SldWorks.SldWorks kdx06'4o  
Set swApp = Application.SldWorks `kv7Rr}Q  
Set Part = swApp.ActiveDoc l{ql'm  
Dim myModelView As Object 05\0g9  
If Part Is Nothing Then C!9m
ygI  
MsgBox "请先打开或者新建SolidWorks Part" b`j9}tZ  
Exit Sub r$'.$k\  
End If }LQV2 hKTG  
Set myModelView = Part.ActiveView !$ii*}  
myModelView.FrameState = swWindowState_e.swWindowMaximized @,;h!vB*=  
WS(m#WFQr  
Dim sFileName As String + @|u8+  
Dim fileConfig                  As String Ruq>+ }4  
Dim fileDispName                As String +ZiYl[_|  
Dim fileOptions                 As Long Soe2Gq  
Dim swSketchMgr                 As SldWorks.SketchManager v6Y[_1  
Dim swModel                     As SldWorks.ModelDoc2 2_o\Wor#  
Dim swSketchPt()                As SldWorks.SketchPoint wgolgof  
<Kr`R+Q$DN  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) br 3-.g  
v@8SMOe%  
If sFileName = "" Then E_[a|N"D  
    MsgBox "没有选择txt数据文件", , "运行宏" /-m)  
    Exit Sub M"{*))O\-c  
End If @JLN3  
Tz.okCo]z  
Dim x, y, z As Double #f_'&m  
Dim s "oFi+']*  
Dim n As Integer c=bK_Z_  
Open sFileName For Input As #1 +Zr~mwM=x  
n = 0 w^ofH-R/  
Do While Not EOF(1) 4}cxSl]jf!  
         Line Input #1, s _s5FYb#  
         n = n + 1 $UK m[:7  
Loop 7r)]9_[(  
Close #1 p1i}fGS  
If n > 1024 Then ^;( dF<?'r  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" K"5q387!  
    Exit Sub %21|-B  
End If kq?:<!z  
ReDim swSketchPt(n) i^Jw`eAmT  
Open sFileName For Input As #1 TgDT  
Set swSketchMgr = Part.SketchManager M6qNh`+HO
 
    swSketchMgr.Insert3DSketch True Mw-L?j0o[k  
    swSketchMgr.AddToDB = True .]zZwB  
    n = 0 7t}s5}Z 4  
    Do While Not EOF(1) wL>*WLfR  
         Input #1, x B"#pvJN  
         If EOF(1) Then ,)J>8eV  
         Exit Sub iyr8*L\  
         End If )K$xu(/K  
         Input #1, y _dCDT$^&r  
         If EOF(1) Then 77aUuP7Iw  
         Exit Sub .V0fbHYTJ  
         End If XkoPN]0n  
         Input #1, z Bz>f  
         n = n + 1 _LfbEv<,T  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) AW|SD  
    Loop 'Z9UqEGV  
Close #1 r2i]9>w  
End Sub

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