機械社區(qū)

標(biāo)題: 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？ [打印本頁]
作者: 機械興邦    時間: 2024-1-19 20:46
標(biāo)題: 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？
誰那有SolidWorks一鍵輸出工程圖到DWG宏程序？需要直接輸出到桌面。網(wǎng)上都是下面的程序，但是試了一下不行啊!
7 T( X1 w) Q. Q, r, F4 W6 c' _, L" @% E2 C
Dim swApp As Object: C* _* l& Y: M1 y) r1 B7 o* U& L
% ^$ {$ ?' ]3 R, K# W; w/ @
Dim Part As Object
" F, l4 j7 ^3 P- i& \: z! K" E6 F+ q. ]5 [. z5 u! u
Dim Filename As String
' e( `) E) J+ M; D" {$ [% F4 ~% J( N/ V. N  e1 I' [
Dim No As Integer
+ B3 I$ X4 w1 o7 B8 _4 ]3 B, M$ O% `8 V
Dim Title As String
+ g9 Q2 h0 o+ u9 J0 q' C
. R' P! Z6 O7 q; O* c, ~' rSub main()1 Q6 X7 h, o0 z" b( _, C# [

3 m: H( C* R1 [9 eSet swApp = Application.SldWorks
7 M& L2 t, ]# D9 o  ?0 p# r* b+ A2 S7 Q5 E* h' i
Set Part = swApp.ActiveDoc9 ^$ q  Q% w  S! e' T+ R& D$ c1 V

2 m0 p; _3 N# S; E9 b5 b" N. [Filename = Part.GetPathName()8 D. k9 b4 b: [. O2 d. f. W. M  \% V

: p' g" L; w' r, \% v+ |7 V/ B- ENo = Len(Filename)9 W' ?9 K9 v3 X% L% j, d

' U- L1 S- @3 p& U/ H9 SFilename = Left(Filename, No)3 |2 E; K) C( g( T; v# P

/ x0 W7 K( H7 Z' LPart.SaveAs2 Filename & ".DWG", 0, True, False
+ \3 d! ?) m4 U! J- {
2 S0 g/ D; g4 v% rEnd Sub
* X3 ?+ N& e+ B4 @3 U& W& m! v4 s3 O2 s' ]
作者: 爆裂explosion    時間: 2024-1-20 10:45
把文件擴展名.pdf改成.swp
作者: 爆裂explosion    時間: 2024-1-20 10:50
本帖最后由 爆裂explosion 于 2024-1-20 10:51 編輯 4 A0 a# b. d! f" |+ Y
爆裂explosion 發(fā)表于 2024-1-20 10:45
. T9 c4 y7 z+ ^把文件擴展名.pdf改成.swp

+ z$ p' ~4 N. m9 i  x在D盤如圖創(chuàng)建一個文件夾，會自動保存到此文件夾
* m2 T% ?) t0 B0 n
作者: 探根究底    時間: 2024-1-20 11:19
SW有自帶的批量轉(zhuǎn)圖的呀。后來公司讓合并到一個DWG，宏還沒學(xué)過怎么用，買了插件，方便很多。
作者: zhengyi320320    時間: 2024-1-20 13:11
大工程師  不是有這個功能嗎  工程圖轉(zhuǎn)CAD  PDF都行



歡迎光臨 機械社區(qū) (http://e-learninguniversity.com/) Powered by Discuz! X3.4