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

sw菜鳥一枚，看到論壇上有人發(fā)了一個同一個文件夾中批量導(dǎo)入txt畫曲線的宏 .3&OFM  
現(xiàn)在需要把這個宏稍微改動下，在sw中一個文件夾中批量導(dǎo)入txt并生成xyz曲線，請大俠們出手改動下原帖中的宏。 ,#OG/r-H  
S*s9?  
宏貼出來如下： v 8a  
{ F8,^+b|  
gdNp2b  
Sub main() XPTB,1g+f  
Dim swApp                       As SldWorks.SldWorks rqJj!{<B  
Set swApp = Application.SldWorks .cog9H'  
Set Part = swApp.ActiveDoc }"H900WE|  
Dim myModelView As Object &B7KWvAy  
If Part Is Nothing Then 4\es@2