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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 J$j&j`  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 E6y/,s^~S_  
ZQsE07  
宏贴出来如下： 8/ZJkI  
VKS:d!}3E  
"Yq-s$
yBi  
Sub main() Q?I)1][ !"  
Dim swApp                       As SldWorks.SldWorks CNM/}|N^Si  
Set swApp = Application.SldWorks {jJUS>  
Set Part = swApp.ActiveDoc +\\*Iy'xK  
Dim myModelView As Object 2JUX29rER  
If Part Is Nothing Then D0us<9q  
MsgBox "请先打开或者新建SolidWorks Part" e
l;^cMY  
Exit Sub K:465r:  
End If rV[#4,}PF  
Set myModelView = Part.ActiveView yL_-w/a  
myModelView.FrameState = swWindowState_e.swWindowMaximized Y%anR|  
4~ZQsw`  
Dim sFileName As String 0F0V
JE  
Dim fileConfig                  As String A5F< <  
Dim fileDispName                As String f(|qE(  
Dim fileOptions                 As Long f&7SivS#  
Dim swSketchMgr                 As SldWorks.SketchManager L7wl3zG  
Dim swModel                     As SldWorks.ModelDoc2 ipw_AC~  
Dim swSketchPt()                As SldWorks.SketchPoint F,%q
G,  
]J~37 35]  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ;7K5Bo  
bxqXFy/I  
If sFileName = "" Then j<R,}nmD3\  
    MsgBox "没有选择txt数据文件", , "运行宏" {!o-
y=  
    Exit Sub h" P4  
End If />FrMz8;(  
Q`,D#V${D  
Dim x, y, z As Double ;]i&AAbj  
Dim s slDxsb  
Dim n As Integer gt';_
  
Open sFileName For Input As #1 *;,=x<  
n = 0 (|bMtT?"x  
Do While Not EOF(1) P@PZm  
         Line Input #1, s Ys+Dw-  
         n = n + 1 q4xB`G  
Loop |
Rhx&/  
Close #1 V/"XC3/n*  
If n > 1024 Then G|4vnIS  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" cx_[Y  
    Exit Sub ^ B=x-G.  
End If h<Yn0(.  
ReDim swSketchPt(n) OcQ_PE5\  
Open sFileName For Input As #1 ~V`D@-VND  
Set swSketchMgr = Part.SketchManager 6pLB`1[v  
    swSketchMgr.Insert3DSketch True -=Q_E^'  
    swSketchMgr.AddToDB = True MPAZ%<gmD  
    n = 0 /A9Mv%zjk  
    Do While Not EOF(1) ga4 gH>4  
         Input #1, x Bag2sk  
         If EOF(1) Then  +h9UV  
         Exit Sub uZ]B?Z%y#  
         End If bL)g+<:F  
         Input #1, y -E2[PW4$  
         If EOF(1) Then ::j'+_9  
         Exit Sub 9(|[okB  
         End If it&c ,+8  
         Input #1, z 95T%n{rz  
         n = n + 1 i\3BA"ZX  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) 0s
$g[Fw<.  
    Loop L}XEROTR  
Close #1 u5H#(&Om  
End Sub

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