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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 `/n
M[  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 2i7e
#  
uD9|.P}  
宏贴出来如下： kKiA  
u~1o(Zn =  
<>Y?vC  
Sub main()  Paj vb-f  
Dim swApp                       As SldWorks.SldWorks Uxu\u0*  
Set swApp = Application.SldWorks U@F)2?  
Set Part = swApp.ActiveDoc MYLsHIPC  
Dim myModelView As Object $uj(G7_  
If Part Is Nothing Then 6l\FIah@  
MsgBox "请先打开或者新建SolidWorks Part" bb-qO#E  
Exit Sub qO@@8/l  
End If .S?pG_n]f  
Set myModelView = Part.ActiveView Sr_VL:Gg  
myModelView.FrameState = swWindowState_e.swWindowMaximized #1.YKo  
{ZsdLF#  
Dim sFileName As String T=Z.TG|lIx  
Dim fileConfig                  As String k`{7
}zxS  
Dim fileDispName                As String D y-S98Y  
Dim fileOptions                 As Long MJ{%4S{K,p  
Dim swSketchMgr                 As SldWorks.SketchManager a W
%5~3  
Dim swModel                     As SldWorks.ModelDoc2 ^U[D4UM  
Dim swSketchPt()                As SldWorks.SketchPoint [KJ q  
G?c-79]U  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) k1 -~  
TX [%(ft  
If sFileName = "" Then (C;I*cv  
    MsgBox "没有选择txt数据文件", , "运行宏" 1|r,dE2k9  
    Exit Sub Tr&M~Lgb)  
End If v(]]_h  
eqAW+Ptx  
Dim x, y, z As Double 13hE}g;.  
Dim s |JF@6  
Dim n As Integer 0k,-;j,  
Open sFileName For Input As #1 Zw1U@5}A  
n = 0 rN)V[5R#M  
Do While Not EOF(1) O1&b]C#  
         Line Input #1, s XFVV},V  
         n = n + 1 LE6.nmvS  
Loop KhbY
r$  
Close #1 ufV!+$C)is  
If n > 1024 Then txgQ"MGA%  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏"
V5F%_,No  
    Exit Sub 8;14Q7,S  
End If =ONHKF[UJ  
ReDim swSketchPt(n) mEyK1h1G@  
Open sFileName For Input As #1 SMH
<'F7i  
Set swSketchMgr = Part.SketchManager [BBEEI=|r  
    swSketchMgr.Insert3DSketch True :#~U<C@o  
    swSketchMgr.AddToDB = True .xhK'}l[  
    n = 0 q$(5Vd:  
    Do While Not EOF(1) #|GSQJ$F)`  
         Input #1, x <_Z:'~Zp  
         If EOF(1) Then gD`>Twa&6  
         Exit Sub ?<Wb@6k
h`  
         End If U6E\AvbRn  
         Input #1, y ($w@Z/;  
         If EOF(1) Then 94skkEj  
         Exit Sub FTc.]l
aO  
         End If G7!W{;@I  
         Input #1, z F!zP<A"  
         n = n + 1 t\P<X^d%  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) osARA3\Xt  
    Loop c;0Vs,DUmG  
Close #1 [r+ZE7$2b"  
End Sub

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