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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 jq+(2  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 D-gH_ff<]9  
4#$#x=:  
宏贴出来如下： 5UEZpxnv  
WZ CI*'
 
J@3,  
Sub main() Q0U~s\<  
Dim swApp                       As SldWorks.SldWorks 98[uRywI  
Set swApp = Application.SldWorks 1dH|/9  
Set Part = swApp.ActiveDoc l1+l@r\  
Dim myModelView As Object RTOA'|[0M  
If Part Is Nothing Then VBhUh~:Om  
MsgBox "请先打开或者新建SolidWorks Part" 9[0iIT$q$  
Exit Sub ZEqW*piI  
End If mQ[$U  
Set myModelView = Part.ActiveView {2\Y%Y'}*  
myModelView.FrameState = swWindowState_e.swWindowMaximized f}:C~L!  
aacy5E  
Dim sFileName As String qE
)FQeN  
Dim fileConfig                  As String "5hk%T'  
Dim fileDispName                As String _7Y h[I4  
Dim fileOptions                 As Long 1.3#PdMR,  
Dim swSketchMgr                 As SldWorks.SketchManager 7)Toj  
Dim swModel                     As SldWorks.ModelDoc2 1Bh"'9-!JT  
Dim swSketchPt()                As SldWorks.SketchPoint ,Z`}!%?  
\
""^
'pP@  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) iN;Pg_Kq  
6!<I'M'[e  
If sFileName = "" Then P>/:dt'GJ}  
    MsgBox "没有选择txt数据文件", , "运行宏" s(,S~  
    Exit Sub ]J7qs
Mw  
End If !cW rB9  
_4S^'FDo   
Dim x, y, z As Double o E+'@  
Dim s g4?2'G5m?  
Dim n As Integer X~{6$J|]#i  
Open sFileName For Input As #1 -U|c~Cqc  
n = 0 -cgO]q+Oq  
Do While Not EOF(1) 3smk
Y  
         Line Input #1, s 2#wnJdr6E  
         n = n + 1 i ;FKnK  
Loop 8v$q+Wic  
Close #1 V DF
gu  
If n > 1024 Then E|O&bUMh  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" N,~O+  
    Exit Sub ~D52b1f  
End If )V1X
L  
ReDim swSketchPt(n)  s*uA3}j  
Open sFileName For Input As #1 rj4@  
Set swSketchMgr = Part.SketchManager E7uIur=g!  
    swSketchMgr.Insert3DSketch True >* -IIo  
    swSketchMgr.AddToDB = True is.t,&H4P]  
    n = 0 Wf~^,]9N  
    Do While Not EOF(1) g)hEzL0k  
         Input #1, x iOfm:DTPr  
         If EOF(1) Then = 0 ~4k#  
         Exit Sub %4~"$kE  
         End If AL]gK)R  
         Input #1, y ^y5A\nz&  
         If EOF(1) Then JPI%{@Qc^  
         Exit Sub \u[x<-\/6  
         End If t{k:H4  
         Input #1, z }">r0v!3  
         n = n + 1 z'L0YqXG/  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) N/a4Gl(  
    Loop 2Bcc
E  
Close #1 zIa={tU  
End Sub

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