sw菜鳥一枚，看到論壇上有人發(fā)了一個同一個文件夾中批量導(dǎo)入txt畫曲線的宏 w19OOD  
現(xiàn)在需要把這個宏稍微改動下，在sw中一個文件夾中批量導(dǎo)入txt并生成xyz曲線，請大俠們出手改動下原帖中的宏。 sWKv>bx  
%3yrX>Js
 
宏貼出來如下： nT7]PhJ  
5&_R+g  
y*E{X  
Sub main() L>pSE'}  
Dim swApp                       As SldWorks.SldWorks TVVu_ib  
Set swApp = Application.SldWorks ,xutI  
Set Part = swApp.ActiveDoc ir5e
R}H  
Dim myModelView As Object a1x].{  
If Part Is Nothing Then 2RdpVNx\y  
MsgBox "請先打開或者新建SolidWorks Part" s
>k4G  
Exit Sub >:OP+Vc  
End If "?6R"Vk?:  
Set myModelView = Part.ActiveView Li+|%a  
myModelView.FrameState = swWindowState_e.swWindowMaximized bYYjP.rcF  
Yc5<Y-W  
Dim sFileName As String 6n/KL  
Dim fileConfig                  As String nv3TxG  
Dim fileDispName                As String E O