零件批量转 3D PDF

马丁克鲁斯 · 发表于 2016-7-9 12:33:04

利用闷哥以前分享的「批量****」的宏模板，加上几句代码就成了。
写的很苍促，不过应该堪用…有需要的朋友夹去配~
也希望对编程熟悉的朋友可以加以指导、讨论~
修改后的文件在#23(谢谢大大) 繁简字体请自行编辑代码转换

***************************************************************
2016.04.20新增：

SW文件批次轉 PDF.zip (13.05 KB, 下载次数: 94)
可以對目標資料夾內的所有SW格式分別轉成2D & 3D PDF
***************************************************************

失眠的尘埃 · 发表于 2016-7-9 12:33:25

谢谢大侠分享，收藏了

方芳芳 · 发表于 2016-7-9 12:34:06

回大侠：
压缩包好像是空的，

柳向阳 · 发表于 2016-7-9 12:34:34

谢谢分享~~压缩包未解出文件。

aaa2 · 发表于 2016-7-9 12:36:06

经典案例图书

阿木抱歉，一時不察，已重新上傳，煩請再下載一次幫忙測試。

ny3d · 发表于 2016-7-9 12:36:15

qiminger大真是抱歉，文件已重新上傳，請重新下載幫忙測試，謝謝。

Andreaf安德莉亚 · 发表于 2016-7-9 12:37:00

经典案例图书

編寫巨集時是用2011，咝械慕Y果是會將轉檔後的文件存在原資料夾；
現在用2014測試，轉檔是沒問題，但結果是將轉檔後的文件存在桌面了…
請會編程的朋友幫忙完善指導一下。謝謝。

闪耀的青春年华 · 发表于 2016-7-9 12:37:03

按提出的保存到桌面的问题，应该是保存文件的那一行代码中缺少地址变量。
我试着改了一下
' part.Extension.SaveAs PartFileName & "(3D).pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, swExportPDFData, lErrors, lWarnings
'上一行缺少路径变量，只有文件名则保存在桌面上。下一行添加路径变量，则保存在原文件夹。
part.Extension.SaveAs PartPaths(i) & PartFileName & "(3D).pdf", swSaveAsCurrentVersion, swSaveAsOptions_Silent, swExportPDFData, lErrors, lWarnings
加一句代码在地址粘贴后可直接可执行
If Right(TextBox1.Text, 1) <> "" Then TextBox1.Text = TextBox1.Text & "" '地址后如无反斜线，则添加
win7 64 SW2013版测试可以用。
下面是改后的swp

批量處理宏(轉3D PDF).rar (8.02 KB, 下载次数: 64)

虎椿树 · 发表于 2016-7-9 12:37:56

謝謝qiminger前輩指導~

随风飘过的地方 · 发表于 2016-7-9 12:38:00

谢谢分享！

a787917365 · 发表于 2016-7-9 12:40:33

谢谢分享

常聊就熟 · 发表于 2016-7-9 12:40:57

大神啊！！第一次觉得PDF原来如此神奇！！！

AOBAMA · 发表于 2016-7-9 12:40:59

本人愚钝，烦请指点怎么使用，现在使用的是SW2015

jdcoolboy · 发表于 2016-7-9 12:41:06

咝写撕辏?会岚

NKbq60X · 发表于 2016-7-9 12:41:37

加入QQ群
参与讨论和学习

或扫描二维码加入

请问这个好像没办法转换装配体是么

mrhuaxin · 发表于 2016-7-9 12:42:56

经典案例图书

請下載1樓的更新文件。

love_zou · 发表于 2016-7-9 12:44:16

加入QQ群
参与讨论和学习

或扫描二维码加入

感谢你的回复

wgluser · 发表于 2016-7-9 12:47:14

经典案例图书

謝謝分享,
但在2012 sp4執行處里第二個就有誤:

測試2015 sp0是正常的

sflovewl · 发表于 2016-7-9 12:47:35

多谢指点。

是的发 · 发表于 2016-7-9 12:47:40

稍微修改了一下，在2014下咝惺菦]有問題的，
請梁叔再次下載一樓的更新附件試試，並望不吝給予指導，謝謝。

		自动登录	找回密码
密码			立即注册