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

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

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

作者: 機(jī)械興邦    時(shí)間: 2024-1-19 20:46
標(biāo)題: 誰(shuí)那有SolidWorks一鍵輸出工程圖到DWG宏程序?
誰(shuí)那有SolidWorks一鍵輸出工程圖到DWG宏程序?需要直接輸出到桌面。網(wǎng)上都是下面的程序,但是試了一下不行啊!2 P* H. G% m3 }% L
* p3 }& t% D9 |6 i8 o
Dim swApp As Object. _/ o" ^  q% l) f2 ]7 c  [
9 Z' `6 j( n* ?; e8 P; H9 Q
Dim Part As Object
1 |; z4 h+ J( `4 e6 {+ A9 J0 C) X/ {4 t5 f  s" h
Dim Filename As String# c: o% q8 {/ d; Z0 o# R
2 w# N: t' }' }7 \# z( `' m; b7 z
Dim No As Integer, o1 u. w* `: h
, w" e* |$ x3 |) p& y1 {( T5 Q( H! f: j
Dim Title As String6 \' {3 L7 ~' ]
8 y1 H7 l5 M+ L/ K4 v+ S
Sub main()
. A8 Z5 ^; y( }8 a( V% k* t
; p, p3 ?9 \$ L% x5 j/ NSet swApp = Application.SldWorks  G; \( U" j5 X' M0 o
$ s" |3 T) a6 M4 r. ]! k  g& [( _
Set Part = swApp.ActiveDoc
3 V. y* q7 y9 v/ Z) M' X! }, Q0 B0 P0 I
Filename = Part.GetPathName()
; W! D5 o& L, ?  X& k
8 N4 n; p0 p) A8 f. K  Q9 ]1 WNo = Len(Filename)
+ V+ r: U. H5 P) z- X
" |" u. m/ G: x) L) Z7 VFilename = Left(Filename, No)
6 Y1 D2 q; y0 W& ?. {9 x$ T+ H8 W, t/ m
Part.SaveAs2 Filename & ".DWG", 0, True, False( U1 G: J2 S  g! D7 L& g
  D6 k$ A6 k1 J# w8 j
End Sub
5 Z+ I+ {. m: M. \- G
( M, f9 ?- V% P8 Y. S9 w4 }
作者: 爆裂explosion    時(shí)間: 2024-1-20 10:45
把文件擴(kuò)展名.pdf改成.swp
作者: 爆裂explosion    時(shí)間: 2024-1-20 10:50
本帖最后由 爆裂explosion 于 2024-1-20 10:51 編輯
" Z' j3 q7 i7 b' C2 g
爆裂explosion 發(fā)表于 2024-1-20 10:45" X2 N# y% K* W& W# @4 t
把文件擴(kuò)展名.pdf改成.swp
" S& J% f9 c2 ?' H6 F+ B
在D盤(pán)如圖創(chuàng)建一個(gè)文件夾,會(huì)自動(dòng)保存到此文件夾4 v1 `, @( M* P" S# X

作者: 探根究底    時(shí)間: 2024-1-20 11:19
SW有自帶的批量轉(zhuǎn)圖的呀。后來(lái)公司讓合并到一個(gè)DWG,宏還沒(méi)學(xué)過(guò)怎么用,買(mǎi)了插件,方便很多。
作者: zhengyi320320    時(shí)間: 2024-1-20 13:11
大工程師  不是有這個(gè)功能嗎  工程圖轉(zhuǎn)CAD  PDF都行




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