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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 q/EX`%U  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 @xWWN  
<_YdN)x  
宏贴出来如下： 1Wpu  
Tbi?AJa}  
qp})4XTv  
Sub main() \CjJa(vV  
Dim swApp                       As SldWorks.SldWorks )'+[,z ;s  
Set swApp = Application.SldWorks pP| @Z{7d`  
Set Part = swApp.ActiveDoc R-Edht|{  
Dim myModelView As Object .LDZqWr-  
If Part Is Nothing Then iB)\*)  
MsgBox "请先打开或者新建SolidWorks Part" *tqD:hiF  
Exit Sub rCPIz<  
End If qO>UN[Y  
Set myModelView = Part.ActiveView :nIMZRJ_!E  
myModelView.FrameState = swWindowState_e.swWindowMaximized xuXPVJdi  
5A0]+)5E8  
Dim sFileName As String KhR3$|fH<  
Dim fileConfig                  As String clvg5{^q[  
Dim fileDispName                As String Qt.*Z;Gs  
Dim fileOptions                 As Long dmF=8nff  
Dim swSketchMgr                 As SldWorks.SketchManager +f/ I>9G  
Dim swModel                     As SldWorks.ModelDoc2 EH844k8 p  
Dim swSketchPt()                As SldWorks.SketchPoint apL$`{>US  
~0PzRS^o  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) v'hc-Q9+>  
K#OL/2^ 5  
If sFileName = "" Then ~@'wqGTp  
    MsgBox "没有选择txt数据文件", , "运行宏" yj:@Fg-3g  
    Exit Sub i@rt
t M  
End If
2y`h'z  
S^%3Vf}  
Dim x, y, z As Double D6VdgU|  
Dim s ljbAfd  
Dim n As Integer $mJv\;t  
Open sFileName For Input As #1 Ze0qRLuH!  
n = 0 m,HE4`g  
Do While Not EOF(1) -Lq+FTezE  
         Line Input #1, s -64lf-<  
         n = n + 1 (.#nl}fA  
Loop c6:uM1V{  
Close #1 yY#h1  
If n > 1024 Then tX^6R  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" B#g~c<4<  
    Exit Sub og";mC  
End If 6_`Bo%  
ReDim swSketchPt(n) FJ0I&FyWs  
Open sFileName For Input As #1 Q/|.=:~FO  
Set swSketchMgr = Part.SketchManager (2b${Q@V  
    swSketchMgr.Insert3DSketch True -E}X`?WhD  
    swSketchMgr.AddToDB = True B{/og*xd*1  
    n = 0 )c11_1;  
    Do While Not EOF(1) Zn9u&!T&  
         Input #1, x GQ1/pys  
         If EOF(1) Then b+~_/;Y9  
         Exit Sub T<*)Cdid  
         End If  xL15uWk-  
         Input #1, y vEI{AmogRx  
         If EOF(1) Then Fip 5vrD  
         Exit Sub fTj@/"a  
         End If znrO~OK  
         Input #1, z WWpMuB_G  
         n = n + 1 xb\EJ1M>  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) N}#Rw2Vl  
    Loop LuySa2,  
Close #1 =dQ[I6  
End Sub

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