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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 +ZZiZ&y  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 E RMh% C  
;\&7smE[  
宏贴出来如下： u YH{4%  
Qu;AU/Q<([  
fO(.I  
Sub main() `$#64UZ>U1  
Dim swApp                       As SldWorks.SldWorks iySmNI  
Set swApp = Application.SldWorks F%Mlid;1  
Set Part = swApp.ActiveDoc j5/H#_.  
Dim myModelView As Object 4< H-ol  
If Part Is Nothing Then XM=`(e o  
MsgBox "请先打开或者新建SolidWorks Part" `zsKc 6%  
Exit Sub UHCx}LGe  
End If 6U""TR!   
Set myModelView = Part.ActiveView cdGl[dQ/  
myModelView.FrameState = swWindowState_e.swWindowMaximized "thu@~aC  
H
[G EAQO  
Dim sFileName As String QR8F'7S  
Dim fileConfig                  As String 9g*~X;`2  
Dim fileDispName                As String <]!IC]+  
Dim fileOptions                 As Long 4a646jg)  
Dim swSketchMgr                 As SldWorks.SketchManager W&yw5rt**  
Dim swModel                     As SldWorks.ModelDoc2 #pVk%5N  
Dim swSketchPt()                As SldWorks.SketchPoint )1]C%)zn  
t)v#y!Ci"  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) -51L!x}1c  
! TRiFD  
If sFileName = "" Then gT+/CVj R  
    MsgBox "没有选择txt数据文件", , "运行宏" \Lc]6?,R  
    Exit Sub 8t
7hN?,t  
End If 4%]{46YnK  
4u&l@BUr  
Dim x, y, z As Double nh8h?&q|  
Dim s ;x7SY;0*  
Dim n As Integer LS_QoS  
Open sFileName For Input As #1 ']rh0?  
n = 0 Ri3m438  
Do While Not EOF(1)  v EX <9  
         Line Input #1, s x Dr^&rC  
         n = n + 1 !#?tA/t@  
Loop hQ\]vp7V  
Close #1 jjbw.n+1  
If n > 1024 Then JBg>E3*N  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" $i2gOz  
    Exit Sub ZcQm(my  
End If npe*A  
ReDim swSketchPt(n) CkflEmfe  
Open sFileName For Input As #1 8q0 .yhb  
Set swSketchMgr = Part.SketchManager k |Lm;g  
    swSketchMgr.Insert3DSketch True yZ  P
+  
    swSketchMgr.AddToDB = True q<UqGj7#   
    n = 0 V{*9fB#4L  
    Do While Not EOF(1) \"*l:x-u  
         Input #1, x ILpB:g  
         If EOF(1) Then W"0#  
         Exit Sub 2V0R|YUt  
         End If Rza\n8  
         Input #1, y *V\kS  
         If EOF(1) Then }1>a71  
         Exit Sub YA|*$$  
         End If HWd,1  
         Input #1, z n/6A@C  
         n = n + 1 +Q '|->#  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) n}+ DO6J  
    Loop '(Bs<)(H  
Close #1 ?|L)!LYx  
End Sub

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