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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 bKRz=$P?  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 $iu{u|VSu  
cOkjeHs 5  
宏贴出来如下： ^@5#jS2  
~"6/OJA  
+n_`*@SE  
Sub main() KjFNb;mM  
Dim swApp                       As SldWorks.SldWorks n%yMf!M .:  
Set swApp = Application.SldWorks nK=-SQ  
Set Part = swApp.ActiveDoc 1#9qP~#]'{  
Dim myModelView As Object yU`"]6(@[  
If Part Is Nothing Then 4Qh\3UL~  
MsgBox "请先打开或者新建SolidWorks Part" l?F
-w;wHN  
Exit Sub >T: Yp<  
End If Pp.qDkT  
Set myModelView = Part.ActiveView O%?noW  
myModelView.FrameState = swWindowState_e.swWindowMaximized $Pv;>fHu  
=iF}41a  
Dim sFileName As String & c a-  
Dim fileConfig                  As String I[E/)R{\  
Dim fileDispName                As String /|v:$iH,C  
Dim fileOptions                 As Long YbjeM6#E  
Dim swSketchMgr                 As SldWorks.SketchManager 0kEzi  
Dim swModel                     As SldWorks.ModelDoc2 lW}"6@0,  
Dim swSketchPt()                As SldWorks.SketchPoint 4|i.b?"  
,-,BtfE3  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) :y#KR\T1  
f~nAJ+m=  
If sFileName = "" Then BCN
<l +u  
    MsgBox "没有选择txt数据文件", , "运行宏" ?L.c~w;l  
    Exit Sub Byq4PX%B  
End If g!%C_AI   
57
W4E{A  
Dim x, y, z As Double H
3< `

 
Dim s ~&)  
Dim n As Integer g_{hB5N](7  
Open sFileName For Input As #1 DSiI%_[Ud  
n = 0 cEzWIS?pp\  
Do While Not EOF(1) =pHW
qGOD  
         Line Input #1, s 2Hltgt,  
         n = n + 1 ^3`CP4DT  
Loop :$eg{IXC"  
Close #1 'uAH, .B  
If n > 1024 Then 5<1,`Bq@  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 1~X~"M  
    Exit Sub -?)` OHc^  
End If 7kbeAJ+{  
ReDim swSketchPt(n) r[2N;U  
Open sFileName For Input As #1 6uW
zv~!*D  
Set swSketchMgr = Part.SketchManager w783e  
    swSketchMgr.Insert3DSketch True JUBihw4  
    swSketchMgr.AddToDB = True hN% h.
;s  
    n = 0 mG;Gt=4  
    Do While Not EOF(1) K.CwtUt`54  
         Input #1, x ZT@a2:&  
         If EOF(1) Then 4.@gV/U(|  
         Exit Sub P=ARttT`(  
         End If t%jB[w&,os  
         Input #1, y 6wV{}K^0  
         If EOF(1) Then @r.u8e)l  
         Exit Sub P(N$U^pj  
         End If ?<@yo&)  
         Input #1, z ?V|t7^+:  
         n = n + 1 Mq7d*
Bgb  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) S].=gR0:  
    Loop z;x1p)(xt  
Close #1 adEcIvN$  
End Sub

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