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

sw菜鸟一枚，看到论坛上有人发了一个同一个文件夹中批量导入txt画曲线的宏 BNF*1JO  
现在需要把这个宏稍微改动下，在sw中一个文件夹中批量导入txt并生成xyz曲线，请大侠们出手改动下原帖中的宏。 3:G$Y:#P  
V'gJtF  
宏贴出来如下： ]imVIu  
C>'G?  
1KY0hAx  
Sub main() +V(^"Z~  
Dim swApp                       As SldWorks.SldWorks &Nh zEl1  
Set swApp = Application.SldWorks A|4om=MO  
Set Part = swApp.ActiveDoc E=CAWj\  
Dim myModelView As Object lXF7)H&T  
If Part Is Nothing Then -L4G)%L\  
MsgBox "请先打开或者新建SolidWorks Part" 6.a5%:  
Exit Sub op/_:#&'  
End If MGq\\hLD\-  
Set myModelView = Part.ActiveView i=*H|)  
myModelView.FrameState = swWindowState_e.swWindowMaximized m+(g.mvK>  
XjCx`bX^<  
Dim sFileName As String 'sXrtl7{^  
Dim fileConfig                  As String R?;mu^B  
Dim fileDispName                As String
b`$qKO  
Dim fileOptions                 As Long pg!MtuC}  
Dim swSketchMgr                 As SldWorks.SketchManager mQ<4(qd)  
Dim swModel                     As SldWorks.ModelDoc2 Phk3Jv  
Dim swSketchPt()                As SldWorks.SketchPoint H3*]}=  
zc=G4F01  
sFileName = swApp.GetOpenFileName("", "", "文本文件(*.txt) | *.txt", fileOptions, fileConfig, fileDispName) by0K:*C  
V9SL96'[I  
If sFileName = "" Then )/vom6y*   
    MsgBox "没有选择txt数据文件", , "运行宏" sp:4b$zX  
    Exit Sub N UvVhy]{  
End If X(eW+,H  
|OAM;@jH  
Dim x, y, z As Double \b%c_e  
Dim s mj
?Gc
  
Dim n As Integer /g.c(-#]  
Open sFileName For Input As #1 7V8k =  
n = 0 ,`RX~ H=C  
Do While Not EOF(1) cD6^7QF  
         Line Input #1, s j{r@>g;3  
         n = n + 1 #;~HoOK*#  
Loop ^"D^D`$@  
Close #1 Hi=</ Wy;  
If n > 1024 Then 7M4J{}9  
    MsgBox "点数量太大,超过1000,请分开后再导入", , "运行宏" e ><0crb  
    Exit Sub AX$r,KmE  
End If 6pSTw\/6  
ReDim swSketchPt(n) Y2XxfZj  
Open sFileName For Input As #1 2"?DaX  
Set swSketchMgr = Part.SketchManager 2C}Yvfm4  
    swSketchMgr.Insert3DSketch True g)^s+Y  
    swSketchMgr.AddToDB = True P`{$7ST'Hh  
    n = 0 Ex zB{"  
    Do While Not EOF(1) A-:k4] {%P  
         Input #1, x -z+,j(@  
         If EOF(1) Then -e}(\  
         Exit Sub $A9Pi"/*z  
         End If P{UV3ZA%  
         Input #1, y $l"%o9ICG  
         If EOF(1) Then xSd&xwP  
         Exit Sub z`t~N  
         End If {pH#zs4Y  
         Input #1, z YPI,u7-  
         n = n + 1 xx>hJ!  
         Set swSketchPt(n) = swSketchMgr.CreatePoint(x / 1000, y / 1000, z / 1000) _qf39fM;\  
    Loop Sx QA*}N  
Close #1 *!$Z5Im  
End Sub

你好，解决了吗 ciN\SA ZY  

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