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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 G L
U7?2`t  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 Qa>t$`o`  
UXgeL2`;  
宏贴出来如下： -Ph"#R&  
M-7^\wXTA  
;#)sV2F\&  
Sub main() #:[^T,YD0  
Dim swApp                       As SldWorks.SldWorks m9Xauk$
(  
Set swApp = Application.SldWorks  r"YOA@  
Set Part = swApp.ActiveDoc D6N32q@  
Dim myModelView As Object e>J.r("f  
If Part Is Nothing Then Z
W>iq M^9  
MsgBox "请先打开或者新建SolidWorks Part" Qv1<)&Ft<  
Exit Sub 7fE U5@  
End If .:r l<.  
Set myModelView = Part.ActiveView ;T hn C>U  
myModelView.FrameState = swWindowState_e.swWindowMaximized vLI'Z)\  
Xnc?o
T+  
Dim sFileName As String f0M5^  
Dim fileConfig                  As String :yxP3e%rp  
Dim fileDispName                As String yd|ao\'=  
Dim fileOptions                 As Long <~z@GMQCf  
Dim swSketchMgr                 As SldWorks.SketchManager L5DeLF+  
Dim swModel                     As SldWorks.ModelDoc2 1EiSxf  
Dim swSketchPt()                As SldWorks.SketchPoint R/EpfYOX  
'"C& dia  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) OjWg>v\v  
dC>[[_  
If sFileName = "" Then /`s{!t#Y  
    MsgBox "没有选择txt数据文件", , "运行宏" =[do([A  
    Exit Sub bt'lT  
End If jI/#NCKE  
C[R|@9NI  
Dim x, y, z As Double M.qE$  
Dim s <g$bM;6%  
Dim n As Integer I+eKuWB  
Open sFileName For Input As #1 !,<rW<&;  
n = 0 >c)-o}bd^  
Do While Not EOF(1)  |\FJ  
         Line Input #1, s .k
!<Oqa  
         n = n + 1 |BEoF[1  
Loop blx"WVqo  
Close #1 ?Gx-q+H  
If n > 1024 Then *JArR1J  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" kF-7OX0)  
    Exit Sub T&ib]LmR  
End If E3V_qT8  
ReDim swSketchPt(n) w!r.MWE  
Open sFileName For Input As #1 eWOZC(I*z  
Set swSketchMgr = Part.SketchManager K |^OnM  
    swSketchMgr.Insert3DSketch True w&eq *q
 
    swSketchMgr.AddToDB = True "Wg5eML0  
    n = 0 *RD<*l  
    Do While Not EOF(1) M~U>"kX  
         Input #1, x (j&7`9<5  
         If EOF(1) Then 9]gV#uF  
         Exit Sub uWLf9D"  
         End If S
oHw9FtS  
         Input #1, y .A F94OlE/  
         If EOF(1) Then MjW{JR)I  
         Exit Sub ^!6T,7B B  
         End If 8vx#QU8E/  
         Input #1, z QfV:&b`  
         n = n + 1 Zt \3y  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) 3Vk<hBw2  
    Loop DD'RSV5]  
Close #1 w""  
End Sub

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