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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏
wInh~p  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 &,
CiM0  
.:QLk&a,:,  
宏贴出来如下： Q_X.rUL0w  
0h\smqm  
%k?U9pj^  
Sub main() YCM]VDx4u1  
Dim swApp                       As SldWorks.SldWorks "Yj'oE%\  
Set swApp = Application.SldWorks 4 bH^":i(  
Set Part = swApp.ActiveDoc ,+{LYF  
Dim myModelView As Object 4'A!; ]:  
If Part Is Nothing Then 5VAK:eB  
MsgBox "请先打开或者新建SolidWorks Part" M={V|H0  
Exit Sub ],a5)kV  
End If ~`\?"s:  
Set myModelView = Part.ActiveView MgrLSKLT  
myModelView.FrameState = swWindowState_e.swWindowMaximized d]6#m'U  
aV|hCN~  
Dim sFileName As String gPsi  
Dim fileConfig                  As String &wCg\j_c  
Dim fileDispName                As String |O9O )o  
Dim fileOptions                 As Long q$tUH)0  
Dim swSketchMgr                 As SldWorks.SketchManager '*w00  
Dim swModel                     As SldWorks.ModelDoc2 7Vo$(kj  
Dim swSketchPt()                As SldWorks.SketchPoint ?D*/*Gk{  
~%=MpQ3  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) v`zJb00DT  
o`P%&  
If sFileName = "" Then i?g5_HI  
    MsgBox "没有选择txt数据文件", , "运行宏" "4+WZR]  
    Exit Sub Slher0.Y  
End If -pGE]nwDL  
]d0tE?9  
Dim x, y, z As Double kDN:ep{/  
Dim s cm[&?  
Dim n As Integer
ZR]25Yy  
Open sFileName For Input As #1 DN~nk  
n = 0 a8iQ4 
 
Do While Not EOF(1) Oz`BEyb]{  
         Line Input #1, s Yc `)R  
         n = n + 1 C:C}5<fkx  
Loop au=o6WRa  
Close #1 aV?@s4  
If n > 1024 Then f[a}aZ9)  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" ,J>5:ht(6  
    Exit Sub 3?7\T#=  
End If <|+Ex  
ReDim swSketchPt(n) DhT>']Z  
Open sFileName For Input As #1 "C SC  
Set swSketchMgr = Part.SketchManager K4;'/cS  
    swSketchMgr.Insert3DSketch True *ikc]wQr$  
    swSketchMgr.AddToDB = True -}=%/|\FG  
    n = 0 Vz)`nmO}5\  
    Do While Not EOF(1) .#Z%1U%P.  
         Input #1, x ^1aAjYFn  
         If EOF(1) Then 2hkRd>)&
5  
         Exit Sub % !>I*H  
         End If fhp<oe>D  
         Input #1, y pDcjwlA%  
         If EOF(1) Then 9Hu/u=vB<  
         Exit Sub V=V:SlS9|  
         End If Nkl_Ho,  
         Input #1, z ^Z#W_R\l  
         n = n + 1 U,q\emR  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) F\k+[`%{  
    Loop {
v2|g  
Close #1
}36QsH8  
End Sub

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

你好，解决了吗 `poE6\