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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 $xu2ZBK  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 c&D+=   
!.R-|<2|6  
宏贴出来如下： A[P7hMn  
_c]}m3/  
f}c;s  
Sub main() A+/Lt>+AS  
Dim swApp                       As SldWorks.SldWorks Z_ElLY  
Set swApp = Application.SldWorks  V FM[-  
Set Part = swApp.ActiveDoc s.z)l$  
Dim myModelView As Object +C=vuR  
If Part Is Nothing Then N<#J!0w  
MsgBox "请先打开或者新建SolidWorks Part" ei2?H;H;  
Exit Sub O!Ue0\1Kj0  
End If r,eH7&P9{  
Set myModelView = Part.ActiveView v=^^Mr"Z^  
myModelView.FrameState = swWindowState_e.swWindowMaximized rbf5~sw&8+  
!KV!Tkx h  
Dim sFileName As String R5sEQ| E  
Dim fileConfig                  As String puOMtCI  
Dim fileDispName                As String #|\|G3Si %  
Dim fileOptions                 As Long 0+0Y$;<  
Dim swSketchMgr                 As SldWorks.SketchManager Z{3=.z{&^=  
Dim swModel                     As SldWorks.ModelDoc2  WDNj7  
Dim swSketchPt()                As SldWorks.SketchPoint ,vR>hy
M  
}5EH67  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) o=VZ7]  
ZZi9<g1  
If sFileName = "" Then IlEU6Rs  
    MsgBox "没有选择txt数据文件", , "运行宏" "4XjABJ4'  
    Exit Sub qRT5|\l  
End If uJ"#j X  
X>dQK4!R  
Dim x, y, z As Double 8Ogg(uS70'  
Dim s PR;Bxy  
Dim n As Integer +46& Zb35  
Open sFileName For Input As #1 DI{Qs[  
n = 0 V^(W)\  
Do While Not EOF(1) ^cdbM
 
         Line Input #1, s O-AC$C[d  
         n = n + 1  ^Oj^7.T+  
Loop L `2{H%J`  
Close #1 d3oRan}z  
If n > 1024 Then xfUV'=~(  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" r 8N<<^  
    Exit Sub x+sSmW  
End If NrcV%-+u%  
ReDim swSketchPt(n) = CXX.%N  
Open sFileName For Input As #1 :t;\`gQoS  
Set swSketchMgr = Part.SketchManager }2=~7&)  
    swSketchMgr.Insert3DSketch True =)#XZ[#F  
    swSketchMgr.AddToDB = True kH06Cb  
    n = 0 j;Z hI y  
    Do While Not EOF(1) %PVu>^  
         Input #1, x $hM9{  
         If EOF(1) Then HELTL$j,
b  
         Exit Sub @$b7 eu  
         End If rl"yE=  
         Input #1, y Vl7V?`_4  
         If EOF(1) Then dn5t7D^x  
         Exit Sub E]Cm#B  
         End If 3&X5*-U  
         Input #1, z G$`hPNSh  
         n = n + 1 j%!xb><  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) s
_u! RrC  
    Loop _=w=!U
&W  
Close #1 'mU\X!- 4<  
End Sub

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