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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 @+'-
ADX  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 gzBy?r> r  
\%/#x V  
宏贴出来如下： B;R.#^@/  
zUkN 0  
$={:r/R`i  
Sub main() t<T[h2Wd  
Dim swApp                       As SldWorks.SldWorks D'L'#/hK  
Set swApp = Application.SldWorks AS E91T~  
Set Part = swApp.ActiveDoc "jTKSgv+q5  
Dim myModelView As Object /&CmO>^e  
If Part Is Nothing Then c1$ngH0  
MsgBox "请先打开或者新建SolidWorks Part" b !%hH  
Exit Sub cTD!B% x  
End If 4|mD*o  
Set myModelView = Part.ActiveView gXonF'  
myModelView.FrameState = swWindowState_e.swWindowMaximized oY1';&BO9  
Ma'_e=+A  
Dim sFileName As String q(zJ%Gv)  
Dim fileConfig                  As String JYrY
[',u  
Dim fileDispName                As String txZ?=8j_Y  
Dim fileOptions                 As Long p8kr/uMP ;  
Dim swSketchMgr                 As SldWorks.SketchManager u)ev{)$TM  
Dim swModel                     As SldWorks.ModelDoc2 d"5oD@JG:  
Dim swSketchPt()                As SldWorks.SketchPoint |J+(:{}~  
n6*En7IVh  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) sf OHl  
4Ue_Y'LmM  
If sFileName = "" Then 4Sm]>%F':  
    MsgBox "没有选择txt数据文件", , "运行宏" GK9/D|h4  
    Exit Sub i `s|,"0o  
End If "S&@F/  
JCPUM*g8  
Dim x, y, z As Double 'WI^
nZM  
Dim s Mmo6MZ^  
Dim n As Integer J[A14z]#`  
Open sFileName For Input As #1 2u"7T_"2D  
n = 0 y.=/J8->  
Do While Not EOF(1) *?z0$Kz<,[  
         Line Input #1, s qS/V"|G(  
         n = n + 1 P+!
"wX0*N  
Loop Vo9F  
Close #1 'zEI;v  
If n > 1024 Then bn(`O1r[(  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" #Hvq/7a2R  
    Exit Sub E,wVe[0)f  
End If `C_jP|[e  
ReDim swSketchPt(n) K]qM~v<A  
Open sFileName For Input As #1 c9\2YKo  
Set swSketchMgr = Part.SketchManager :d0Y%vl  
    swSketchMgr.Insert3DSketch True {TO
mv  
    swSketchMgr.AddToDB = True :-iMdtm  
    n = 0 PN$X N<  
    Do While Not EOF(1) zW}[+
el}  
         Input #1, x '
DCFezdf3  
         If EOF(1) Then T1`|~Z?g-  
         Exit Sub ( 7ws{)  
         End If 8 F2|  
         Input #1, y #Ei,(xiP  
         If EOF(1) Then /Y&02L%\3s  
         Exit Sub |+:h|UIUQ  
         End If Xt{*N-v\  
         Input #1, z FVB;\'/  
         n = n + 1 kF{*(r=.o  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) g|Y] wd  
    Loop ?!=iu!J  
Close #1 4J|t?]ij|E  
End Sub

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