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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 D#<y pJR  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 ZJ{DW4#t  
3@=<4$  
宏贴出来如下： vGyQ306  
v.W!  
\y7?w*K  
Sub main() r)S:=Is5  
Dim swApp                       As SldWorks.SldWorks &m5^ YN$b  
Set swApp = Application.SldWorks #:" ]-u^  
Set Part = swApp.ActiveDoc /eHf8l  
Dim myModelView As Object ;d<XcpK}  
If Part Is Nothing Then *{?2M6Z  
MsgBox "请先打开或者新建SolidWorks Part" EG\L]fmD  
Exit Sub Wqv7  
End If v Z10Rb8  
Set myModelView = Part.ActiveView il>+jVr  
myModelView.FrameState = swWindowState_e.swWindowMaximized |!K&h(J|  
No\#N/1@P  
Dim sFileName As String #4|RaI|.  
Dim fileConfig                  As String L^e*_q2d:>  
Dim fileDispName                As String s-*N_Dv  
Dim fileOptions                 As Long V.3#O^S  
Dim swSketchMgr                 As SldWorks.SketchManager
TJNE2  
Dim swModel                     As SldWorks.ModelDoc2 ;s3@(OnjZ  
Dim swSketchPt()                As SldWorks.SketchPoint @dQr^'h  
9>+>s ?IgK  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) (NUX
K  
g{DOQA  
If sFileName = "" Then NH/jkt&F[  
    MsgBox "没有选择txt数据文件", , "运行宏" leHKBu'd  
    Exit Sub _x5-!gK  
End If <=uO*s>%  
ip'v<%,Q3"  
Dim x, y, z As Double Jur$O,u40l  
Dim s @uC
-dXA"  
Dim n As Integer M/V"Ke"N  
Open sFileName For Input As #1 P
9\y~W  
n = 0 :xq^T  
Do While Not EOF(1) Bptt"  
         Line Input #1, s N
cHCcc  
         n = n + 1 #O^zA`D   
Loop Ql7opl,  
Close #1 21$^k
5  
If n > 1024 Then hW,GsJ,  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 3!;o\bgK  
    Exit Sub ZbH6$2r  
End If ^R\5'9K!  
ReDim swSketchPt(n) unL1/JY z  
Open sFileName For Input As #1 \i~5H]?d  
Set swSketchMgr = Part.SketchManager 9LQy0Gx  
    swSketchMgr.Insert3DSketch True Rpcnpo  
    swSketchMgr.AddToDB = True =L$RY2S"  
    n = 0 6O5E4=  
    Do While Not EOF(1) AO$aWyI  
         Input #1, x j@Us7Q)A(  
         If EOF(1) Then *|+ ~V/#  
         Exit Sub bv[*jr;45  
         End If t[%=[pJHW  
         Input #1, y RkdAzv!Y7  
         If EOF(1) Then /?j^Qu  
         Exit Sub >fR#U"KPAB  
         End If d\z':d.Tt  
         Input #1, z *7Sg8\wDn  
         n = n + 1 BcGQpv&x  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) ]*S_fme  
    Loop /|e"0
;{  
Close #1 Qzk/oHs  
End Sub

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

你好，解决了吗 B 9]sSx