（宏） 重命名工程图图纸名称

wutong490

前段时间发现SW的另存PDF很好用，于是现在一直把工程图另存为PDF。
为了查阅方便需要把图纸名称改为零件名称，很机械的动作。
这两天看到闷大的獨孤九劍-第二十式：《萬劍朝宗》，只有仰视
找遍资料写了个可以把图纸名称改为零件名称的宏。现在还有缺陷，多张图纸的时候，只有第一次执行才有效果。
还请大家帮忙改改。

1. 
   
2. Dim swApp As Object
   
3. Dim Part As Object
   
4. Dim myDrawingSheet As Object
   
5. Sub main()
   
6. Set swApp = Application.SldWorks
   
7. Set Part = swApp.ActiveDoc
   
8. Set swModel = swApp.GetFirstDocument
   
9. path_name = swModel.GetPathName
   
10. Name = swModel.GetTitle()
    
11. Set myDrawingSheet = Part.GetCurrentSheet()
    
12. myDrawingSheet.SetName Name
    
13. End Sub
    

复制代码

Francis

Francis

wutong490

wutong490

牙G夜

jackdo

gg555gg555

ac250626

wutong490

ac250626