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

marine021

   经典图书

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

15923083621

巨集：批量更新圖頁格式
在配合 SolidWorks Task Scheduler 即可處理多個文件.

stardu2015

   经典图书

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

Rockchl

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

huhongyang123

   经典案例图书

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

zz251294517

同求啊，谢谢大王了

jjhhyykk123

   经典案例图书

內地很多地方上不去玩家論壇…我幫忙貼一下，也再次謝謝工程师的教程！Sub Main()
Set swApp = Application.SldWorks
Set Drawing = swApp.ActiveDoc
If Drawing.GetType <> 3 Then Exit Sub
RetoreSheetName = Drawing.GetCurrentSheet.GetName
SheetName = Drawing.GetSheetNames
SheetCount = Drawing.GetSheetCount
For i = 0 To SheetCount - 1
    Drawing.ActivateSheet SheetName(i)
    swTemplate = Drawing.GetCurrentSheet.GetTemplateName
    swTemplatePath = Split(swTemplate, &quot;&quot;)
    swTemplate = swTemplatePath(UBound(swTemplatePath))
    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
    Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 0, 0, vSheetProps(2), vSheetProps(3), vSheetProps(4), &quot;&quot;, 1, 1, &quot;&quot;
    Drawing.SetupSheet4 Drawing.GetCurrentSheet.GetName, 12, 12, vSheetProps(2), vSheetProps(3), vSheetProps(4), swTemplate, 0, 0, &quot;&quot;
    vSheetProps = Drawing.GetCurrentSheet.GetProperties()
Next
Drawing.ActivateSheet RetoreSheetName
End Sub
复制代码
樓上有動畫，這裡附上大侠提供的練習檔案。
SheetFormat.part01.rar (130 KB, 下载次数: 152)

2017-6-19 08:11 上传

点击文件名下载附件
下载积分: 金币 -1

SheetFormat.part02.rar (117.54 KB, 下载次数: 112)

2017-6-19 08:11 上传

点击文件名下载附件
下载积分: 金币 -1

adamhuang

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

ycpp

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

ttchenqiji

   经典图书

谢谢大王关注

果果爸爸

智能使用上完全沒有問題的呀！
估計是您操作過程有誤或是對 *.drwdot 與 *.slddrt 不夠理解所致。
能否把密碼也PM給我幫忙試下呢？

`Kayミ

悶人使用的版本超舊的, 問過相熟朋友也沒用14版, 唯有拜託大侠幫忙, 密碼會PM給大侠, 小魚請放心, 大侠比悶人更可靠的.

dynmcjn

大侠這樣說…智能實在栈陶恐啊…
已收到工程师的密碼，智能盡力為之。
定有不足與錯誤之處，還請工程师多多指導~

朱潇潇，事业

智能不懂宏，但從動畫中理解到工程师的宏代碼執行條件是：
要替換的圖頁格式名稱(新的資料夾)，必需與原工程圖中指定的圖頁格式名稱(舊的資料夾)一致。
正如工程师二樓動畫展示的，原工程圖五張頁面的圖頁格式(slddrt)是指向 gt.adan 這個資料夾中的 A0~A4
要替換新格式的資料夾，「智能」裡面，一樣有相同名稱的 A0~A4 五個圖頁格式。
樓主操作失敗的原因正在於這裡：
附件中三個工程圖都是「自訂」的圖頁格式，並沒有指向相對應的圖頁格式而導致失敗。

將工程圖指向對的圖頁格式，按工程师動畫執行就沒有問題了。

UGGhh

加入QQ群
参与讨论和学习

或扫描二维码加入

智能水平太低，還是讓工程师失望了…
上述言論只是個人將對動畫的理解轉成文字而已，說了等於沒說。
有請工程师出馬~指導大家…
以下提出幾個問題：
1. 樓主的檔案是 2013版的，不是 2014。
2. 二百多張圖都沒有指定圖頁格式…如何快速解決才能搭配工程师的代碼來使用？
3. 使用「工作排程器」，要如何完成批量修改？
請工程师抽空多多指導~

iiath53

   经典案例图书

对不起，闷版大，昨天的图纸是13的，（责任在我）
公司的工程图模板里面已经包含了图纸格式，所以就不知道如何是好了。
没办法，领导比较懒，直接把模板做成A4，A3（里面都有图纸格式），他说这样出图纸就免的鼠标再选一次（选择图纸格式）
看来是没辙了，不过还要谢谢版主。
就是不知道如何配合 solidworks task scheduler用？这个功能我们一般用来打印图纸、

Moon_bay_music

加入QQ群
参与讨论和学习

或扫描二维码加入

也谢谢智能版大，公司的工程图模板里面已经有了图纸格式
请版大将14楼贴图遮盖部分就显示一个字吧，谢谢了。

lester168lee

   经典案例图书

三張一起替換成功了！但是我是借用外部工具…200張圖一起轉應該不是問題。
要透過SW完成，還是要請工程师指導大家。
由於樓主有保密需求，這裡我就不上操作過程了…
上網搜一下這個工具箱：

給一個連結：

糊头

这是用的多少版本的软件？？

じ☆ve浩辰