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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 #Mkwd5S|L  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 |WqEJ*$,  
5 0uYU[W  
宏贴出来如下： +[Cdd{2  
~47Bbom  
(C>FM8$J  
Sub main() Y /$`vgqs  
Dim swApp                       As SldWorks.SldWorks 78zjC6}`  
Set swApp = Application.SldWorks 3omFd#EP  
Set Part = swApp.ActiveDoc J/X{ Y2f  
Dim myModelView As Object W/q-^Zkt,9  
If Part Is Nothing Then pESlBQ7{I  
MsgBox "请先打开或者新建SolidWorks Part" ywW
F+kR_  
Exit Sub INtt0Cm9"  
End If Yt*2/jw^  
Set myModelView = Part.ActiveView K(@QKRZ7[  
myModelView.FrameState = swWindowState_e.swWindowMaximized XJ,P8nx  
BB@I|)9O(  
Dim sFileName As String (WZKqt)S"o  
Dim fileConfig                  As String `]%\Y>(a}  
Dim fileDispName                As String ^wNx5t  
Dim fileOptions                 As Long :ZG^`H/X1d  
Dim swSketchMgr                 As SldWorks.SketchManager k]?M^jrm  
Dim swModel                     As SldWorks.ModelDoc2 A`_(L|~  
Dim swSketchPt()                As SldWorks.SketchPoint ^PA[fL"  
\9k$pC+l  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) DID&fj9m  
8fA9yQ8  
If sFileName = "" Then &Uq++f6  
    MsgBox "没有选择txt数据文件", , "运行宏" t9T3e  
    Exit Sub ;Yo9e~  
End If WvSh i=  
5(e?,B }  
Dim x, y, z As Double Z)}q=NjA  
Dim s Xvu|ss  
Dim n As Integer 5dOA^P@`,M  
Open sFileName For Input As #1 'D#iT}Vu  
n = 0 0s)B~  
Do While Not EOF(1) YF/@]6j  
         Line Input #1, s *I,3,zO  
         n = n + 1 oEPO0O  
Loop ^@f%A<  
Close #1 Zkl:^!*  
If n > 1024 Then `.>5H\w0e  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏"
`s74g0h  
    Exit Sub l*
]9   
End If E><!Owxt/  
ReDim swSketchPt(n) 3&i8C,u]/O  
Open sFileName For Input As #1 2_Me 4  
Set swSketchMgr = Part.SketchManager 8qwc]f$.w  
    swSketchMgr.Insert3DSketch True r"#h6lYK&  
    swSketchMgr.AddToDB = True Cr0 \7  
    n = 0 XgY( Vv
  
    Do While Not EOF(1) Q)N$h07R  
         Input #1, x +
SCUS]  
         If EOF(1) Then [XFZ2'OO  
         Exit Sub 86d*  
         End If BOqq=WY  
         Input #1, y mtDRF'>P:  
         If EOF(1) Then KI(9TI*  
         Exit Sub V+M2
Gf  
         End If ~:7AHK2  
         Input #1, z *]G&pmMs  
         n = n + 1 ]:TX> X!  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) 3$f%{
~3  
    Loop 
5wX
e^G  
Close #1 ,Ie~zZE&  
End Sub

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