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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 |}b~YHTs  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 aa"3 Io  
;GIA`=a%  
宏贴出来如下： N'i)s{'  
Bj<s!}i{[  
f-p$4%(  
Sub main() W4UK?#S+  
Dim swApp                       As SldWorks.SldWorks 'q?Y5@s  
Set swApp = Application.SldWorks S=\cF,Zs  
Set Part = swApp.ActiveDoc No`*->R  
Dim myModelView As Object h'?v(k!  
If Part Is Nothing Then <@P. 'rE  
MsgBox "请先打开或者新建SolidWorks Part" FzNj':D  
Exit Sub '6; {DX  
End If IqiU  
Set myModelView = Part.ActiveView /l_u $"  
myModelView.FrameState = swWindowState_e.swWindowMaximized `jSegG'  
Vl;zd=  
Dim sFileName As String d::9,~  
Dim fileConfig                  As String
ja9=b?]0,  
Dim fileDispName                As String NfnPXsad  
Dim fileOptions                 As Long ?5J>]: +ZZ  
Dim swSketchMgr                 As SldWorks.SketchManager <ZheWl  
Dim swModel                     As SldWorks.ModelDoc2 <p}7T]a7  
Dim swSketchPt()                As SldWorks.SketchPoint wl&T9
O;?  
+(PUiiP'"v  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) DQ30\b"gU  
=fJU+N+<  
If sFileName = "" Then >]8(3&zd  
    MsgBox "没有选择txt数据文件", , "运行宏" +3J<vM}dy  
    Exit Sub tDRo)z  
End If `S0`3q}L3%  
*CPpU|  
Dim x, y, z As Double n_Qua|R  
Dim s {Wi*B(  
Dim n As Integer Np%Q-T\  
Open sFileName For Input As #1 ]tf`[bINP  
n = 0 |'z24 :8  
Do While Not EOF(1) NU3TXO  
         Line Input #1, s L""ZI5J{F9  
         n = n + 1 :;eQ*{ `\  
Loop '%wSs,HD  
Close #1 @_?2iN?4Z  
If n > 1024 Then ]
A5Y/dd  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" #/o~h|g  
    Exit Sub kDDC@A $  
End If #4./>}G  
ReDim swSketchPt(n) $}{[_2  
Open sFileName For Input As #1 9!(%Vf>  
Set swSketchMgr = Part.SketchManager S3l^h4  
    swSketchMgr.Insert3DSketch True Km $o@  
    swSketchMgr.AddToDB = True &a=78Z  
    n = 0 8lzoiA_9  
    Do While Not EOF(1) 9TQVgkW  
         Input #1, x WG3!M/4r H  
         If EOF(1) Then G;flj}z  
         Exit Sub qB (Pqv  
         End If >~nr,V.q  
         Input #1, y b>VV/j4!/  
         If EOF(1) Then g4b#U\D@)/  
         Exit Sub ,h*N9}xYTi  
         End If ,dR.Sacv  
         Input #1, z y: x<`E=  
         n = n + 1 zWhj>Za  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000)
LXh}U>a9  
    Loop rR :ZTfJs"  
Close #1 \*=wm$p&*  
End Sub

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

你好，解决了吗 G@#lf@M
]