【零件批量轉 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
& Y2 j2 Y, Q9 |, E3 u回丹哥：
8 q2 u1 z" ]" j5 K& _0 b压缩包好像是空的，

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

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

qiminger 发表于 2016-4-18 18:53
7 V9 I& B9 H [0 w* d' 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
$ g4 Y9 V' s2 y編寫巨集時是用2011，運行的結果是會將轉檔後的文件存在原資料夾；% B" K+ g$ r+ P( e# F
現在用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/ {6 B. y1 P# @1 K4 \
按阿丹提出的保存到桌面的问题，应该是保存文件的那一行代码中缺少地址变量。& L$ S& V( r3 S/ e8 `6 W t# a
我试着改了一下
+ ^, Y& r1 |0 ?' ...

謝謝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
h) s9 }" X7 o* M z! m3 P7 f本人愚钝，烦请指点怎么使用，现在使用的是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
$ }8 y+ Q" B* v) ]( V$ f请问这个好像没办法转换装配体是么

請下載1樓的更新文件。

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

gt.adan 发表于 2016-4-20 15:30
; I9 ?" o. d0 e8 a. w7 V! @請下載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
8 {) }4 u' \) d- b% G Z" G運行此宏，然後按1樓gif操作…

多谢指点。

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

ryouss 发表于 2016-4-20 16:306 v' b" r% [/ H6 x5 Q y* Q7 `; F$ g
謝謝丹大分享,$ S6 |* U6 M8 [

% ?6 s2 V8 o! N但在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
; P# z3 [# N# ^2016.04.21新增：(待測試後再上傳檔案…)
5 }# u+ G" ?8 `- s4 F" F6 j! o新增功能，可選擇要轉換的類型+ x! P% G$ c- z5 r& t. u
1 = Part

第3種~也測試OK!

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

最終版本更新於#23

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

通知

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

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

浏览过的版块