sw菜鳥一枚，看到論壇上有人發(fā)了一個同一個文件夾中批量導入txt畫曲線的宏 0W*{ 1W  
現(xiàn)在需要把這個宏稍微改動下，在sw中一個文件夾中批量導入txt并生成xyz曲線，請大俠們出手改動下原帖中的宏。 Y)X7*iTi'j  
@Uez2?  
宏貼出來如下： mfQ#n!{ZH  
xeU|5-d'  
<@-O06  
Sub main() h
HE~
/U  
Dim swApp                       As SldWorks.SldWorks V+ ("kz*  
Set swApp = Application.SldWorks |^1U<'oM#  
Set Part = swApp.ActiveDoc J/4T