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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 .'NTy R  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 <m~{60{  
?JBA`,-  
宏贴出来如下： J,J6bfR/  
EiVVVmm!  
intl?&wC  
Sub main() *U-:2u
f  
Dim swApp                       As SldWorks.SldWorks VfwH:  
Set swApp = Application.SldWorks 3vdFO: j  
Set Part = swApp.ActiveDoc l{*Ko~g  
Dim myModelView As Object 0Oa&vx  
If Part Is Nothing Then kH`?^^_yJ  
MsgBox "请先打开或者新建SolidWorks Part" *fz#B/_o  
Exit Sub Yl=-
j  
End If )iid9K<HB  
Set myModelView = Part.ActiveView M 5$JBnN  
myModelView.FrameState = swWindowState_e.swWindowMaximized TfHL'u9B  
^^F 8M0k3  
Dim sFileName As String frc9  
Dim fileConfig                  As String HPg%v|  
Dim fileDispName                As String _l2_) ~  
Dim fileOptions                 As Long LTB rg[X  
Dim swSketchMgr                 As SldWorks.SketchManager Q\>mg*79  
Dim swModel                     As SldWorks.ModelDoc2 {< EPm&q  
Dim swSketchPt()                As SldWorks.SketchPoint 2.vmZaKP  
GWLdz0`2_  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) b1;h6AeL  
;y-:)7J  
If sFileName = "" Then = 5[%%Lf  
    MsgBox "没有选择txt数据文件", , "运行宏" 7 IJn
9b  
    Exit Sub _%Yi^^  
End If 8nWPt!U:  
'$rCV,3q  
Dim x, y, z As Double ?J-
\}X  
Dim s 5{#s<%b.  
Dim n As Integer "$D'gSoYe  
Open sFileName For Input As #1 /;{L~f=et)  
n = 0 0+u>"7T  
Do While Not EOF(1) ,Xr`tQ<@  
         Line Input #1, s 9dm<(I}  
         n = n + 1 H_Xk;fM  
Loop ^;F5ymb3U  
Close #1 ]
0BX5Z'  
If n > 1024 Then A}}dc:$C  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" <sw=:HU  
    Exit Sub j dz IU  
End If |5ge4,}0  
ReDim swSketchPt(n) f:y1eLl3  
Open sFileName For Input As #1 'Ebjn>"  
Set swSketchMgr = Part.SketchManager oz]&=>$1I  
    swSketchMgr.Insert3DSketch True O;i0xWUh  
    swSketchMgr.AddToDB = True ;)wk^W  
    n = 0 UR9\g(  
    Do While Not EOF(1) l}r9kS  
         Input #1, x ~mwIr  
         If EOF(1) Then 8!HB$vdw7  
         Exit Sub 7\[fjCg\w  
         End If -Sn'${2  
         Input #1, y TI\xCIH  
         If EOF(1) Then MT:VQ>fC  
         Exit Sub cA|vH^:  
         End If gFrNk Uqp  
         Input #1, z >]&Ow9-  
         n = n + 1 bC~I}^i\  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) %K.rrn M  
    Loop 2Q\\l @b\  
Close #1 MJrPI a[pN  
End Sub

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

你好，解决了吗 Bf]Bi~w<