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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 huh6t !  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 9 a!$z!.  
!xo{-@@wS  
宏贴出来如下： e?
8FN. q  
2{H@(Vgpbr  
s;01u_  
Sub main() 7o#I
,
d~  
Dim swApp                       As SldWorks.SldWorks G}b]w~ML~  
Set swApp = Application.SldWorks V{/?FO?E  
Set Part = swApp.ActiveDoc 8c9*\S  
Dim myModelView As Object wsI`fO^A8  
If Part Is Nothing Then 2fn&#kw/  
MsgBox "请先打开或者新建SolidWorks Part" pZqq]mHK  
Exit Sub 3z{?_;bR  
End If A>o*t=5  
Set myModelView = Part.ActiveView o$jLzE"  
myModelView.FrameState = swWindowState_e.swWindowMaximized QI'Oz{vE  
EyJJ0  
Dim sFileName As String YIQ 4t  
Dim fileConfig                  As String P3+5?.p.  
Dim fileDispName                As String dxMOn  
Dim fileOptions                 As Long 7q?, ?  
Dim swSketchMgr                 As SldWorks.SketchManager R;&AijS8  
Dim swModel                     As SldWorks.ModelDoc2 f!Y?S  
Dim swSketchPt()                As SldWorks.SketchPoint ,Z&xNBX  
0zmE>/O+
 
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) Ezc?#<+7  
w0rRSD4S8B  
If sFileName = "" Then 6t[+pL\b  
    MsgBox "没有选择txt数据文件", , "运行宏" Lt?lv2k=L  
    Exit Sub gY/"cq  
End If nP$Ky1y G  
ZxGJzakB5$  
Dim x, y, z As Double \XCe22x]  
Dim s c|e~BQdRw  
Dim n As Integer !Xf5e*1IS  
Open sFileName For Input As #1 bnf'4PAt  
n = 0 i[7\[  
Do While Not EOF(1) gc
_:%ki  
         Line Input #1, s _n0CfH.v  
         n = n + 1 >E;uU[v)I  
Loop B+P(M!m3  
Close #1 >%}C^gu)  
If n > 1024 Then QwW&\h[8?  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" AYqX
|  
    Exit Sub %9KldcQ}~  
End If c}lb%^;)E  
ReDim swSketchPt(n) q9KHmhUD  
Open sFileName For Input As #1 X5zDpi|Dq  
Set swSketchMgr = Part.SketchManager 6Z
m# bFQ  
    swSketchMgr.Insert3DSketch True AifWf2$S  
    swSketchMgr.AddToDB = True yj 3cyLXw  
    n = 0 Yb|
c\[ %  
    Do While Not EOF(1) ]sf7{lVT  
         Input #1, x ?GKb7Oj  
         If EOF(1) Then W <9T0sZ  
         Exit Sub SoW9p^HJ  
         End If EH+"~-v)ae  
         Input #1, y ] {RDVA=]  
         If EOF(1) Then F~R;n_IJ  
         Exit Sub u%&`}g  
         End If `uv2H$  
         Input #1, z b[r8e  
         n = n + 1 Q|S.R1L^  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) B3pCy~*5  
    Loop ZQ4p(6a  
Close #1 Z3"%`*Tmq-  
End Sub

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