【零件批量轉 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
- h0 O1 Y2 f& a- g2 p回丹哥：
- b' F! t/ Q/ i3 c+ i压缩包好像是空的，

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

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

qiminger 发表于 2016-4-18 18:534 m' z9 T5 Q4 }+ E6 D- J) j
谢谢阿丹分享~~压缩包未解出文件。

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* T' i" A, Z5 Y$ ?2 k, K
編寫巨集時是用2011，運行的結果是會將轉檔後的文件存在原資料夾；
; P% r; y4 m! H. `3 A- ~/ e& m: W6 B現在用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:258 u7 } U* F% D5 Y6 L# J: O
按阿丹提出的保存到桌面的问题，应该是保存文件的那一行代码中缺少地址变量。
& N( R, Y. X+ `8 ]9 Q我试着改了一下- J( f# f5 X& L( E, @
' ...

謝謝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:518 B# e3 m2 b D8 j" B7 i/ G
本人愚钝，烦请指点怎么使用，现在使用的是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 V0 d& X* k9 P* w请问这个好像没办法转换装配体是么

請下載1樓的更新文件。

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

gt.adan 发表于 2016-4-20 15:30
* H) U5 T% T8 S1 t' {9 n* x% d: @% L請下載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
! @7 B$ u2 p4 j& Z- U+ T8 Y0 _運行此宏，然後按1樓gif操作…

多谢指点。

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

ryouss 发表于 2016-4-20 16:30: O$ x& b+ K# n# }0 r- C2 G. n
謝謝丹大分享,
+ U/ A3 L( m' i8 g# I* O5 _. t6 v
& R- W( o$ _$ R' 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
4 x9 A% n. T& i$ y, E, Y+ x" P- Z2016.04.21新增：(待測試後再上傳檔案…); o! Q7 |; d S# c
新增功能，可選擇要轉換的類型# W" b% C2 D& a% T8 e
1 = Part

第3種~也測試OK!

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

最終版本更新於#23

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

通知

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

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