如何批量修改工程图纸中公司名称？

工程图已经全部结束了，最后领导来一句把公司名称改掉。。。。。
我真的是欲哭无泪啊，200多张图纸？我表示很无奈，想请教给位，有什么好办法吗？
图纸A4，A4（横），A3都有，公司名称是在模板里面设定好的。
难道这真的是一项体力活吗？

我想问一下闷大是不是参与SW软件的开发？简直就是说明书嘛，我只能说在太牛了！

巨集：批量更新圖頁格式
https://cax.idv.tw/forum/showthread.php?t=14020
在配合 SolidWorks Task Scheduler 即可處理多個文件.

zxy1978 发表于 2014-9-3 18:30
我想问一下闷大是不是参与SW软件的开发？简直就是说明书嘛，我只能说在太牛了！

闷大 所教内容，书本根本没有的，他的教学都很奇特，可能是人智商高吧

Francis 发表于 2014-9-3 16:26
巨集：批量更新圖頁格式
https://cax.idv.tw/forum/showthread.php?t=14020
在配合 SolidWorks Task Sched ...

太赞了，谢谢闷大啦^_^，只是您给的链接昨天在公司无法打开，
回家后也打不开，请闷大或者其他朋友帮忙重新上传一下可以吗？
谢谢大家了~~

同求啊，谢谢闷大了

內地很多地方上不去玩家論壇…我幫忙貼一下，也再次謝謝悶大的教程！

1. Sub Main()
   
2. Set swApp = Application.SldWorks
   
3. Set Drawing = swApp.ActiveDoc
   
4. If Drawing.GetType <> 3 Then Exit Sub
   
5. RetoreSheetName = Drawing.GetCurrentSheet.GetName
   
6. SheetName = Drawing.GetSheetNames
   
7. SheetCount = Drawing.GetSheetCount
   
8. For i = 0 To SheetCount - 1
   
9.     Drawing.ActivateSheet SheetName(i)
   
10.     swTemplate = Drawing.GetCurrentSheet.GetTemplateName
    
11.     swTemplatePath = Split(swTemplate, "")
    
12.     swTemplate = swTemplatePath(UBound(swTemplatePath))
    
13.     vSheetProps = Drawing.GetCurrentSheet.GetProperties()
    
14.     Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 0, 0, vSheetProps(2), vSheetProps(3), vSheetProps(4), "", 1, 1, ""
    
15.     Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 12, 12, vSheetProps(2), vSheetProps(3), vSheetProps(4), swTemplate, 0, 0, ""
    
16.     vSheetProps = Drawing.GetCurrentSheet.GetProperties()
    
17. Next
    
18. Drawing.ActivateSheet RetoreSheetName
    
19. End Sub

复制代码

樓上有動畫，這裡附上悶老大提供的練習檔案。

gt.adan 发表于 2014-9-4 10:35
內地很多地方上不去玩家論壇…我幫忙貼一下，也再次謝謝悶大的教程！樓上有動畫，這裡附上悶老大提供的練習 ...

谢谢版大。
不知道是不是之前工程图里的模板已经包含图纸格式，
我将图纸格式的路径修改后，运行宏，发现没有变化，
。。。。。

游泳的小鱼 发表于 2014-9-4 11:41
谢谢版大。
不知道是不是之前工程图里的模板已经包含图纸格式，
我将图纸格式的路径修改后，运行宏，发 ...

上傳工程圖模板及圖頁格式文件到此吧, 若可附帶工程圖例子更佳, 如不能公開, 可加密壓縮再以論壇消息告知密碼.

Francis 发表于 2014-9-4 12:47
上傳工程圖模板及圖頁格式文件到此吧, 若可附帶工程圖例子更佳, 如不能公開, 可加密壓縮再以論壇消息告知 ...

谢谢闷大关注