【零件批量轉 3D PDF】#1 & #8

gt.adan · 发表于 2016-4-18 18:12:40

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 gt.adan 于 2016-4-20 18:13 编辑

利用悶哥以前分享的「批量****」的巨集模板，加上幾句代碼就成了。
寫的很蒼促，不過應該堪用…有需要的朋友夾去配~
也希望對編程熟悉的朋友可以加以指導、討論~
修改後的文件在#8(謝謝qiminger大大) 繁簡字體請自行編輯代碼轉換

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

SW文件批次轉 PDF.zip (13.05 KB, 下载次数: 67)

22553711 · 发表于 2016-4-18 18:20:52

谢谢丹哥分享，收藏了

22553711 · 发表于 2016-4-18 18:24:16

回丹哥：
压缩包好像是空的，

qiminger · 发表于 2016-4-18 18:53:35

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

gt.adan · 发表于 2016-4-18 20:03:44

22553711 发表于 2016-4-18 18:24
9 s7 |, N8 s% X回丹哥：5 U: b3 u2 ~: }, m
压缩包好像是空的，

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

gt.adan · 发表于 2016-4-18 20:04:19

qiminger 发表于 2016-4-18 18:53
' U* J& K; E, P0 j- D1 x7 [% ~' w谢谢阿丹分享~~压缩包未解出文件。

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

gt.adan · 发表于 2016-4-18 21:49:41

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

qiminger · 发表于 2016-4-18 22:25:56

gt.adan 发表于 2016-4-18 21:49! p w+ H- x' N4 I
編寫巨集時是用2011，運行的結果是會將轉檔後的文件存在原資料夾；
+ A% b3 e$ G5 {* [8 {$ ~現在用2014測試，轉檔是沒問題，但結果 ...

按阿丹提出的保存到桌面的问题，应该是保存文件的那一行代码中缺少地址变量。
我试着改了一下
' 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, 下载次数: 65)

gt.adan · 发表于 2016-4-18 22:29:48

qiminger 发表于 2016-4-18 22:25: @8 C$ C+ E/ H) A) Y# X
按阿丹提出的保存到桌面的问题，应该是保存文件的那一行代码中缺少地址变量。0 c1 A+ f/ j% \
我试着改了一下
: R9 C2 o$ Z, k0 u' r6 U# ~1 T( U. g$ ?' ...

謝謝qiminger前輩指導~

ZGCSS · 发表于 2016-4-19 05:27:51

谢谢分享！

13993359550 · 发表于 2016-4-19 08:03:23

谢谢丹大分享

eastking1111 · 发表于 2016-4-19 09:51:11

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

方外有圆 · 发表于 2016-4-19 15:51:40

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

gt.adan · 发表于 2016-4-19 16:53:17

本帖最后由 gt.adan 于 2016-4-19 16:55 编辑

方外有圆发表于 2016-4-19 15:51
5 N2 U( e! T' x5 k9 q本人愚钝，烦请指点怎么使用，现在使用的是SW2015

運行此宏，然後按1樓gif操作…

eastking1111 · 发表于 2016-4-20 10:10:25

本帖最后由 eastking1111 于 2016-4-20 10:14 编辑

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

gt.adan · 发表于 2016-4-20 15:30:08

eastking1111 发表于 2016-4-20 10:10 o! A2 V3 i8 Q, t0 R X+ i
请问这个好像没办法转换装配体是么

請下載1樓的更新文件。

eastking1111 · 发表于 2016-4-20 15:33:17

gt.adan 发表于 2016-4-20 15:30
6 @$ G1 q- m- [3 n. ^- }: w' I請下載1樓的更新文件。

感谢你的回复

ryouss · 发表于 2016-4-20 16:30:26

本帖最后由 ryouss 于 2016-4-20 16:42 编辑

謝謝丹大分享,

但在2012 sp4執行處里第二個就有誤:

測試2015 sp0是正常的

方外有圆 · 发表于 2016-4-20 17:10:57

gt.adan 发表于 2016-4-19 16:53
+ y6 m! M3 p& V- D運行此宏，然後按1樓gif操作…

多谢指点。

gt.adan · 发表于 2016-4-20 18:15:12

ryouss 发表于 2016-4-20 16:30; K8 I1 P( M0 ^
謝謝丹大分享," R# n8 W( T0 t# W4 b# [. j
8 l8 o% B2 _* l ^
但在2012 sp4執行處里第二個就有誤:

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

judyyai · 发表于 2016-4-20 20:39:55

SW2014 SP5測試沒問題~

WHY007 · 发表于 2016-4-20 21:25:16

谢谢分享

好资料收藏了

gt.adan · 发表于 2016-4-21 15:29:08

本帖最后由 gt.adan 于 2016-4-22 09:57 编辑

2016.04.21新增：

SW-PDF(2D&3D).rar (16.74 KB, 下载次数: 36)

judyyai · 发表于 2016-4-21 22:29:44

gt.adan 发表于 2016-4-21 15:29
& N9 C5 |: k. A' X. @8 r! O2016.04.21新增：(待測試後再上傳檔案…)6 k. w# V3 h, u2 ?7 E
新增功能，可選擇要轉換的類型5 W/ Q: K1 t9 l3 l
1 = Part

第3種~也測試OK!

gt.adan · 发表于 2016-4-22 09:41:12

最終版本更新於#23

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

通知

[分享] 【零件批量轉 3D PDF】#1 & #8

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块