【零件批量轉 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! r/ s8 E$ a! k. T
回丹哥：
# B: Y& o! B8 t4 N8 S压缩包好像是空的，

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

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

qiminger 发表于 2016-4-18 18:53
, b6 u$ e$ a2 d( X5 P谢谢阿丹分享~~压缩包未解出文件。

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

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

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

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

gt.adan 发表于 2016-4-18 21:492 T2 N1 {3 l( F1 k
編寫巨集時是用2011，運行的結果是會將轉檔後的文件存在原資料夾；& S5 Y( {; n" x S* c4 L- a
現在用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
) Q( o9 `: _9 ], u6 ]/ ~" w# a! _7 O按阿丹提出的保存到桌面的问题，应该是保存文件的那一行代码中缺少地址变量。+ y; o  x: L& e* @+ u! v& ~
我试着改了一下$ B' F& E9 z8 c  e! W
'       ...

謝謝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
" y5 q" w( w2 ~( N- z& j' \本人愚钝，烦请指点怎么使用，现在使用的是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
% c2 e) j) ^: ^请问这个好像没办法转换装配体是么

請下載1樓的更新文件。

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

gt.adan 发表于 2016-4-20 15:30* L: p3 }1 v( h, J$ K9 N
請下載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
, T/ J2 }9 |6 U7 b3 p% O# s! ]' [運行此宏，然後按1樓gif操作…

多谢指点。

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

ryouss 发表于 2016-4-20 16:30- [5 |( B/ T4 b: T
謝謝丹大分享,. a- [4 O# b% s# t; ]1 h

) _+ s: n; W: ~5 A但在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
) v6 b' C' P3 y2016.04.21新增：(待測試後再上傳檔案…)# D9 c) i# n: _
新增功能，可選擇要轉換的類型
0 d2 F3 ?9 T; j, C& W: f2 x( |1 = Part

第3種~也測試OK!

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

最終版本更新於#23

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

通知

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

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

浏览过的版块