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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 f-G)pHm  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 WFiX=@SS  
*I)J%#  
宏贴出来如下： +i!5<nn  
d)emTXB(  
00.x*v  
Sub main() ."H;bfcL_  
Dim swApp                       As SldWorks.SldWorks  ]'`E  
Set swApp = Application.SldWorks {BmqUoZrC  
Set Part = swApp.ActiveDoc `XhH{*Q"X  
Dim myModelView As Object [Q0V5P~Q'  
If Part Is Nothing Then ^3TNj   
MsgBox "请先打开或者新建SolidWorks Part" a8f#q]TyQ  
Exit Sub U fyhd
 
End If 1!KROes4  
Set myModelView = Part.ActiveView \4L ur  
myModelView.FrameState = swWindowState_e.swWindowMaximized HMCLJ/  
iCPm7AU  
Dim sFileName As String pY`$k#5  
Dim fileConfig                  As String CtXbAcN2B  
Dim fileDispName                As String %(1OjfZc  
Dim fileOptions                 As Long 4kjfYf@A  
Dim swSketchMgr                 As SldWorks.SketchManager jZ|M$I3*  
Dim swModel                     As SldWorks.ModelDoc2 uhh7Ft#H  
Dim swSketchPt()                As SldWorks.SketchPoint )A$"COM4  
PqV F}  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) =3.dgtH  
G
Ln=*Dh#  
If sFileName = "" Then N<9 c/V  
    MsgBox "没有选择txt数据文件", , "运行宏" ^o{{kju  
    Exit Sub q1T)H2S  
End If z_!IA ] v  
=P]Z"Ok  
Dim x, y, z As Double {+WBi(=W  
Dim s -67Z!N  
Dim n As Integer =I`S7oF  
Open sFileName For Input As #1 |n/;x$Cb  
n = 0 8f9wUPr  
Do While Not EOF(1) #NW+t|E  
         Line Input #1, s UZI:st   
         n = n + 1 -Cs( 3[  
Loop Jh3  
Close #1 rO7_K>g?  
If n > 1024 Then Z*m^K%qJ  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 
Z 2N6r6  
    Exit Sub F qH))2  
End If Z)s !p  
ReDim swSketchPt(n) }PBme'kP  
Open sFileName For Input As #1 d}\]!x3t  
Set swSketchMgr = Part.SketchManager uu.X>agg  
    swSketchMgr.Insert3DSketch True l8FJ\5'M  
    swSketchMgr.AddToDB = True ]E-/}Ysz  
    n = 0 eUcbe33  
    Do While Not EOF(1) "V' r}>  
         Input #1, x '#7k9\  
         If EOF(1) Then ga;nM#/  
         Exit Sub 9\4x<*  
         End If h$&Tg_/'#D  
         Input #1, y ZAr6RRv ^  
         If EOF(1) Then 5@2Rl>B$  
         Exit Sub ]lwf6'  
         End If TcaW'&(K  
         Input #1, z
::>|[ND  
         n = n + 1 :}e<
  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) _LHbP=B  
    Loop Cw,a)XB  
Close #1 4 neZw'm  
End Sub

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

你好，解决了吗 ~rV$.:%va