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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 n,0}K+}  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 C[pAa8  
r)b`3=  
宏贴出来如下： ZSbD4 |_  
dJ|]W|q<  
}FFW,x  
Sub main() f2d"b+H#  
Dim swApp                       As SldWorks.SldWorks X&McNO6"  
Set swApp = Application.SldWorks `R; ct4-  
Set Part = swApp.ActiveDoc [pOU!9v4  
Dim myModelView As Object o30
PI  
If Part Is Nothing Then ~gV
|_G  
MsgBox "请先打开或者新建SolidWorks Part" E7*]t_p"  
Exit Sub SKYS6b  
End If B0YY7od  
Set myModelView = Part.ActiveView H_$"]iQ  
myModelView.FrameState = swWindowState_e.swWindowMaximized U%KoG-#  
oACE:h9U  
Dim sFileName As String 7?kvrIuY&  
Dim fileConfig                  As String
@P~u k  
Dim fileDispName                As String 9(H8MUF0{  
Dim fileOptions                 As Long %;zA_Wg  
Dim swSketchMgr                 As SldWorks.SketchManager R{*p\;  
Dim swModel                     As SldWorks.ModelDoc2 G q:7d]c~T  
Dim swSketchPt()                As SldWorks.SketchPoint x^SE>dy ?z  
."h;H^5  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) nGP>M#F  
\F<]l6E  
If sFileName = "" Then eDy}_By^  
    MsgBox "没有选择txt数据文件", , "运行宏" Nl(Aa5:!  
    Exit Sub HDC`g  
End If aEgzQono  
Ru sa &#[  
Dim x, y, z As Double K&S~IFy  
Dim s 7#<|``]zNf  
Dim n As Integer 7gJ`G@
y  
Open sFileName For Input As #1 CE?R/uNo{  
n = 0 jsL'O;K/  
Do While Not EOF(1) z~X]v["d  
         Line Input #1, s SR\#>Qwx_  
         n = n + 1 Y[pGaiN:  
Loop FS']3uJ/  
Close #1 +]AE}UXZoh  
If n > 1024 Then i1scoxX3\  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" q!FJP9x  
    Exit Sub .!Z.1:YR  
End If LtNG<n)_BH  
ReDim swSketchPt(n) 8Y4YE(x5  
Open sFileName For Input As #1 [OMKk#vW  
Set swSketchMgr = Part.SketchManager A]>0lB  
    swSketchMgr.Insert3DSketch True 7$w:~VZ  
    swSketchMgr.AddToDB = True 2Yyc`o0R;h  
    n = 0 )~WxNn3rx  
    Do While Not EOF(1) L1aN"KGMF  
         Input #1, x 
ZM5[ o m  
         If EOF(1) Then )ll}hGS  
         Exit Sub @jjp\~  
         End If 6C  
         Input #1, y (D))?jnC  
         If EOF(1) Then ^&.F!  
         Exit Sub kH{axMNc  
         End If LtCkDnXk  
         Input #1, z
6g<JPc  
         n = n + 1 :yw0-]/DD  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) 9WHkw@<R+  
    Loop m-;u]X=a  
Close #1 %Uuhi&PA-l  
End Sub

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