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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 uv$t>_^  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 ;[}<xw3):  
eO?.8OM-a  
宏贴出来如下： *4<Kz{NF  
JDA:)[;  
`3KXWN`.s  
Sub main() qh<h|C]V  
Dim swApp                       As SldWorks.SldWorks %/r}_V(UN  
Set swApp = Application.SldWorks '.8E_Jd0E  
Set Part = swApp.ActiveDoc KNZN2N)wR  
Dim myModelView As Object O?I~XM'S  
If Part Is Nothing Then 4gRt^T-?  
MsgBox "请先打开或者新建SolidWorks Part" Mc#w:UH[  
Exit Sub (&y~\t]H  
End If Oi~]~+2  
Set myModelView = Part.ActiveView ;#F7Fp*U  
myModelView.FrameState = swWindowState_e.swWindowMaximized X\dPQwasM  
5`?'}_[Yj  
Dim sFileName As String Aa#WhF  
Dim fileConfig                  As String W@(EEMhw  
Dim fileDispName                As String I8RPW:B;B  
Dim fileOptions                 As Long 5u=(zg  
Dim swSketchMgr                 As SldWorks.SketchManager 'Lb-+X,  
Dim swModel                     As SldWorks.ModelDoc2 E"|LA[o  
Dim swSketchPt()                As SldWorks.SketchPoint /y.+N`_  
7Y>17=|  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) <,S5(pZ  
l(CMP!mY  
If sFileName = "" Then 9]DMHA@  
    MsgBox "没有选择txt数据文件", , "运行宏" hCcAAF*I;5  
    Exit Sub D$wl.r  
End If :@H&v%h(u  
.*bu:FuDE  
Dim x, y, z As Double @D3Y}nR:  
Dim s xpb,Nzwt^  
Dim n As Integer }{(dG7G+  
Open sFileName For Input As #1 -/O_wqm#  
n = 0 *b@YoQe3!  
Do While Not EOF(1) YgN:$+g5  
         Line Input #1, s {M.OOEcIp  
         n = n + 1 !((J-:=  
Loop +mgmC_Q(0  
Close #1 jM'kY|<g;  
If n > 1024 Then P!apAr  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" *h `P+_Q7  
    Exit Sub {H5a.+-(bE  
End If tlnU2TT_f  
ReDim swSketchPt(n) :'pLuN  
Open sFileName For Input As #1 b,8\i|*!f  
Set swSketchMgr = Part.SketchManager ~rN:4Q]/  
    swSketchMgr.Insert3DSketch True hPP,D\#  
    swSketchMgr.AddToDB = True !FqJP OGm  
    n = 0 XmK2Xi;=b  
    Do While Not EOF(1) 5a PPq~%  
         Input #1, x b3Uw"{p  
         If EOF(1) Then {-T}"WHg7  
         Exit Sub _shoh  
         End If S{qc1qj  
         Input #1, y 4NY}=e5  
         If EOF(1) Then |\lsTY&2  
         Exit Sub 8)wxc1  
         End If @]rl2Qqe  
         Input #1, z *K<|E15 ,  
         n = n + 1 0Q]ZS  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) T;f`ND2fY  
    Loop Fbpe`pS+V  
Close #1 xE2sb*  
End Sub

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