[求助]求大大修改一個(gè)sw在一個(gè)文件夾中批量導(dǎo)入txt并生成xyz曲線的宏 [復(fù)制鏈接]

sw菜鳥一枚，看到論壇上有人發(fā)了一個(gè)同一個(gè)文件夾中批量導(dǎo)入txt畫曲線的宏 JcvK]x  
現(xiàn)在需要把這個(gè)宏稍微改動(dòng)下，在sw中一個(gè)文件夾中批量導(dǎo)入txt并生成xyz曲線，請(qǐng)大俠們出手改動(dòng)下原帖中的宏。 1UxRN7  

5x4(5c5^  
宏貼出來如下： b3y@!_'c  
)]X_')K  
yBs  
Sub main() ^J@Y?CQl\  
Dim swApp                       As SldWorks.SldWorks E83{4A4  
Set swApp = Application.SldWorks :+!hR4Z~\;  
Set Part = swApp.ActiveDoc 'DRyOJn