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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 sFT-aLpL@V  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 $NWXn,Y'  
&CV%+  
宏贴出来如下： [x kbzJ  
^uD r
  
 ?;ZTJ  
Sub main() 4'cdV0]  
Dim swApp                       As SldWorks.SldWorks 2bPrND\P=  
Set swApp = Application.SldWorks K|[[A)tt6  
Set Part = swApp.ActiveDoc `$ql>k-6C  
Dim myModelView As Object <w}YD @(f  
If Part Is Nothing Then 3<88j&9  
MsgBox "请先打开或者新建SolidWorks Part"  {F+7> X  
Exit Sub Jlj=FA`  
End If U,_uy@fE=?  
Set myModelView = Part.ActiveView /59jkcA+  
myModelView.FrameState = swWindowState_e.swWindowMaximized =6y4*f  
/. k4Y  
Dim sFileName As String qL/4mM0  
Dim fileConfig                  As String O-[lL"T  
Dim fileDispName                As String Eaf6rjD  
Dim fileOptions                 As Long N,0l5fD~T  
Dim swSketchMgr                 As SldWorks.SketchManager swss#?.se  
Dim swModel                     As SldWorks.ModelDoc2 9%^q?S/Rv  
Dim swSketchPt()                As SldWorks.SketchPoint 0 XxU1w8\V  
{dM18;  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) .DR^<Qy  
0>} FNRC  
If sFileName = "" Then t:B~P,r  
    MsgBox "没有选择txt数据文件", , "运行宏"  yr9%,wwN  
    Exit Sub J!b v17H"  
End If -r)Q|U  
gXBC= ?jl  
Dim x, y, z As Double 1:h{( %`&  
Dim s _Q_"_*e  
Dim n As Integer P~HzNC  
Open sFileName For Input As #1 TPEg>[  
n = 0 F)Oe
;z6  
Do While Not EOF(1) Xxhzzm-B  
         Line Input #1, s TUuw  
         n = n + 1 q,w8ca4~y  
Loop owM3Gz%?UA  
Close #1 ,Dd )=  
If n > 1024 Then wqEO+7)S  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" 4iMo&E<  
    Exit Sub "Qj;pqR  
End If iPgewjx  
ReDim swSketchPt(n) FRqJ#yd]  
Open sFileName For Input As #1 =|_:H$94  
Set swSketchMgr = Part.SketchManager 5i `q  
    swSketchMgr.Insert3DSketch True ^x8*]Sz#x  
    swSketchMgr.AddToDB = True ' P5ttI#|  
    n = 0 :)hS-*P  
    Do While Not EOF(1) `}<x"f7.z  
         Input #1, x +ExXhT  
         If EOF(1) Then @AET.qGC  
         Exit Sub >1u!(-A  
         End If -]HPDN,OB  
         Input #1, y fl%X>\i/7  
         If EOF(1) Then k@vN_U
n  
         Exit Sub 0wL-Ak#v  
         End If l-4+{6lz  
         Input #1, z HQqnJ;ns<  
         n = n + 1 %zDh07VT\  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) ?XO
l>IO  
    Loop |-t>_+. J'  
Close #1 @)nxX))a  
End Sub

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