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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 Q:C$&-$  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 9Mp$8-=>7  
wXjFLg!g?  
宏贴出来如下： =,!\~`^  
cXMhq<GkAA  
nR>r2wMk@  
Sub main() H1"q  
Dim swApp                       As SldWorks.SldWorks (m[bWdANnW  
Set swApp = Application.SldWorks =VLS/\A  
Set Part = swApp.ActiveDoc n(nBRCG)o  
Dim myModelView As Object dx*qb  
If Part Is Nothing Then iTh:N2/-vc  
MsgBox "请先打开或者新建SolidWorks Part" y)c5u%(  
Exit Sub Z BUArIC  
End If $/1c= Y@  
Set myModelView = Part.ActiveView *1Z5+uVT[  
myModelView.FrameState = swWindowState_e.swWindowMaximized dBV7Te4L  
qH,l#I\CG  
Dim sFileName As String u}bf-;R  
Dim fileConfig                  As String >gKh  
Dim fileDispName                As String # {fTgq  
Dim fileOptions                 As Long gnp~OVDqfL  
Dim swSketchMgr                 As SldWorks.SketchManager <mMTD8Sx]  
Dim swModel                     As SldWorks.ModelDoc2
e}VBRvr  
Dim swSketchPt()                As SldWorks.SketchPoint 
t2" (2  
$eV$2p3H  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) juF{}J2  
%owsBO+  
If sFileName = "" Then /"H`.LD.?  
    MsgBox "没有选择txt数据文件", , "运行宏" )Rat0$6  
    Exit Sub Z}A%=Z\/3  
End If 7?gFy-  
|wEN
`#.;b  
Dim x, y, z As Double @4(k(  
Dim s U'UQ|%5f  
Dim n As Integer I2$T"K:eo  
Open sFileName For Input As #1 _qqr5NU  
n = 0 lDC$F N  
Do While Not EOF(1) K-<^$VWh  
         Line Input #1, s (C] SH\  
         n = n + 1 R.[Z]-X  
Loop B<8N96fx  
Close #1 d8SE,A&  
If n > 1024 Then "TV(H+1,z  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" GhY1k";  
    Exit Sub o~FRF0f*VP  
End If @UBjq%z  
ReDim swSketchPt(n) bb42
v7?  
Open sFileName For Input As #1 UmnE@H"t$\  
Set swSketchMgr = Part.SketchManager qQi.?<d2"s  
    swSketchMgr.Insert3DSketch True g>d;|sK  
    swSketchMgr.AddToDB = True m+{K^kr[  
    n = 0 S|rgCh!h  
    Do While Not EOF(1) be5,U\&z  
         Input #1, x "xMD,}+5$$  
         If EOF(1) Then $I#q  
         Exit Sub 04%S+y.6&Y  
         End If o47r<>t  
         Input #1, y G1t\Q-|l0  
         If EOF(1) Then YJs|c\eq?  
         Exit Sub aw?=hXR!  
         End If /:<IIqO
.  
         Input #1, z o]{uc,  
         n = n + 1 E|YdcS  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) h=
kQ$`j6  
    Loop sG~<M"znV  
Close #1 6*l^1;U  
End Sub

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