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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 OiEaVPSI;  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 !e"m*S.(6{  
]_xGVwem  
宏贴出来如下： QD VA*6F  
?
G<IN)  
qc"/T16M]  
Sub main() OWfj<#}t+  
Dim swApp                       As SldWorks.SldWorks TmAb! Y|F  
Set swApp = Application.SldWorks YVp0}m  
Set Part = swApp.ActiveDoc -7VV5W  
Dim myModelView As Object 1vudT&  
If Part Is Nothing Then Pg C]@Q%  
MsgBox "请先打开或者新建SolidWorks Part" JY8pV+q @=  
Exit Sub $gK>R5^G>  
End If X1D:{S[  
Set myModelView = Part.ActiveView Fpwh.R:yV  
myModelView.FrameState = swWindowState_e.swWindowMaximized h!%`odl%  
%d\+(:uu/  
Dim sFileName As String *heQ@ww  
Dim fileConfig                  As String 7)wq9];w  
Dim fileDispName                As String ,dMi+c`
ax  
Dim fileOptions                 As Long F
a^]\:  
Dim swSketchMgr                 As SldWorks.SketchManager DTVnQC  
Dim swModel                     As SldWorks.ModelDoc2 ee` =B  
Dim swSketchPt()                As SldWorks.SketchPoint r26Wysi~%  
~Nh7C b_  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) v]S8!wU  
.;6bMP[YA  
If sFileName = "" Then >9|+F[Fc  
    MsgBox "没有选择txt数据文件", , "运行宏" =R`2m  
    Exit Sub
>;
?97'M  
End If 7s3<}  
VH65=9z  
Dim x, y, z As Double V#KM~3e  
Dim s &>t1A5  
Dim n As Integer "// 8^e%Xo  
Open sFileName For Input As #1 e|y~q0Q$  
n = 0 QV1%Zou  
Do While Not EOF(1) 2 G{KpM&  
         Line Input #1, s HEN9D/O=  
         n = n + 1 OPjh"Hv  
Loop wyM3|%RZ  
Close #1 a@1gMZc*  
If n > 1024 Then n_glYSV!  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" JwcP[w2  
    Exit Sub +R$KEGu~0Y  
End If Zv7)+Q  
ReDim swSketchPt(n) Vtri"G8 aB  
Open sFileName For Input As #1 _;W|iUreb  
Set swSketchMgr = Part.SketchManager z0Hh8*  
    swSketchMgr.Insert3DSketch True hiuPvi}  
    swSketchMgr.AddToDB = True u1<kdTxA N  
    n = 0 VUy 1?n  
    Do While Not EOF(1) cKAl 0_[f"  
         Input #1, x eD0@n :  
         If EOF(1) Then H\vO0 <X  
         Exit Sub XwMC/]lK<  
         End If |{Q,,<C  
         Input #1, y ^;bkU|(`6  
         If EOF(1) Then Jsl,r+'H  
         Exit Sub 0g\&3EvD  
         End If Fsh-a7Qp  
         Input #1, z oY:>pxSz<@  
         n = n + 1 U>XGJQ<NS  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) y5}|Y{5  
    Loop @hPbD?)M  
Close #1 0Jr<>7Q1  
End Sub

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

你好，解决了吗 tznT*EQr