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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 @\?QZX(H  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 d+L!s7  

Ch0t'  
宏贴出来如下： +6;1.5Tc  
B4RP~^  
J5#shs[M:  
Sub main() D=_FrEM_IA  
Dim swApp                       As SldWorks.SldWorks ,xOOR   
Set swApp = Application.SldWorks >mCS`D8  
Set Part = swApp.ActiveDoc LEJn 1  
Dim myModelView As Object nJr:U2d  
If Part Is Nothing Then 
V6a+VfH  
MsgBox "请先打开或者新建SolidWorks Part" ;0JK>c ]#  
Exit Sub %^LwLyoVM  
End If 9~|hGo  
Set myModelView = Part.ActiveView uD8,E!\  
myModelView.FrameState = swWindowState_e.swWindowMaximized EF5:$#  
Bxf]Lu,\U@  
Dim sFileName As String c W^  
Dim fileConfig                  As String ykBq
?Vr  
Dim fileDispName                As String )mh,F#"L  
Dim fileOptions                 As Long ATkx_1]KM-  
Dim swSketchMgr                 As SldWorks.SketchManager q6AL}9]9  
Dim swModel                     As SldWorks.ModelDoc2 )ad
6>Y  
Dim swSketchPt()                As SldWorks.SketchPoint 17) `CM$<[  
8=DZ;]XD.  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) mNdEn<W  
$(N+E,XB  
If sFileName = "" Then `S:LuU8e  
    MsgBox "没有选择txt数据文件", , "运行宏"  .H7xG'$  
    Exit Sub %O02xr=  
End If hNUka
P  
up )JU [  
Dim x, y, z As Double )^[PW&=W|x  
Dim s aC,?FWm  
Dim n As Integer ~(Xzm  
Open sFileName For Input As #1 Wo,"$Z6B  
n = 0 K<~J*k<v  
Do While Not EOF(1) 4Tn97G7  
         Line Input #1, s BQF7S<O
+  
         n = n + 1 =BVBCh  
Loop [`_-;/Gx2  
Close #1 6[S-%|f  
If n > 1024 Then Og/@w&  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" y8/+kn +  
    Exit Sub Q/y"W,H#  
End If 54>gr1B  
ReDim swSketchPt(n) :Lh`Q"a  
Open sFileName For Input As #1 nf)y_5y  
Set swSketchMgr = Part.SketchManager "Wn8}T*  
    swSketchMgr.Insert3DSketch True .e1Yd8  
    swSketchMgr.AddToDB = True `HV~.C  
    n = 0 9Pjw<xt  
    Do While Not EOF(1) XyrQJ}WR|  
         Input #1, x CoTe$C7  
         If EOF(1) Then w+G+&ak<  
         Exit Sub NsUP0B}.  
         End If U "kD)\  
         Input #1, y #J|DW C!#d  
         If EOF(1) Then {qbxiL-  
         Exit Sub "e@?^J)  
         End If 0o_wy1O1,  
         Input #1, z :~4M9  
         n = n + 1 -E,p[Sp  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) apw/nhQ.[  
    Loop 4elA<<  
Close #1 r"_SL!,^  
End Sub

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