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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 "yz\p,  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 fN4pG*D  
*g,?13Q_  
宏贴出来如下： kK1qFe?]  
-E500F*
b  
|,7J!7T(I  
Sub main() Z~,.l  
Dim swApp                       As SldWorks.SldWorks 2s4=%l  
Set swApp = Application.SldWorks xXx`a\i  
Set Part = swApp.ActiveDoc - dOT/%Ux  
Dim myModelView As Object hv"toszj\  
If Part Is Nothing Then GY",AL8f  
MsgBox "请先打开或者新建SolidWorks Part" \=@r1[d  
Exit Sub D}061~zb$  
End If *3ne(c
 
Set myModelView = Part.ActiveView rgYuF,BT.  
myModelView.FrameState = swWindowState_e.swWindowMaximized O\LW 8\M  
H4m6H)KOG  
Dim sFileName As String k41la?  
Dim fileConfig                  As String :1lE98=  
Dim fileDispName                As String xk*3,J6BK  
Dim fileOptions                 As Long V-cuG.  
Dim swSketchMgr                 As SldWorks.SketchManager t@u\ 4bv  
Dim swModel                     As SldWorks.ModelDoc2 QB.'8B_  
Dim swSketchPt()                As SldWorks.SketchPoint qbEj\ b[  
eb/V}%  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ommKf[h%i  
eTF8B<?  
If sFileName = "" Then 7XDV=PQ[  
    MsgBox "没有选择txt数据文件", , "运行宏" )*A,L%  
    Exit Sub ).]m@g:ew  
End If 1:Yt2]  
bg,}J/  
Dim x, y, z As Double [[e|GQ  
Dim s 
#c^Q<&B  
Dim n As Integer 8Wj=|Ow-q  
Open sFileName For Input As #1 w}Upa(dU  
n = 0 ZW?7g+P  
Do While Not EOF(1) ~^^ey17 
 
         Line Input #1, s yo*iv+l  
         n = n + 1 & .?HuK  
Loop L, {rMLM%  
Close #1 rEhf_[Dv  
If n > 1024 Then X}*o[;2G  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" vaj66nV  
    Exit Sub N4To#Q1w  
End If KCk?)Qv  
ReDim swSketchPt(n) mei_aN7zW  
Open sFileName For Input As #1 lkfFAwnc  
Set swSketchMgr = Part.SketchManager vs1Sh?O  
    swSketchMgr.Insert3DSketch True IMGqJc,7  
    swSketchMgr.AddToDB = True R1.sq(z`  
    n = 0 Nr"N\yOA/  
    Do While Not EOF(1) ]|N4 #4  
         Input #1, x X[Ek'=}  
         If EOF(1) Then iw fp'  
         Exit Sub BZ?W>'B%$  
         End If DLY
ZsWA,  
         Input #1, y }Hz-h4Z  
         If EOF(1) Then tHtV[We.:  
         Exit Sub #Q3PzDfj  
         End If #tZf>zrs  
         Input #1, z B~>cNj<  
         n = n + 1 qd+[ShrhqZ  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) _GO+fB/Q1  
    Loop {1MGb%xW  
Close #1 zw:C*sY  
End Sub

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