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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 w49{-Pp[  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 yXrd2?Rq@  
>fg4x+0%  
宏贴出来如下： -)6;0  
%i3{TL  
uR
^.
 
Sub main() 7dHIW!OA  
Dim swApp                       As SldWorks.SldWorks Hh@2m\HA  
Set swApp = Application.SldWorks
?CFoe$M  
Set Part = swApp.ActiveDoc H@4/#V|Uy  
Dim myModelView As Object i3d y  
If Part Is Nothing Then P
K}vh%  
MsgBox "请先打开或者新建SolidWorks Part" N;g$)zCV1  
Exit Sub 9 R  
End If ?lyltAxs'  
Set myModelView = Part.ActiveView  ^ `je
 
myModelView.FrameState = swWindowState_e.swWindowMaximized I5Q~T5Ar  
ZBC@xM&-  
Dim sFileName As String ([tG y  
Dim fileConfig                  As String E$R_rX4x  
Dim fileDispName                As String Wxc^_iqA1  
Dim fileOptions                 As Long A'`P2Am  
Dim swSketchMgr                 As SldWorks.SketchManager {Y^c*Iqn  
Dim swModel                     As SldWorks.ModelDoc2 fRFYJFc n  
Dim swSketchPt()                As SldWorks.SketchPoint q}e]*]dJZ  
cPJ7E  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ,$ mLL  
H<XlUCr_~+  
If sFileName = "" Then uD[^K1Ag]^  
    MsgBox "没有选择txt数据文件", , "运行宏" YLigP"*~^  
    Exit Sub 3r`<(%\  
End If 6$DG.p
 
&#Wkww&Y  
Dim x, y, z As Double G_0)oC@Jl:  
Dim s Uqr
{,-]5v  
Dim n As Integer x.o3iN[=  
Open sFileName For Input As #1 7G2vYKC'  
n = 0
[*tU}9  
Do While Not EOF(1) mgxz1d  
         Line Input #1, s "!^c  
         n = n + 1 =<T
O"  
Loop l%@dE7<&#Z  
Close #1 _Po#ZGm~  
If n > 1024 Then h>.9RX &  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" m qpd  
    Exit Sub Ir^BC!<2>  
End If 1-/4Y5?}  
ReDim swSketchPt(n) 7pd$?=__I  
Open sFileName For Input As #1 .1Vu-@  
Set swSketchMgr = Part.SketchManager 6z PV'~
q  
    swSketchMgr.Insert3DSketch True tgc@7  
    swSketchMgr.AddToDB = True Iht@mE  
    n = 0 C5cFw/',  
    Do While Not EOF(1) <jg8y'm@0  
         Input #1, x @|Z*f\  
         If EOF(1) Then SK}HXG{?  
         Exit Sub 3JTU^-S<  
         End If 3/:LYvM<  
         Input #1, y aam1tm#Q  
         If EOF(1) Then {Qm6?H  
         Exit Sub /O+e#z2f<  
         End If T4l-sJ'|  
         Input #1, z Qf"6PJ  
         n = n + 1 9*f2b.Aj  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) ~T;K-9R  
    Loop r,QJG$ Jo  
Close #1 py}.00it  
End Sub

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

你好，解决了吗 u XaL