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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 )%mAZk-*;^  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 |I1+"Mp  
7/>a:02  
宏贴出来如下： M+aEma  
9X]f[^  
V/bH^@,sA  
Sub main() LK+felL  
Dim swApp                       As SldWorks.SldWorks -P#nT 2  
Set swApp = Application.SldWorks 4<}A]BQVkJ  
Set Part = swApp.ActiveDoc &jm[4'$ *z  
Dim myModelView As Object ?}sOG?{  
If Part Is Nothing Then CEqZ:c  
MsgBox "请先打开或者新建SolidWorks Part" 0Hcbkep9D  
Exit Sub <]Y[XI(kr  
End If "{( [!  
Set myModelView = Part.ActiveView Bp3L>AcVu  
myModelView.FrameState = swWindowState_e.swWindowMaximized kp`0erJqw  
'F5)ACA%  
Dim sFileName As String @ER1zKK?  
Dim fileConfig                  As String o!Fl]3F  
Dim fileDispName                As String q^Inb)FeN  
Dim fileOptions                 As Long Ae3,^  
Dim swSketchMgr                 As SldWorks.SketchManager 263*: Y  
Dim swModel                     As SldWorks.ModelDoc2 :6u~aT/  
Dim swSketchPt()                As SldWorks.SketchPoint UC|JAZL  
r}EM4\r  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) oT->^4WY  
p >aw  
If sFileName = "" Then Z#7U "G-A  
    MsgBox "没有选择txt数据文件", , "运行宏" h{/ve`F>@  
    Exit Sub }n95< {  
End If kfCKhx   
z!CD6W1n  
Dim x, y, z As Double v3^t/[e~:  
Dim s U;gp)=JNT  
Dim n As Integer fuyl/bx}  
Open sFileName For Input As #1 -+P7:4/  
n = 0 mV zu~xym  
Do While Not EOF(1) D rTM$)  
         Line Input #1, s k1iLnza%  
         n = n + 1 {^wdJZ~QLK  
Loop gj;@?o0  
Close #1 @1.9PR$x  
If n > 1024 Then S'@=3)  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" {8:o?LnMW  
    Exit Sub o2}N=|&  
End If BWEv1' v  
ReDim swSketchPt(n) %EoH4LzT  
Open sFileName For Input As #1 %uuH^A  
Set swSketchMgr = Part.SketchManager 6Ahr_{  
    swSketchMgr.Insert3DSketch True ,s? dAy5  
    swSketchMgr.AddToDB = True J@<!q  
    n = 0 kW(Kh0x  
    Do While Not EOF(1) {]["6V6W  
         Input #1, x J)huy\>,  
         If EOF(1) Then jGiw96,Y  
         Exit Sub \n(
ROf^'  
         End If 6eo4#/+%  
         Input #1, y % $.vOFP9  
         If EOF(1) Then >)y$mc6  
         Exit Sub GLcd9|H  
         End If h--45`cE  
         Input #1, z Y?t2,cm  
         n = n + 1 4cB&Hk  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) +"Ub/[J{G1  
    Loop `WlH*p)z9  
Close #1 1M/$< kQ-N  
End Sub

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

你好，解决了吗 h[,XemwX