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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 #Xc~3rg9  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 $8s&=OW  
WrV|<%EQh  
宏贴出来如下： JO$0Z  
0 [s1!Cm!i  
|D\ ukml  
Sub main() wZ\0<skU  
Dim swApp                       As SldWorks.SldWorks E'C[+iK6,  
Set swApp = Application.SldWorks ."2V:;;  
Set Part = swApp.ActiveDoc 4#o` -vcW  
Dim myModelView As Object *]rV,\z:  
If Part Is Nothing Then !"wIb.j}0  
MsgBox "请先打开或者新建SolidWorks Part" zw0p}  
Exit Sub 54k Dez  
End If pG (8VteH  
Set myModelView = Part.ActiveView - na]P3 s  
myModelView.FrameState = swWindowState_e.swWindowMaximized )TxhJB5|  
V; ChrmE  
Dim sFileName As String (Fu9lW}n  
Dim fileConfig                  As String i}Y:o}  
Dim fileDispName                As String $HaM, Oh;i  
Dim fileOptions                 As Long ^Tl|v'   
Dim swSketchMgr                 As SldWorks.SketchManager @+xQj.jNC  
Dim swModel                     As SldWorks.ModelDoc2 v>,XJ7P  
Dim swSketchPt()                As SldWorks.SketchPoint qU}[(9~Ru  

>yaRz+  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) D=
3NI  
2JbCYCTC  
If sFileName = "" Then
\X(.%5xC  
    MsgBox "没有选择txt数据文件", , "运行宏" U+\\#5$  
    Exit Sub 9Gy1T3y5"  
End If rT
x]
%{  
oRCj]9I$  
Dim x, y, z As Double ,i'>+Ix<  
Dim s c+q4sNnE  
Dim n As Integer Baq&>]  
Open sFileName For Input As #1 w*aKb  
n = 0 YM5;mPR  
Do While Not EOF(1) NpSS/rd $  
         Line Input #1, s ]":PO4M$*  
         n = n + 1 1%>/%eyn5  
Loop rUlXx5f  
Close #1 H=*;3gM,'  
If n > 1024 Then iZ&CE5+  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" -(Yq$5Zc&  
    Exit Sub %/4ChKf!VR  
End If |A"zxNeS"  
ReDim swSketchPt(n) emTqbO  
Open sFileName For Input As #1 DRal{?CH  
Set swSketchMgr = Part.SketchManager ]c*&5c$  
    swSketchMgr.Insert3DSketch True *S7<QyVh  
    swSketchMgr.AddToDB = True UZqr6A(/H  
    n = 0 E<0Y;tR  
    Do While Not EOF(1) -_B*~M/vV`  
         Input #1, x oB+drDp8U  
         If EOF(1) Then e~xN[Q\0]  
         Exit Sub w?Y;pc}1B  
         End If L_Z>*s&  
         Input #1, y 3b~k)t4R  
         If EOF(1) Then WSUU_^.  
         Exit Sub ?3[as<GZ8  
         End If (V#5Cs,o:  
         Input #1, z ?m0|>[j  
         n = n + 1 [$$i1%c%Z<  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) \Gg6&:Ua  
    Loop ).5$c0`U&  
Close #1 Re-4y5f  
End Sub

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