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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 [@2$W?0i  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 (o^?i2)g  
iqFC~].)  
宏贴出来如下： .vie#,la  
/CUBs!  
n7|,b- <  
Sub main() +~sqv?8  
Dim swApp                       As SldWorks.SldWorks 6m@B.+1  
Set swApp = Application.SldWorks XRTiC#6  
Set Part = swApp.ActiveDoc ?XV3Y3  
Dim myModelView As Object ornU8H`  
If Part Is Nothing Then @aP1[(m
 
MsgBox "请先打开或者新建SolidWorks Part" >uYU_/y$2  
Exit Sub 0es\ j6c  
End If %/d1x  
Set myModelView = Part.ActiveView ,20l` :  
myModelView.FrameState = swWindowState_e.swWindowMaximized i0Rj;E=:]  
q0b*#j  
Dim sFileName As String 1B@7#ozWA?  
Dim fileConfig                  As String xUTTRJ(\  
Dim fileDispName                As String i1K$~  
Dim fileOptions                 As Long 4(,M&NC  
Dim swSketchMgr                 As SldWorks.SketchManager lqmr`\@)  
Dim swModel                     As SldWorks.ModelDoc2 .#Z"Sj  
Dim swSketchPt()                As SldWorks.SketchPoint  ?<T=g  
r]U8WM3r  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) SXC 7LJm<g  
x<7?  
If sFileName = "" Then q7I!wD9Cff  
    MsgBox "没有选择txt数据文件", , "运行宏" |7Qe{  
    Exit Sub 6  $`l  
End If UY .-Qt  
Xc4zUEO9  
Dim x, y, z As Double < FY%QB)h  
Dim s K &%8w  
Dim n As Integer zN=s]b=
/  
Open sFileName For Input As #1 ]^Xj!01~  
n = 0 IyM:9=}5  
Do While Not EOF(1) "y5bODq3t  
         Line Input #1, s zFQm3!.  
         n = n + 1 B4 5#-V  
Loop ~z,
qr09  
Close #1 d%RH]j4  
If n > 1024 Then 4$81ilBcL  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" :i|]iXEI"  
    Exit Sub J/3$I  
End If wk{]eD%  
ReDim swSketchPt(n) 4dm0:, G
 
Open sFileName For Input As #1 y0p\Gu;3j  
Set swSketchMgr = Part.SketchManager )[u'LgVN/L  
    swSketchMgr.Insert3DSketch True FlUO3rc|  
    swSketchMgr.AddToDB = True 4P"XT  
    n = 0 V(g5Gn
?  
    Do While Not EOF(1) jeB"j  
         Input #1, x X\>/'fC$  
         If EOF(1) Then rU(-R@["  
         Exit Sub jfVw{\l  
         End If FGhnK'  
         Input #1, y t/3HX]B_  
         If EOF(1) Then nwzyL`kF  
         Exit Sub Cs\jPh;"  
         End If yb)qg]2  
         Input #1, z "rfBYl`  
         n = n + 1 !Rgj'{  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000)  Pa?{}A  
    Loop -%Rbd0gVH\  
Close #1 fwlicbs'  
End Sub

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