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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 ^x_.3E3Q  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 ::3[H$  
P$3!4D[  
宏贴出来如下： }g[Hi`  
?DnQU"_$  
)]Sf|@K]  
Sub main() T~4HeEG>uH  
Dim swApp                       As SldWorks.SldWorks K)h<#F  
Set swApp = Application.SldWorks *$/Go8t4u  
Set Part = swApp.ActiveDoc .'2"83f  
Dim myModelView As Object vq@"y%C4  
If Part Is Nothing Then gLx?0eBBA  
MsgBox "请先打开或者新建SolidWorks Part" u{dkUG1ia  
Exit Sub 6vzvH  
End If {3!A\OR  
Set myModelView = Part.ActiveView =w:H9uj6F  
myModelView.FrameState = swWindowState_e.swWindowMaximized Svs&?B\}{6  
`];ne]xM  
Dim sFileName As String Cq-99@&;  
Dim fileConfig                  As String $lJ!f  
Dim fileDispName                As String BL%&n*&  
Dim fileOptions                 As Long P8tCzjrV  
Dim swSketchMgr                 As SldWorks.SketchManager 0|4R8Dh*-  
Dim swModel                     As SldWorks.ModelDoc2 FE#|5;q.  
Dim swSketchPt()                As SldWorks.SketchPoint FtWO[*#  
Eh"Y<]$  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ]HRHF'4  
g26 l:1P  
If sFileName = "" Then AAF;M}le,  
    MsgBox "没有选择txt数据文件", , "运行宏" z,VXH ?.Zo  
    Exit Sub YG>E
op  
End If IEfm>N-]  
Ysi@wK-LnF  
Dim x, y, z As Double JBISA _Y  
Dim s 9(bbV5}  
Dim n As Integer G)""^YB-  
Open sFileName For Input As #1 2m72PU<.  
n = 0 \`8F.oZ^)  
Do While Not EOF(1) !'>#!S~h3  
         Line Input #1, s g](&H$g  
         n = n + 1 ^Je*k)COn  
Loop )F0
Q2P1I  
Close #1 J,=^'K(  
If n > 1024 Then 0+A#k7c6p  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" O /h1ew  
    Exit Sub BpF}H^V-  
End If vTp,j-^  
ReDim swSketchPt(n) 26j-1c!NGd  
Open sFileName For Input As #1 [c99m:*+  
Set swSketchMgr = Part.SketchManager g~OG~g@  
    swSketchMgr.Insert3DSketch True ;[|+tO_  
    swSketchMgr.AddToDB = True _G)x\K]N  
    n = 0 nH[>Sff$  
    Do While Not EOF(1) UG<<.1JL  
         Input #1, x t4-0mNBZt$  
         If EOF(1) Then :vC+}.{p  
         Exit Sub %\%&1  
         End If pf3-  
         Input #1, y \i)@"}  
         If EOF(1) Then rE\&FVx  
         Exit Sub 73!])!SVI  
         End If #|Je%t}~  
         Input #1, z 14y>~~3C4  
         n = n + 1 "2I{T  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) N/E=-&E8  
    Loop };cH5bYF  
Close #1 b+71`aD0  
End Sub

你好，解决了吗 0f
R?zT?  

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