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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 VJ;4~WgBz  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 !=M[u+-  
OI</o0Ca  
宏贴出来如下： e>\[OwF-x  
Ha{#  
`b 6j7  
Sub main() ~p^&`FA  
Dim swApp                       As SldWorks.SldWorks B*
#lkMr  
Set swApp = Application.SldWorks Cc7PhoPK  
Set Part = swApp.ActiveDoc '=}F}[d"kk  
Dim myModelView As Object aj;OG^(!2_  
If Part Is Nothing Then ;L(2Ffk8  
MsgBox "请先打开或者新建SolidWorks Part" JJ_77i  
Exit Sub 6?u9hi  
End If IF-g%  
Set myModelView = Part.ActiveView gwwYz]'d>r  
myModelView.FrameState = swWindowState_e.swWindowMaximized swEE >=  
+Zgh[a  
Dim sFileName As String }_m/3*x_  
Dim fileConfig                  As String kX!TOlk3  
Dim fileDispName                As String | wuUH  
Dim fileOptions                 As Long >DqV^%2l  
Dim swSketchMgr                 As SldWorks.SketchManager K1]m:Y<  
Dim swModel                     As SldWorks.ModelDoc2 Q^=drNV  
Dim swSketchPt()                As SldWorks.SketchPoint x`/"1]Nf  
,x#5.Koz  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) \UZlFE  
R]hilb'a  
If sFileName = "" Then #5*|/LD  
    MsgBox "没有选择txt数据文件", , "运行宏" !0Hx1I<*x  
    Exit Sub $A"C1)d;  
End If a(- ^ .w  
J eCKnt=  
Dim x, y, z As Double <pzCpF<  
Dim s hJ[Z~PC\T0  
Dim n As Integer 6S*L[zBnA\  
Open sFileName For Input As #1 ;#a^M*e  
n = 0 zi M~V'  
Do While Not EOF(1) 62{(i'K  
         Line Input #1, s Bg.~#H  
         n = n + 1 {akSK  
Loop >S\D+1PV  
Close #1 k$j4~C'$  
If n > 1024 Then V?x&.C2Z  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" RJ+i~;-  
    Exit Sub }',/~T6  
End If 
M:&g5y&  
ReDim swSketchPt(n) i> }P V  
Open sFileName For Input As #1 `a*_b9  
Set swSketchMgr = Part.SketchManager op!8\rM<e  
    swSketchMgr.Insert3DSketch True zF'LbQz0[  
    swSketchMgr.AddToDB = True t2V|moG  
    n = 0 w"?H4  
    Do While Not EOF(1) `
<}Q4p  
         Input #1, x X
)P;UVR0  
         If EOF(1) Then =z_.RE  
         Exit Sub /1A3 Sw  
         End If !kAjne8]d  
         Input #1, y $H}G'LqiG  
         If EOF(1) Then prJ]uH,  
         Exit Sub 3QNu7oo  
         End If OUoN  
         Input #1, z f,S,35`qa  
         n = n + 1 U tb"6_   
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) T["(wPrt  
    Loop X9ua&T2(l  
Close #1
|%p;4b  
End Sub

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