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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 |Mj2lZS  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 JYt)4mOo  
KZ"&c~[  
宏贴出来如下： <Oi65O_X  
]>33sb S6  
CBqeO@M  
Sub main() 3q!hY  
Dim swApp                       As SldWorks.SldWorks UkE fuH  
Set swApp = Application.SldWorks :/c40:[  
Set Part = swApp.ActiveDoc &X^ -|7~N  
Dim myModelView As Object <]~FX25  
If Part Is Nothing Then f(^? PGO  
MsgBox "请先打开或者新建SolidWorks Part" dOm@cs  
Exit Sub yBJf'-K  
End If s+@+<QE  
Set myModelView = Part.ActiveView k//l~A9m  
myModelView.FrameState = swWindowState_e.swWindowMaximized E^)>9f
7  
aDV~T24  
Dim sFileName As String fd{75J5%  
Dim fileConfig                  As String *Vbf;=Mb  
Dim fileDispName                As String
jf`QoK  
Dim fileOptions                 As Long H%LoI)w  
Dim swSketchMgr                 As SldWorks.SketchManager B#>7;xy>  
Dim swModel                     As SldWorks.ModelDoc2 \F$Vm'f_  
Dim swSketchPt()                As SldWorks.SketchPoint e ej:  
;i)NP X  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) x6i7x"  
#%~PNki  
If sFileName = "" Then DLigpid  
    MsgBox "没有选择txt数据文件", , "运行宏" @O!BQ^'hk#  
    Exit Sub |XDbf3^6  
End If Bb,l.w  
pk%%}tP<  
Dim x, y, z As Double u<VR;p:y  
Dim s #2/2Xv  
Dim n As Integer ~`xaBz0q  
Open sFileName For Input As #1 >/r^l)`9_f  
n = 0 %kHe
U=  
Do While Not EOF(1) AHo4% 5  
         Line Input #1, s c'wxCqnE   
         n = n + 1 w$aiVOjgT  
Loop }nsxo5WP  
Close #1 :t7M'BSm2z  
If n > 1024 Then T3_3k.,|  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" U_&v|2o#3  
    Exit Sub )YtdU(^J$  
End If w1Xe9'$Qb  
ReDim swSketchPt(n) ;kX:k~,]}>  
Open sFileName For Input As #1 0b)q,]l]  
Set swSketchMgr = Part.SketchManager aqw;T\GI+~  
    swSketchMgr.Insert3DSketch True S [$Os7  
    swSketchMgr.AddToDB = True `|rr<Tsy\  
    n = 0 g'%^-S ]  
    Do While Not EOF(1) <Z>p1S  
         Input #1, x -p-<mC@<&S  
         If EOF(1) Then "PK`Ca@`v  
         Exit Sub [X\<C '<  
         End If URo#0fV4C  
         Input #1, y gG,"wzj  
         If EOF(1) Then U2DE zr  
         Exit Sub q-3e^-S*  
         End If &gr)U3w  
         Input #1, z
xoYaL  
         n = n + 1 )LdS1%  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) q83!PI  
    Loop ] 'B4O1  
Close #1 >!gW]{  
End Sub

你好，解决了吗 9EU0R H  

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