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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 |*5
=_vF  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 0%Ll  
r,1e 'd:  
宏贴出来如下： 7, } $u  
=uHnRY  
K5>p89mZ  
Sub main() ?%tMohL  
Dim swApp                       As SldWorks.SldWorks 1c4/}3*  
Set swApp = Application.SldWorks 4BL;FO  
Set Part = swApp.ActiveDoc jKIxdY:U  
Dim myModelView As Object &)d$t'7p  
If Part Is Nothing Then F9"w6;hh  
MsgBox "请先打开或者新建SolidWorks Part" $ ,Ck70_  
Exit Sub 4*n#yVb/  
End If S[3iA~)Z-  
Set myModelView = Part.ActiveView )-15 N  
myModelView.FrameState = swWindowState_e.swWindowMaximized %]gTm7 =t  
enS}A*Io  
Dim sFileName As String z4%uN|V  
Dim fileConfig                  As String f"[J"j8  
Dim fileDispName                As String #p(h]T32  
Dim fileOptions                 As Long BXms;[  
Dim swSketchMgr                 As SldWorks.SketchManager Kb#4ILA  
Dim swModel                     As SldWorks.ModelDoc2 a]17qMl  
Dim swSketchPt()                As SldWorks.SketchPoint \*hrW(   
 5^<h}u9  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) QfM zF  
!l?.5Pm])  
If sFileName = "" Then C&LBr|  
    MsgBox "没有选择txt数据文件", , "运行宏" lf{e[!ML'  
    Exit Sub rEhX/(n#  
End If lz#GbXn.  
>zsid:  
Dim x, y, z As Double ='ZRfb&  
Dim s *K!|@h{60  
Dim n As Integer u@'0Vk0zGH  
Open sFileName For Input As #1 W:,4:|3  
n = 0 ;h6v@)#GX  
Do While Not EOF(1) ;7]u!Q  
         Line Input #1, s (/!r(#K0,'  
         n = n + 1 =!O*/6rz  
Loop Q)m4_+,d  
Close #1 O<PO^pi  
If n > 1024 Then ]wT 7*( Y  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" Ac2(O6  
    Exit Sub N7'OPTKt&  
End If M#"524Nz  
ReDim swSketchPt(n) AqKz$  
Open sFileName For Input As #1 v 8T$ &-HJ  
Set swSketchMgr = Part.SketchManager 0N[&3Ee8  
    swSketchMgr.Insert3DSketch True (Fq5IGs  
    swSketchMgr.AddToDB = True K8n4oz#z  
    n = 0 T{V/+RM  
    Do While Not EOF(1) v(*C%.M)  
         Input #1, x Y$N)^=7  
         If EOF(1) Then H gTUy[(  
         Exit Sub I}e3zf>  
         End If U~h'*nV&  
         Input #1, y [U}+sTQ  
         If EOF(1) Then S)QAXjH  
         Exit Sub S6}@I ,Q  
         End If U4m9e|/H;z  
         Input #1, z ]{"Br
$  
         n = n + 1 F:*W5xX  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) ZX ?yL>4  
    Loop }X x(^Zh  
Close #1 56^+;^f^`  
End Sub

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