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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 #p*OLQ3~  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 E jBEZL|_  
bg[q8IBCd
 
宏贴出来如下： m5f/vb4l  
j}S  
C6O1ype  
Sub main()  3]<$;[Q  
Dim swApp                       As SldWorks.SldWorks B2&fvv?  
Set swApp = Application.SldWorks jw#'f%*  
Set Part = swApp.ActiveDoc r~TiJ?8I  
Dim myModelView As Object U*v//@WbH  
If Part Is Nothing Then Lj({ T'f(  
MsgBox "请先打开或者新建SolidWorks Part" 4d9iAN  
Exit Sub `%F.]|Y0  
End If PS(9?rX#+  
Set myModelView = Part.ActiveView /gXli)  
myModelView.FrameState = swWindowState_e.swWindowMaximized o&gcFOM22  
CI$F#j  
Dim sFileName As String 5GT,:0  
Dim fileConfig                  As String A3yVT8  
Dim fileDispName                As String Y( D d7`c  
Dim fileOptions                 As Long Z4bN|\I
  
Dim swSketchMgr                 As SldWorks.SketchManager 6Z|/M6f  
Dim swModel                     As SldWorks.ModelDoc2 $U"/.Mh\  
Dim swSketchPt()                As SldWorks.SketchPoint 6"eGd"  
=@V4V} ?  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) )d0&iE`@  
K'N\"Y?>  
If sFileName = "" Then k`2 K?9\  
    MsgBox "没有选择txt数据文件", , "运行宏" BeaX 0#\  
    Exit Sub Mz+|~'R  
End If +z;xl-*[  
`=b*g24z[N  
Dim x, y, z As Double 4D9lZa}  
Dim s ANp4yy+  
Dim n As Integer 09%q
/-$  
Open sFileName For Input As #1 =<O{  
n = 0 !bT0kP$3}  
Do While Not EOF(1) _(J- MCY\  
         Line Input #1, s ^=E4~
22q  
         n = n + 1 9%kY8#%SV  
Loop {3`#? q^o'  
Close #1 nLQ 3s3@1>  
If n > 1024 Then VlXIM,
  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" Mwp#.du(  
    Exit Sub 1S0Hc5vw  
End If tN";o\!}  
ReDim swSketchPt(n) D\N-ye1LE  
Open sFileName For Input As #1 qV9`  
Set swSketchMgr = Part.SketchManager =@gH$Q_1  
    swSketchMgr.Insert3DSketch True .'5yFBS  
    swSketchMgr.AddToDB = True \TC&/'7}  
    n = 0 7b:oz3?PI  
    Do While Not EOF(1) L.l%EcW=,  
         Input #1, x #e+%;5\  
         If EOF(1) Then >xJt&jW-  
         Exit Sub a%*W^R9Ls  
         End If 0f;L!.eP  
         Input #1, y ' OdZ[AN  
         If EOF(1) Then Y?ZTl762  
         Exit Sub 91mXvQ:u  
         End If `k^ i#Nc>  
         Input #1, z ;=*b:y Y  
         n = n + 1 DtXXfp@;  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) w v9s{I{P  
    Loop !ny;YV  
Close #1 $-M1<?5  
End Sub

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