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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 fqFE GyeNr  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 Tld%NE  
xgnt)&7T  
宏贴出来如下： (/tbe@<  
uFL~^vz  
*A;~~SQ  
Sub main() >jRz4%  
Dim swApp                       As SldWorks.SldWorks b78'yM&  
Set swApp = Application.SldWorks \0'o*nlJ  
Set Part = swApp.ActiveDoc T6%*t#8r  
Dim myModelView As Object q2Ax-#  
If Part Is Nothing Then N-4LdC  
MsgBox "请先打开或者新建SolidWorks Part"  lrU}_`  
Exit Sub UYD(++  
End If 0:Yz'k5  
Set myModelView = Part.ActiveView =-1d m+P  
myModelView.FrameState = swWindowState_e.swWindowMaximized <s)+V6\E  
M E4MZt:>  
Dim sFileName As String Cd"O'<^Sb  
Dim fileConfig                  As String l7 j3;Ly  
Dim fileDispName                As String _{TGO jZr  
Dim fileOptions                 As Long rhHX0+  
Dim swSketchMgr                 As SldWorks.SketchManager q --NLm@;  
Dim swModel                     As SldWorks.ModelDoc2 2.Th
29]  
Dim swSketchPt()                As SldWorks.SketchPoint srw5&s(3X  
7Ha +@  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) "ALR)s,1,  
#Kn=Q  
If sFileName = "" Then n*{e0,gp`  
    MsgBox "没有选择txt数据文件", , "运行宏" v|<Dc8i+  
    Exit Sub 0bzD-K4WVd  
End If .3 m^yo c/  
@;"HslU\Q  
Dim x, y, z As Double $ThkK3  
Dim s 90Jxn'>^  
Dim n As Integer 0<Vw0%!  
Open sFileName For Input As #1 My&h{Qk  
n = 0 r8pTtf#Q  
Do While Not EOF(1) *ukE"Aj  
         Line Input #1, s :%{MMhbx  
         n = n + 1 ?r"m*fY
%  
Loop 6,ylkf3  
Close #1 %19TJn%J$  
If n > 1024 Then #(?EL@5  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" j$4Tot  
    Exit Sub .zAB)rNc |  
End If .fk!~8b[Q+  
ReDim swSketchPt(n) 3&/5!zOg)  
Open sFileName For Input As #1 <2HI. @^  
Set swSketchMgr = Part.SketchManager G sm5L<rx  
    swSketchMgr.Insert3DSketch True C6Ap  4  
    swSketchMgr.AddToDB = True o;7!$v>uK  
    n = 0 RM|<(kq  
    Do While Not EOF(1) wv #1s3  
         Input #1, x !rlN|HB  
         If EOF(1) Then CD:@OI  
         Exit Sub Y4YA1F  
         End If P#Z$+&)b)s  
         Input #1, y 22a$//}E  
         If EOF(1) Then 9?:SxI;v  
         Exit Sub }b~;x6  
         End If 5 S$*YRp  
         Input #1, z n9B1NM5 \  
         n = n + 1 D"oyl`q  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) fT!n*;h  
    Loop osB[KRT>("  
Close #1 M\
BLuD  
End Sub

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