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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 r;~7$B)  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 ]kdU]}z  
p
}]K0F!  
宏贴出来如下： R!>l7p/|H)  
kF-7OX0)  
T&ib]LmR  
Sub main() E3V_qT8  
Dim swApp                       As SldWorks.SldWorks w!r.MWE  
Set swApp = Application.SldWorks 6GMwB@ b  
Set Part = swApp.ActiveDoc Ug#EAV<m  
Dim myModelView As Object e'X"uH Xt.  
If Part Is Nothing Then NqC}}N\
,  
MsgBox "请先打开或者新建SolidWorks Part" B-p ].  
Exit Sub NCp]!=uM;  
End If 7*eIs2aY  
Set myModelView = Part.ActiveView ("s!t?!&YS  
myModelView.FrameState = swWindowState_e.swWindowMaximized &ox5eX(  
AzMX~cd  
Dim sFileName As String ^tL]QE?|  
Dim fileConfig                  As String ;"2(e7ir  
Dim fileDispName                As String @NYlVk2  
Dim fileOptions                 As Long [{PmU~RMYf  
Dim swSketchMgr                 As SldWorks.SketchManager Dco3`4pl  
Dim swModel                     As SldWorks.ModelDoc2 ]#;u]  
Dim swSketchPt()                As SldWorks.SketchPoint 0zpA<"S  
zB8J|uG  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) Ask
~  
T5eJIc3a"  
If sFileName = "" Then .2 }5Dc,eR  
    MsgBox "没有选择txt数据文件", , "运行宏" x75 3o\u!  
    Exit Sub v*&WqVg  
End If _N"c,P0  
V^kl_!@  
Dim x, y, z As Double YK V"bI  
Dim s |!cM_&  
Dim n As Integer Nazr4QU  
Open sFileName For Input As #1 F\%PB p  
n = 0 MtG~O;?8  
Do While Not EOF(1) 7&2CLh  
         Line Input #1, s snVeOe#'S  
         n = n + 1 ,#.9^J  
Loop b?:SCUI  
Close #1 eY\!}) 5  
If n > 1024 Then =c#;c+a  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" Lf+3nN  
    Exit Sub 9u1Fk'cxG,  
End If ]m\:XhI*<  
ReDim swSketchPt(n) ]g]~!":  
Open sFileName For Input As #1 gcF V$  
Set swSketchMgr = Part.SketchManager 2f2.;D5g_'  
    swSketchMgr.Insert3DSketch True L[Y|K%
;~  
    swSketchMgr.AddToDB = True `7Dj}vVu  
    n = 0 O7xBMqMf  
    Do While Not EOF(1) R 5Cy%  
         Input #1, x ^20x\K  
         If EOF(1) Then (RLJ_M|;/b  
         Exit Sub &Ui&2EW  
         End If \l?.VE
D  
         Input #1, y 98!H$6k  
         If EOF(1) Then 3&
Fqd  
         Exit Sub ~p$ncIr2Q  
         End If An=Q`Uxt/  
         Input #1, z Y#f
iJ  
         n = n + 1 A[N>T\  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) z1LY|8$G  
    Loop ]*\<k  
Close #1 :s
nn-e0l  
End Sub

你好，解决了吗 } bEu+bZ  

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