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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 cIXqnb  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 [}?E,1Q3  
&bCk`]j:  
宏贴出来如下： s'k
} .}  
*XluVochrb  
9&OhCrxW-  
Sub main() [LKzH!  
Dim swApp                       As SldWorks.SldWorks
d5lD!  
Set swApp = Application.SldWorks '17V7A/t  
Set Part = swApp.ActiveDoc jFwJ1W;?-  
Dim myModelView As Object }ykc AK3U  
If Part Is Nothing Then 94u~:'t>V  
MsgBox "请先打开或者新建SolidWorks Part" D<Z]kR(  
Exit Sub W$Z8AZ{E  
End If ryt`yO  
Set myModelView = Part.ActiveView Md>9Daa~  
myModelView.FrameState = swWindowState_e.swWindowMaximized Kq}-)  
)W!\D/C+  
Dim sFileName As String  J?qikE&  
Dim fileConfig                  As String hU5_ dV  
Dim fileDispName                As String 3F{R$M}  
Dim fileOptions                 As Long \!Ap<  
Dim swSketchMgr                 As SldWorks.SketchManager ;Bne=vjQp  
Dim swModel                     As SldWorks.ModelDoc2 o:lMRP~  
Dim swSketchPt()                As SldWorks.SketchPoint kQO5sX$;  
Poxoc-s  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) (kSb74*g  
(
T=u_oe  
If sFileName = "" Then w9CX5Fg  
    MsgBox "没有选择txt数据文件", , "运行宏" Gn 1  
    Exit Sub 256V xn  
End If a*!9RQ  

9K=K,6 b  
Dim x, y, z As Double gmtS3,  
Dim s M8f[ck  
Dim n As Integer 8k?V&J
`  
Open sFileName For Input As #1 Nq[-.}Z6  
n = 0 8,]wOxwqi  
Do While Not EOF(1) 4}*V=>z  
         Line Input #1, s -hZw.eChQa  
         n = n + 1 *I`Eb7 ^  
Loop LN=#&7=$c  
Close #1 !1`f84
d  
If n > 1024 Then |5\: E}1  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" -;GB Xq  
    Exit Sub ){4$oXQ  
End If @g1T??h   
ReDim swSketchPt(n) ;tfGhHpQn  
Open sFileName For Input As #1 %WtF\p  
Set swSketchMgr = Part.SketchManager `i6q\-12n  
    swSketchMgr.Insert3DSketch True ~?KbpB|  
    swSketchMgr.AddToDB = True &IkHP/  
    n = 0 \d QRQL{LL  
    Do While Not EOF(1) VaTA|=[;  
         Input #1, x -8&P1jrI  
         If EOF(1) Then gg$:U  
         Exit Sub {1'M76T  
         End If tCQf `  
         Input #1, y XknbcA|  
         If EOF(1) Then KqWO9d?w.  
         Exit Sub 5[H1nC @C  
         End If bl4I4RB  
         Input #1, z HVNX"`]"  
         n = n + 1 +(oExp(!  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) @EUvx  
    Loop QX+&[G!DZH  
Close #1 [`bA,)y"  
End Sub

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