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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 ~KS@Ulrox  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 <5z!0m-G  
wX]$xZ!s  
宏贴出来如下： Ju47}t%HB  
a#r{FoU{M8  
VmPh''Z%-  
Sub main() T@yQOD7  
Dim swApp                       As SldWorks.SldWorks FJ~d&L\l  
Set swApp = Application.SldWorks )x/#sW%)  
Set Part = swApp.ActiveDoc zT,@PIC(  
Dim myModelView As Object cHFW"g78  
If Part Is Nothing Then d0I s|Gs  
MsgBox "请先打开或者新建SolidWorks Part" tf6m.  
Exit Sub hp'oiR;
~w  
End If C][hH?.  
Set myModelView = Part.ActiveView ch0^g8@Q[  
myModelView.FrameState = swWindowState_e.swWindowMaximized F
:ycV~bE  
>EJ{ *  
Dim sFileName As String <9fXf*  
Dim fileConfig                  As String H;nzo3x  
Dim fileDispName                As String E72N=7v"  
Dim fileOptions                 As Long }/1^Lqfnz  
Dim swSketchMgr                 As SldWorks.SketchManager YTefEG]|q  
Dim swModel                     As SldWorks.ModelDoc2 :;eOhZ=_  
Dim swSketchPt()                As SldWorks.SketchPoint q%;cu1^"M  
~&)\8@2  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) LvG$J*  
; D
<k  
If sFileName = "" Then :[n~(~7?  
    MsgBox "没有选择txt数据文件", , "运行宏" PkDt-]G.  
    Exit Sub }}TPu8Rl  
End If <pb  
Hl8-q!  
Dim x, y, z As Double 3pWav 1"  
Dim s )?[7}(4jI  
Dim n As Integer s|<n7 =J  
Open sFileName For Input As #1 cwzkA,e@  
n = 0 $EFS_*<X  
Do While Not EOF(1) g3
kbsi7_:  
         Line Input #1, s \2y/:  
         n = n + 1 geyCS3 :p  
Loop M8WjqTq  
Close #1 Fw&ImRMk  
If n > 1024 Then i`F5  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" /P,1KVQPh  
    Exit Sub LD[\eJ_  
End If y+iRZ%V^  
ReDim swSketchPt(n) =A6*;T"W  
Open sFileName For Input As #1 QHO n?e  
Set swSketchMgr = Part.SketchManager b_ZvI\H  
    swSketchMgr.Insert3DSketch True 0j!<eN=  
    swSketchMgr.AddToDB = True }~@/r5Zl  
    n = 0 ZUHW*U.  
    Do While Not EOF(1) 3\m!  
         Input #1, x $jh$nMx)!  
         If EOF(1) Then Q.B)?w
m  
         Exit Sub ;?HP/dZLz  
         End If |k6+- 1~_  
         Input #1, y Z]b;%:>=  
         If EOF(1) Then J(#6Cld`c  
         Exit Sub SV t~pE+Y  
         End If N:U}b1$L6  
         Input #1, z (k!7`<k!Y  
         n = n + 1 Jt]RU+TB  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) K]$PRg1|3  
    Loop k5-4^
 
Close #1 N@PwC(   
End Sub

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