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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 'Xik2PaO  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 c/Pql!h+  
It3k
#A0  
宏贴出来如下： 3EYEd39E  
EV6R[2kl  
Zj[m  
Sub main() S(.J  
Dim swApp                       As SldWorks.SldWorks >/-H!jUF]  
Set swApp = Application.SldWorks xd{.\!q.  
Set Part = swApp.ActiveDoc ,$`}Rf<  
Dim myModelView As Object JV_`E_!  
If Part Is Nothing Then HS|Gz3~  
MsgBox "请先打开或者新建SolidWorks Part" EMnz;/dMt  
Exit Sub c#x~x  
End If b_sasZo  
Set myModelView = Part.ActiveView <VZ43I  
myModelView.FrameState = swWindowState_e.swWindowMaximized 82FEl~,^E  
e6p3!)@P1  
Dim sFileName As String G-i2#S   
Dim fileConfig                  As String ZC2aIJ  
Dim fileDispName                As String t,LK92?  
Dim fileOptions                 As Long  0Y!"3bw|  
Dim swSketchMgr                 As SldWorks.SketchManager !84Lvg0&  
Dim swModel                     As SldWorks.ModelDoc2 ,R=!ts[qi  
Dim swSketchPt()                As SldWorks.SketchPoint )xf(4  
^+-QY\N j  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) hqeknTGsIn  
i;pg9Vw  
If sFileName = "" Then y# \"yykB  
    MsgBox "没有选择txt数据文件", , "运行宏" mNC?kp  
    Exit Sub bq5ySy{8  
End If i-w<5pGnf  
]2L11"erP  
Dim x, y, z As Double 0Gj/yra9MO  
Dim s Z:^<NdKe  
Dim n As Integer `yq) y>_  
Open sFileName For Input As #1 @[joM*U  
n = 0 FS8l}t  
Do While Not EOF(1) gna!Q  
         Line Input #1, s ommW  
         n = n + 1 *DcIC]ao[  
Loop Ho}*Bn~i
c  
Close #1 xBc$qjV
 
If n > 1024 Then d$o m\@  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 3<.DiY  
    Exit Sub o1 27? ^  
End If RF8,qz  
ReDim swSketchPt(n) &OFVqm^  
Open sFileName For Input As #1 iuqJPW^}  
Set swSketchMgr = Part.SketchManager m.6uLaD"!}  
    swSketchMgr.Insert3DSketch True $Vp&7OC]  
    swSketchMgr.AddToDB = True OWz{WV.  
    n = 0 i:N-Q)<Q*)  
    Do While Not EOF(1) ,h%n5R$:  
         Input #1, x !1S!)#  
         If EOF(1) Then %iPIgma  
         Exit Sub ~eTp( XG  
         End If aiX4;'$x!  
         Input #1, y ~Gc@#Msj  
         If EOF(1) Then zI"&g]TV5  
         Exit Sub Yrf?|,  
         End If `6Q+N=k~Z  
         Input #1, z .0>bnw  
         n = n + 1 s,C>l_4-  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) )jwovS?V  
    Loop CNj |vYj  
Close #1 eJ[+3Wh  
End Sub

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