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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 cp.c$  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 5P~{*of  
GUyMo@g  
宏贴出来如下： x]o~ %h$  
5.!iVyN  
kj_o I5<'  
Sub main() "&(
.Z(  
Dim swApp                       As SldWorks.SldWorks n$B SO  
Set swApp = Application.SldWorks 5etbJk  
Set Part = swApp.ActiveDoc Wt=QCutt  
Dim myModelView As Object 2LS
03 27  
If Part Is Nothing Then AA[(rw  
MsgBox "请先打开或者新建SolidWorks Part"
:D(4HXHK%  
Exit Sub 297X).  
End If _7df(+.{<A  
Set myModelView = Part.ActiveView @H%)!f]zWt  
myModelView.FrameState = swWindowState_e.swWindowMaximized E`68Z/%  
JL0>-kg  
Dim sFileName As String >*/\Pg6^  
Dim fileConfig                  As String  Er( I6  
Dim fileDispName                As String )EQWc0iKG  
Dim fileOptions                 As Long qRk&bF/  
Dim swSketchMgr                 As SldWorks.SketchManager =.197)e  
Dim swModel                     As SldWorks.ModelDoc2 nn'a`N  
Dim swSketchPt()                As SldWorks.SketchPoint NN(ZH73  
dO/iL7K&  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) ^
Pqj*k+F  
z0=(l?)#  
If sFileName = "" Then ~,j52obR6Z  
    MsgBox "没有选择txt数据文件", , "运行宏" 5
[<"_  
    Exit Sub kY d'6+m  
End If YC(7k7  
"9W]TG  
Dim x, y, z As Double iZsZSW \  
Dim s qPle=6U[IL  
Dim n As Integer 9t)A_}O  
Open sFileName For Input As #1 BPgY_f  
n = 0 OCR`1  
Do While Not EOF(1) (C{l4  
         Line Input #1, s M*XAyo4fI  
         n = n + 1 y.h2hv]Bc  
Loop }4'5R  
Close #1 2% ],0,o  
If n > 1024 Then 9g%1^$R  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" aMaICM  
    Exit Sub ]B8`b  
End If 3<Qe'd ^  
ReDim swSketchPt(n) +fh@m h0[  
Open sFileName For Input As #1 `" B
FvF#  
Set swSketchMgr = Part.SketchManager T!-*;yu  
    swSketchMgr.Insert3DSketch True X/< zxM  
    swSketchMgr.AddToDB = True b
$7p`Ay  
    n = 0 c~1+5&  
    Do While Not EOF(1) )Z4i

lpU,  
         Input #1, x 9]u=b\fzZ  
         If EOF(1) Then 'mwgHo<u  
         Exit Sub 5UWj#|t  
         End If FA5|`  
         Input #1, y jh7-Fl
`  
         If EOF(1) Then AkMP)\Q  
         Exit Sub 6z-ZJ|?  
         End If gX29
c  
         Input #1, z FM{^ND9x  
         n = n + 1 18*M  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) &m{SWV+  
    Loop S10"yhn(-t  
Close #1 YK xkO  
End Sub

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