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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 +1yi{!j1  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 R=a4zVQ  
T<>B5G~%  
宏贴出来如下： OAiW8BAe  
bJ 6ivz  
451.VI}MR  
Sub main() RLL ph  
Dim swApp                       As SldWorks.SldWorks ?[bE/Ya+S  
Set swApp = Application.SldWorks <]%6x[  
Set Part = swApp.ActiveDoc `WCL-OoZc5  
Dim myModelView As Object 9 4H')(  
If Part Is Nothing Then />8A?+g9u  
MsgBox "请先打开或者新建SolidWorks Part" qHgtd+ I  
Exit Sub B%u[gN
Z  
End If o~y{9Q  
Set myModelView = Part.ActiveView V.$tq  
myModelView.FrameState = swWindowState_e.swWindowMaximized ><IWF#kUA  
:+>7m  
Dim sFileName As String f4AN"rW  
Dim fileConfig                  As String Q_fgpjEh/t  
Dim fileDispName                As String RFS}!_t+|  
Dim fileOptions                 As Long FsO-xG"@"  
Dim swSketchMgr                 As SldWorks.SketchManager T?[;ej:  
Dim swModel                     As SldWorks.ModelDoc2 Wk3-J&QbS  
Dim swSketchPt()                As SldWorks.SketchPoint @$5~`?  
4P)#\$d:  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ]D5Maid+  
3)CIqN  
If sFileName = "" Then }&7kT7ogO  
    MsgBox "没有选择txt数据文件", , "运行宏" 2.Ww(`swL  
    Exit Sub Z
@x&  
End If 2 KH
T!ik  
bcT_YFLQ  
Dim x, y, z As Double 3 ;F  
Dim s 2+)h!y]  
Dim n As Integer mT@Gf>}/A  
Open sFileName For Input As #1 D}}?{pe  
n = 0 E Lq1   
Do While Not EOF(1) bG"FN/vg  
         Line Input #1, s 3k>#z%//  
         n = n + 1 :epB:r  
Loop e~)4v  
Close #1 5QXU"kWH  
If n > 1024 Then QaEiPn~  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" jCtk3No  
    Exit Sub Bx}"X?%S  
End If +?3RC$jyw  
ReDim swSketchPt(n) `%#_y67v  
Open sFileName For Input As #1 OOI
p)=4  
Set swSketchMgr = Part.SketchManager ZHeue_~x4  
    swSketchMgr.Insert3DSketch True paN=I=:*M  
    swSketchMgr.AddToDB = True Hr}"g@ <  
    n = 0 h7K,q S  
    Do While Not EOF(1) "38<14V
 
         Input #1, x MW+DqT.h  
         If EOF(1) Then 2<n18-|OQ  
         Exit Sub )$f?v22  
         End If ,Iz9!i J"  
         Input #1, y bvZD@F`2  
         If EOF(1) Then AIQ {^:  
         Exit Sub u:(=gj,~
x  
         End If p}!)4EI=  
         Input #1, z n2AoEbd  
         n = n + 1 ./7-[d  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) 6K8v:yYPa  
    Loop S3U]AH)C  
Close #1 O{byMV{Ou  
End Sub

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