【零件批量轉 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
, u' F5 H* g4 e, y回丹哥：
/ t! x; }4 y1 `6 A g$ |: s+ u压缩包好像是空的，

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

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

qiminger 发表于 2016-4-18 18:53
4 k4 g& n( u" O* k谢谢阿丹分享~~压缩包未解出文件。

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
$ \- [* m& U) q! f編寫巨集時是用2011，運行的結果是會將轉檔後的文件存在原資料夾；0 m- g4 G1 W' O9 v
現在用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:255 p: U) k8 d" T+ U$ C
按阿丹提出的保存到桌面的问题，应该是保存文件的那一行代码中缺少地址变量。- U6 a: ]5 E& l% P/ h6 _
我试着改了一下
) j, |) _! ^% g; {; s6 J- `; [' ...

謝謝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. l& w; c) n) G+ J4 [% p
本人愚钝，烦请指点怎么使用，现在使用的是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! N; f4 }# B& F* h8 m5 d
请问这个好像没办法转换装配体是么

請下載1樓的更新文件。

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

gt.adan 发表于 2016-4-20 15:30
; p* h3 u" }. e, |8 C3 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
; c d1 i4 G8 g. z5 n5 Y0 ?運行此宏，然後按1樓gif操作…

多谢指点。

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

ryouss 发表于 2016-4-20 16:30- `/ N: Q% y9 d7 S+ Z. a( N0 ?
謝謝丹大分享,4 q Z1 p/ S* d* {# ^0 D
% W% }; Y, ]5 P+ v# l9 I1 p
但在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) D& H+ n. F+ J5 v0 ]" n7 r
2016.04.21新增：(待測試後再上傳檔案…)
: K# q7 ?! S& }: Q新增功能，可選擇要轉換的類型! O9 O4 z1 i y7 @, ]$ J- ~; M
1 = Part

第3種~也測試OK!

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

最終版本更新於#23

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

通知

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

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

浏览过的版块