图页名称更改为模型名称

板上沙丁鱼

自己借鉴做的很粗糙

1. Sub main()
   
2. Set swApp = Application.SldWorks
   
3. Set swdraw = swApp.ActiveDoc
   
4. Set view = swdraw.GetFirstView
   
5. Set view = view.GetNextView
   
6. modelpath = view.GetReferencedModelName
   
7. Debug.Print modelpath
   
8. splittedpathname = Split(modelpath, "")
   
9. sfilename = splittedpathname(UBound(splittedpathname))
   
10. sfilename = Left(sfilename, Len(sfilename) - 7)
    
11. Set sheet = swdraw.GetCurrentSheet
    
12. sheet.SetName sfilename
    
13. End Sub
    

复制代码

wutong490