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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 Pw"-S?`(  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 ^8N}9a  
`7V]y-  
宏贴出来如下： .Vvx
,>>D  
Ean5b>\  
],Do6 @M-  
Sub main() ^o&. fQ*  
Dim swApp                       As SldWorks.SldWorks q#9RW(o  
Set swApp = Application.SldWorks v;D~Pa  
Set Part = swApp.ActiveDoc H8}oIA"b  
Dim myModelView As Object 7?w*]  
If Part Is Nothing Then HvJs1)Wo&  
MsgBox "请先打开或者新建SolidWorks Part" _g"<UV*H  
Exit Sub F0Yd@Lk$_  
End If 5D//*}b,  
Set myModelView = Part.ActiveView p}U ~+:v  
myModelView.FrameState = swWindowState_e.swWindowMaximized {8bSB.?R  
a~y'RyA  
Dim sFileName As String :nOFR$W  
Dim fileConfig                  As String }y gD3:vN7  
Dim fileDispName                As String DT&@^$?  
Dim fileOptions                 As Long
LsU9 .  
Dim swSketchMgr                 As SldWorks.SketchManager }9}h*RWm  
Dim swModel                     As SldWorks.ModelDoc2 0*{%=M  
Dim swSketchPt()                As SldWorks.SketchPoint ^v7gIC  
&`2)V;t  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) m#\dSl}  
UH"%N)[  
If sFileName = "" Then 88wa7i*  
    MsgBox "没有选择txt数据文件", , "运行宏" _L=h0H l  
    Exit Sub YNsJZnGr8#  
End If Jij*x>K>y  
8VXH+5's  
Dim x, y, z As Double ' %o#q6O  
Dim s >(t6.=  
Dim n As Integer %| Lfuz*  
Open sFileName For Input As #1 sdw(R#GE  
n = 0 j*r{2f4Rt  
Do While Not EOF(1) yEE*B:  
         Line Input #1, s t'k$&l}+  
         n = n + 1 T{[=oH+  
Loop U z>+2m(  
Close #1 bY~pc\V:`w  
If n > 1024 Then u;2[AQ.  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" #!+:!_45  
    Exit Sub {;6`_-As%  
End If a<bwzX|.  
ReDim swSketchPt(n) u.xnOcOH!  
Open sFileName For Input As #1 ?^\|-Gr  
Set swSketchMgr = Part.SketchManager &&>ekG9@  
    swSketchMgr.Insert3DSketch True p H2Sbs:Tk  
    swSketchMgr.AddToDB = True pIqeXY  
    n = 0 Y`a3tO=Pd  
    Do While Not EOF(1) z!9-
:  
         Input #1, x 86F1.ve  
         If EOF(1) Then I9ep`X6Y  
         Exit Sub ePo}y])2  
         End If n/mG|)Xt  
         Input #1, y Q hO!Ma]  
         If EOF(1) Then ]~3V}z,T*  
         Exit Sub aAUvlb  
         End If +@wDqc  
         Input #1, z 6qnzBA7  
         n = n + 1 Z/+#pWBI!  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) zIAD9mQex  
    Loop 0flRh)[J  
Close #1 $*fMR,~t&  
End Sub

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

你好，解决了吗 e$rZ5X