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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 \pTv;(  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 7~'%ThUb$-  
m\bmBK"I  
宏贴出来如下： 7Kb&BF|Q  
;OD-?bC  
8G|?R#&  
Sub main() TXS`ey  
Dim swApp                       As SldWorks.SldWorks 8Gy*BpmJn  
Set swApp = Application.SldWorks }d iE'  
Set Part = swApp.ActiveDoc 0Zo><=  
Dim myModelView As Object s{V&vRr  
If Part Is Nothing Then .;.Zbhm  
MsgBox "请先打开或者新建SolidWorks Part" ^Jdg%U?  
Exit Sub \u(Gj]B#"  
End If oIIi_yc  
Set myModelView = Part.ActiveView `T ^0&#  
myModelView.FrameState = swWindowState_e.swWindowMaximized Gm=&[?}  
ggYi7Wzsd  
Dim sFileName As String |TkicgeS  
Dim fileConfig                  As String ?hR0 MnP  
Dim fileDispName                As String b9 li  
Dim fileOptions                 As Long @H(7Mt  
Dim swSketchMgr                 As SldWorks.SketchManager 99,=dzm  
Dim swModel                     As SldWorks.ModelDoc2 Aw4)=-LKO  
Dim swSketchPt()                As SldWorks.SketchPoint C=U4z|Ym  
X}
C8!LA  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) HU4h.Lm  
4gdXO  
If sFileName = "" Then l[m*csDk"  
    MsgBox "没有选择txt数据文件", , "运行宏" px+]/P<dX  
    Exit Sub :eB+t`M  
End If O&~ @ior  
nU\.`.39 +  
Dim x, y, z As Double B9cWxe4R#  
Dim s
*ezft&{)`  
Dim n As Integer T?=]&9Y'  
Open sFileName For Input As #1 -49I3&  
n = 0 qD=b+\F  
Do While Not EOF(1) k]RQ 7e  
         Line Input #1, s ba ,n/y
H  
         n = n + 1 ]W~M?1}  
Loop H_Sv,lwz;c  
Close #1 e7&RZ+s#wZ  
If n > 1024 Then EGFPv'De  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" )"M;7W?R0  
    Exit Sub {Dy,|}7s  
End If ;:J"- p  
ReDim swSketchPt(n) oY,{9H37b  
Open sFileName For Input As #1 OPqhdqo  
Set swSketchMgr = Part.SketchManager ",,.xLI7  
    swSketchMgr.Insert3DSketch True Z.unCf3Q  
    swSketchMgr.AddToDB = True erTly2-SJ  
    n = 0 p<l+js(5|  
    Do While Not EOF(1) d.B<1"MQ  
         Input #1, x 
dXsL0r*c  
         If EOF(1) Then T%Zfo7  
         Exit Sub oblw!)  
         End If jO*H8XO  
         Input #1, y ?>vkY^/  
         If EOF(1) Then wq1s#ag<  
         Exit Sub 8. +f@wv  
         End If ymqn1ja1  
         Input #1, z "@5{=  
         n = n + 1 <pS#wTsN4%  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) F*Yx1vj  
    Loop hg'eSU$J  
Close #1 r8czDc),b  
End Sub

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