久久久国产一区二区_国产精品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; G
Dim swApp As Object
8 |# U/ j( _" [3 E3 l! f) y2 v; P
( v- J# L1 E/ d% |5 F; V
Dim Part As Object
2 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 i
Dim No As Integer
" H7 @) B6 w- o( X) T) v
; T% ~2 Y" b3 z$ c
Dim Title As String
2 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! C
Set Part = swApp.ActiveDoc
$ Y( h! _9 z9 m8 z- r( @ X m
0 ~: ?+ Q/ a) H# X% p& X+ [8 f
Filename = Part.GetPathName()
3 {. c# i* f7 v
* `. O% Y: H/ ^- U! R& v, Q; E
No = 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