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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 Mk<m6E$L  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 n:F@gZd`  
aWdUu
id  
宏贴出来如下： ,Ie<'>hd  
6s'[{Ov  
[S%J*sz~  
Sub main() &.hoCPo$  
Dim swApp                       As SldWorks.SldWorks &/HoSj>HS  
Set swApp = Application.SldWorks 'wa g |-
  
Set Part = swApp.ActiveDoc <Uf|PFVj$  
Dim myModelView As Object dZF8R  
If Part Is Nothing Then 9-B@GFB;8  
MsgBox "请先打开或者新建SolidWorks Part" k@
7kNMl  
Exit Sub ehU"*9  
End If g/x_m.  
Set myModelView = Part.ActiveView S3;lKr  
myModelView.FrameState = swWindowState_e.swWindowMaximized *}7U`Aa  
%
z=`JhE"Q  
Dim sFileName As String b"^\)|*4;  
Dim fileConfig                  As String &
ryiG  
Dim fileDispName                As String {JTmP`&l  
Dim fileOptions                 As Long Ohc^d"[7  
Dim swSketchMgr                 As SldWorks.SketchManager #iiwD|  
Dim swModel                     As SldWorks.ModelDoc2 8*vFdoE_oO  
Dim swSketchPt()                As SldWorks.SketchPoint O /vWd"  
#T[%6(QW  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) f KHse$?_  
-E:(w<];  
If sFileName = "" Then -7
&?@M,u  
    MsgBox "没有选择txt数据文件", , "运行宏" h:
_NA  
    Exit Sub Mg+4huT  
End If 1PmX."a  
>n(F4C-pl  
Dim x, y, z As Double 3<+z46`?  
Dim s Q@3B{  
Dim n As Integer R#D#{cC(  
Open sFileName For Input As #1 8'+7i8e  
n = 0 uO"y`$C$_  
Do While Not EOF(1) &eU3(F`.  
         Line Input #1, s *]>])ms)  
         n = n + 1 DDWp4`CS|  
Loop  C[R`Ml  
Close #1 {|Bd?U;  
If n > 1024 Then 0Lx3]"v  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" %oR>Uo  
    Exit Sub 2!BsEvB(  
End If sx:Hv1d  
ReDim swSketchPt(n) 3Mur*tj#  
Open sFileName For Input As #1 G#|Hu;C6"  
Set swSketchMgr = Part.SketchManager $Vsy%gA<  
    swSketchMgr.Insert3DSketch True !n:uiwh  
    swSketchMgr.AddToDB = True jK e.gA  
    n = 0 4? v,wq  
    Do While Not EOF(1) fw
y"w  
         Input #1, x bK?MT]%}r  
         If EOF(1) Then sLZ>v  
         Exit Sub g[AA,@p+  
         End If zPHy2H$28  
         Input #1, y l!/!?^8|f  
         If EOF(1) Then $3]b>v  
         Exit Sub I'?6~Sn3  
         End If Z~_8P  
         Input #1, z ETe-  
         n = n + 1 tq0;^L  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) lYP~3wp99  
    Loop g1ytT%]  
Close #1 vcwK6G  
End Sub

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

你好，解决了吗 R5gado