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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 ^EtMxF@D  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 ?mwt~_s9  
qOIyub  
宏贴出来如下： 75cW_t,g  
:}L[sl\R  
\+oQd=K@  
Sub main() EA@.,7F  
Dim swApp                       As SldWorks.SldWorks ExY]Sdx  
Set swApp = Application.SldWorks GfxZ'VIn  
Set Part = swApp.ActiveDoc 9|^2",V  
Dim myModelView As Object <.x{|p  
If Part Is Nothing Then h0*!;Z7  
MsgBox "请先打开或者新建SolidWorks Part" . oF &Ff/[  
Exit Sub e8>})  
End If -]N x,{  
Set myModelView = Part.ActiveView Maha$n*  
myModelView.FrameState = swWindowState_e.swWindowMaximized oA7tEu   
[`#CXq'  
Dim sFileName As String z\\[S@>pt  
Dim fileConfig                  As String
LiC*@W  
Dim fileDispName                As String 2.`\  
Dim fileOptions                 As Long &&5a
M  
Dim swSketchMgr                 As SldWorks.SketchManager m4[;(1  
Dim swModel                     As SldWorks.ModelDoc2 vONasD9At  
Dim swSketchPt()                As SldWorks.SketchPoint du $:jN\}  
CmP9Q2  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) L4@K~8j7  
bQzZy5,  
If sFileName = "" Then f&NgS+<K$  
    MsgBox "没有选择txt数据文件", , "运行宏" B+|Kjlt  
    Exit Sub P>y@kPi  
End If m<<+  
Q
GMV}y  
Dim x, y, z As Double pQyK={7?`  
Dim s bbDZ#DK"  
Dim n As Integer fF!Yp iI"  
Open sFileName For Input As #1 sf:,qD=z  
n = 0 ^rB8? kt  
Do While Not EOF(1) _>o:R$ %}  
         Line Input #1, s F#3Q_G^/  
         n = n + 1 aG-vtld  
Loop 3<e=g)F  
Close #1 z{%<<pZ  
If n > 1024 Then %e8@*~h@  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" [7:,?$tC  
    Exit Sub DHg:8%3x  
End If =eq[:K<6  
ReDim swSketchPt(n) 7zl5yKN  
Open sFileName For Input As #1 ,5P0S0*{  
Set swSketchMgr = Part.SketchManager O
0*p0J  
    swSketchMgr.Insert3DSketch True mtpeRVcF  
    swSketchMgr.AddToDB = True ^L,K& Jd  
    n = 0 8v6(qBK  
    Do While Not EOF(1) xBj9yu  
         Input #1, x dUD[e,?  
         If EOF(1) Then h,(26 y/s  
         Exit Sub ob!P;]T  
         End If xf'V{9*  
         Input #1, y ]E{NNHK%2N  
         If EOF(1) Then m=1N>cq '  
         Exit Sub nd`1m[7MNu  
         End If 4XL^D~V  
         Input #1, z OMky$d#  
         n = n + 1 3RUy,s  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) $o!zUH~'v  
    Loop 9V a}I
-  
Close #1 ^23~ZHu  
End Sub

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