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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 3sBWtz  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 k'$7RjCu  
~l+~MB  
宏贴出来如下： ]Gl_L7u`  
}J5iY0  
z"5e3w  
Sub main() ,[m4+6G5  
Dim swApp                       As SldWorks.SldWorks Rpcnpo  
Set swApp = Application.SldWorks $o\Uq  
Set Part = swApp.ActiveDoc Cyv_(Oh?dv  
Dim myModelView As Object ~$a%& ]\  
If Part Is Nothing Then VyU!r* o  
MsgBox "请先打开或者新建SolidWorks Part" !oV'  
Exit Sub bVRxGn @l  
End If /9y'UKl7[  
Set myModelView = Part.ActiveView a(o[ bH.|;  
myModelView.FrameState = swWindowState_e.swWindowMaximized /7*qaG  
1?+)T%"  
Dim sFileName As String AMgvk`<f  
Dim fileConfig                  As String Q6Zh%\+h(  
Dim fileDispName                As String '\m\$ {  
Dim fileOptions                 As Long Us9$,(3  
Dim swSketchMgr                 As SldWorks.SketchManager =7P; /EV  
Dim swModel                     As SldWorks.ModelDoc2 N_!
Zn"J  
Dim swSketchPt()                As SldWorks.SketchPoint ;+qP
V7Z  
Dc>)js|"  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) CQY/q@7  

YpZ9h
@,  
If sFileName = "" Then qpc
2;3*7  
    MsgBox "没有选择txt数据文件", , "运行宏" 8
<^6<c  
    Exit Sub ;Wr,VU]  
End If Z42v@?R.!W  
d>4e9M"  
Dim x, y, z As Double "=!
QSb  
Dim s &sA6o"h~  
Dim n As Integer $j}sxxTT  
Open sFileName For Input As #1 b_Ky@kp  
n = 0 >-y&k^a=  
Do While Not EOF(1) G@Zi3 5  
         Line Input #1, s f{Y|FjPp=E  
         n = n + 1 tbv6-)Hs  
Loop !c`Q?aGV)  
Close #1 "/XS3sv"s  
If n > 1024 Then <^ )0M  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" -+I! (?  
    Exit Sub vDOeBw=  
End If dl$l5z\  
ReDim swSketchPt(n) &akMj@4;R  
Open sFileName For Input As #1 U14dQ=~b/  
Set swSketchMgr = Part.SketchManager VZlvmN  
    swSketchMgr.Insert3DSketch True +Vf|YLbhJ  
    swSketchMgr.AddToDB = True yZ)ScB^  
    n = 0 #XY]@V
\  
    Do While Not EOF(1) |]\bgh  
         Input #1, x zB]T5]  
         If EOF(1) Then (&hX8  
         Exit Sub Iq}h}Wd  
         End If u#UeJuO  
         Input #1, y ez5`B$$  
         If EOF(1) Then 'IW+
"o  
         Exit Sub w./EJkKI  
         End If Oc'z?6axWv  
         Input #1, z Yh%wf3 UEO  
         n = n + 1 @Q1jH~t  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) S+>]8ZY  
    Loop Sf'5/9<DW+  
Close #1 O.}gG6u5  
End Sub

你好，解决了吗 q |^O  

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