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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 _~!*|<A_  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 vlYDhjZk#  
*:t]|$;E\  
宏贴出来如下： Ar&]/X,WG  
wn*<.s  
P|}~=2J  
Sub main() N)'oX3?x  
Dim swApp                       As SldWorks.SldWorks
LB`=+FD  
Set swApp = Application.SldWorks MQ;c'?!5[!  
Set Part = swApp.ActiveDoc `L<f15][  
Dim myModelView As Object @k+Z?Hp  
If Part Is Nothing Then i! G^=N
  
MsgBox "请先打开或者新建SolidWorks Part" dm3cQ<
0  
Exit Sub ECHl9; +  
End If K"'W4bO#7  
Set myModelView = Part.ActiveView { ?p55o  
myModelView.FrameState = swWindowState_e.swWindowMaximized &1O[N*$e  
zTi%j$o  
Dim sFileName As String W[S4s/)mg  
Dim fileConfig                  As String qc^u%  
Dim fileDispName                As String [@D+kL*>  
Dim fileOptions                 As Long =6j4_+5mnH  
Dim swSketchMgr                 As SldWorks.SketchManager b|U
48j1A  
Dim swModel                     As SldWorks.ModelDoc2 "0Xa?z8"  
Dim swSketchPt()                As SldWorks.SketchPoint ~F7 +R   
RFF&-M]  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ;{b 1'  
m~s.al(G91  
If sFileName = "" Then F@Bh>Vb  
    MsgBox "没有选择txt数据文件", , "运行宏" CD#:*  
    Exit Sub }W&hPC  
End If v=Ep
  
S-^y;#=  
Dim x, y, z As Double I!bzvPJ]xc  
Dim s cVv>"oF;~*  
Dim n As Integer KobNi#O+  
Open sFileName For Input As #1 0ZQ|W%tS  
n = 0 + >o/Ob  
Do While Not EOF(1) nA8]/r1k  
         Line Input #1, s ju8mO&  
         n = n + 1 zo66=vE!  
Loop +gb2>fei&  
Close #1 /|] %0B  
If n > 1024 Then wc-H`S|@  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" Ko%&~C_  
    Exit Sub (:3rANY|  
End If S9X
~<!]  
ReDim swSketchPt(n) k#k!AcC  
Open sFileName For Input As #1 F?2(U\k#  
Set swSketchMgr = Part.SketchManager *au&ODa  
    swSketchMgr.Insert3DSketch True }vBk,ED  
    swSketchMgr.AddToDB = True @Tmqw(n{  
    n = 0 "Yw-1h`fR  
    Do While Not EOF(1) (mXV5IM  
         Input #1, x 'qBg^c  
         If EOF(1) Then CFD& -tED&  
         Exit Sub <rc3&qmd  
         End If pKO\tkMJ  
         Input #1, y HKO00p7
  
         If EOF(1) Then )_!t9gn*wr  
         Exit Sub d#7 z N  
         End If K1RTAFf /  
         Input #1, z r-]Au -  
         n = n + 1 Pz3jc|Ga  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) Cec!{]DL&  
    Loop |x3&#(Tf  
Close #1 !!f)w!wW  
End Sub

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