久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機(jī)械社區(qū)

標(biāo)題: 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序? [打印本頁]

作者: 機(jī)械興邦    時間: 2024-1-19 20:46
標(biāo)題: 誰那有SolidWorks一鍵輸出工程圖到DWG宏程序?
誰那有SolidWorks一鍵輸出工程圖到DWG宏程序?需要直接輸出到桌面。網(wǎng)上都是下面的程序,但是試了一下不行啊!% m. B- t! @) v7 U& m! i& b

$ V% d7 L2 Y# C; GDim swApp As Object8 |# U/ j( _" [3 E3 l! f) y2 v; P
( v- J# L1 E/ d% |5 F; V
Dim Part As Object2 f# I& V( }  _, B0 b6 o
; x# _/ A: c* d7 Z/ Z; K
Dim Filename As String
8 n% J% n9 ]& d5 P/ m
- H. `7 b+ |0 D' x1 iDim No As Integer
" H7 @) B6 w- o( X) T) v
; T% ~2 Y" b3 z$ cDim Title As String2 F- h& P5 q' [7 M. {# I& H

# S/ v" x2 M; j/ h; `Sub main()
; I0 d$ L2 K" [- Q) W7 W( \& R% B5 {5 v- p: W* L& h8 K3 v; N
Set swApp = Application.SldWorks
: h: o1 T  [- k3 K3 r8 U- M6 I
4 R6 Z# T& _/ Y: W; Q! CSet Part = swApp.ActiveDoc
$ Y( h! _9 z9 m8 z- r( @  X  m0 ~: ?+ Q/ a) H# X% p& X+ [8 f
Filename = Part.GetPathName()
3 {. c# i* f7 v
* `. O% Y: H/ ^- U! R& v, Q; ENo = Len(Filename)) h  Z% h" r$ V, `& [

6 P; S8 r- ^9 ]Filename = Left(Filename, No)* n0 \/ N9 p; t& m. Z
! W6 V0 K- \" O* k6 m0 J
Part.SaveAs2 Filename & ".DWG", 0, True, False$ ~1 v% @8 M+ C* C& o$ ]
2 x% ]) t4 j" _4 X: w
End Sub
6 W8 x6 i" p6 v
# J' C" n; p7 `2 y
作者: 爆裂explosion    時間: 2024-1-20 10:45
把文件擴(kuò)展名.pdf改成.swp
作者: 爆裂explosion    時間: 2024-1-20 10:50
本帖最后由 爆裂explosion 于 2024-1-20 10:51 編輯
% M  h8 [% d- _. f9 r8 z
爆裂explosion 發(fā)表于 2024-1-20 10:45
% p- }  _! V9 J. U. p2 _把文件擴(kuò)展名.pdf改成.swp
4 H) P  P+ _& W' f/ d
在D盤如圖創(chuàng)建一個文件夾,會自動保存到此文件夾
3 [0 V8 X- F" K( b% \2 q* y' j4 t
作者: 探根究底    時間: 2024-1-20 11:19
SW有自帶的批量轉(zhuǎn)圖的呀。后來公司讓合并到一個DWG,宏還沒學(xué)過怎么用,買了插件,方便很多。
作者: zhengyi320320    時間: 2024-1-20 13:11
大工程師  不是有這個功能嗎  工程圖轉(zhuǎn)CAD  PDF都行




歡迎光臨 機(jī)械社區(qū) (http://www.ytsybjq.com/) Powered by Discuz! X3.5