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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 {}\CL#~y  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 >oqZ !V5[  
Y}.Ystem  
宏贴出来如下： h<3p8eB  
FH\CK  
=nhzMU9c\y  
Sub main() Tsz NlRxc  
Dim swApp                       As SldWorks.SldWorks *not.2+  
Set swApp = Application.SldWorks ,sDr9h/'C3  
Set Part = swApp.ActiveDoc PqEA
qP  
Dim myModelView As Object H/jm f5  
If Part Is Nothing Then $G[KT):N  
MsgBox "请先打开或者新建SolidWorks Part" 6k9LxC:M  
Exit Sub S< x:t(  
End If A3s57.Z]|  
Set myModelView = Part.ActiveView pP\h6b+B  
myModelView.FrameState = swWindowState_e.swWindowMaximized }ND'0*#  
aZgNPw  
Dim sFileName As String
6%?A>  
Dim fileConfig                  As String -1W  
Dim fileDispName                As String cyMs(21  
Dim fileOptions                 As Long ( V4G<-jG  
Dim swSketchMgr                 As SldWorks.SketchManager yWHne~!  
Dim swModel                     As SldWorks.ModelDoc2 F<r4CHfh;  
Dim swSketchPt()                As SldWorks.SketchPoint  
cht  
a:u}d7T3e  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) Y/P]5: =h  
3;y_mg  
If sFileName = "" Then 8]C1K Zs  
    MsgBox "没有选择txt数据文件", , "运行宏" AgsR-"uh  
    Exit Sub P<L&c_u  
End If l* Y[^'  
U;gp)=JNT  
Dim x, y, z As Double 
T.@s
q  
Dim s F< |c4  
Dim n As Integer iQ{z6Qa
 
Open sFileName For Input As #1 ~4^p}{  
n = 0 o?dR\cxj  
Do While Not EOF(1) !4B_$6US  
         Line Input #1, s o7arxo\  
         n = n + 1 ysVi3eq  
Loop Omb.53+  
Close #1 F[`vH  
If n > 1024 Then 0||F`24  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" NL-_#N$  
    Exit Sub qUg9$oh{LI  
End If e YDUon  
ReDim swSketchPt(n) "Q?_ EE
n  
Open sFileName For Input As #1 $rTu6(i1  
Set swSketchMgr = Part.SketchManager %^!aB  
    swSketchMgr.Insert3DSketch True MCHOK=G  
    swSketchMgr.AddToDB = True
B_tQeM  
    n = 0 Gl;
f#}  
    Do While Not EOF(1) InN{^uN  
         Input #1, x G1p'p&x.  
         If EOF(1) Then (HJ$lxk<2h  
         Exit Sub Y"oDFo,  
         End If k-vA#  
         Input #1, y QQq/5r4O`q  
         If EOF(1) Then dq2@6xd  
         Exit Sub %yKKUZ~  
         End If p2^)2v  
         Input #1, z `x*/UCy\  
         n = n + 1 yF;?Hg  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) ;L$,gn5H  
    Loop g41<8^(  
Close #1 1~L
\s}|2d  
End Sub

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