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

 找回密碼
 注冊會(huì)員

QQ登錄

只需一步,快速開始

搜索
查看: 1678|回復(fù): 6

誰那有SolidWorks一鍵輸出工程圖到DWG宏程序?

[復(fù)制鏈接]
1#
發(fā)表于 2024-1-19 20:46:25 | 只看該作者 |倒序?yàn)g覽 |閱讀模式
誰那有SolidWorks一鍵輸出工程圖到DWG宏程序?需要直接輸出到桌面。網(wǎng)上都是下面的程序,但是試了一下不行啊!
$ `/ H, [$ t( y! ]# v; _$ H1 Q. r2 t) [; v" @' ?
Dim swApp As Object0 s. u$ ~9 D7 v+ v+ i* @& N, q
9 a7 h$ a* B7 \& D
Dim Part As Object- v( t4 U7 _. n1 p
; _8 ~9 e2 [6 ~) [) }0 a& j, t% W0 L1 E
Dim Filename As String
: v8 s0 r# T6 ]! u, K  V- Y0 E* N. t- S0 u6 o- X
Dim No As Integer! [$ X! b: K3 ]" e# V: j
1 Q6 H! |3 q8 C( P( e5 C: v
Dim Title As String: z: n' \  `- D" E* @
( y- r; f! E# h+ h' M& T
Sub main()  @) K0 M# S8 `1 T
; b/ ?, W" f6 L9 ^+ [8 K* `: |; S9 W5 s
Set swApp = Application.SldWorks$ j# G3 c! ^' F: m$ ?( h

0 R: c6 H3 W3 i' K. Z; D+ B& S/ ISet Part = swApp.ActiveDoc
9 z; k4 E" N# i: k9 H' v  w& B% r; I, `/ w
Filename = Part.GetPathName()
4 m/ m! B( Y" X9 d2 N* r) O
+ ^8 z- Z: n/ j( \6 dNo = Len(Filename)
) |! K& V* G+ S) J: V; q
) v! ?: |) q/ P4 K. A, D: SFilename = Left(Filename, No)
8 M( M8 |8 H  t4 |7 F
) k4 L. k6 n. Y6 D5 U# `1 S; S7 OPart.SaveAs2 Filename & ".DWG", 0, True, False
1 a* i6 g- e- X2 W( u
& |" Q! `# h  N; ZEnd Sub: H% o$ w- Z. `4 W- S! M
/ O2 Z# ]) E: q- g

評分

參與人數(shù) 1威望 +1 收起 理由
喂我袋鹽 + 1 思想深刻,見多識(shí)廣!

查看全部評分

回復(fù)

使用道具 舉報(bào)

2#
發(fā)表于 2024-1-20 10:45:16 | 只看該作者
把文件擴(kuò)展名.pdf改成.swp

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號(hào)?注冊會(huì)員

×

評分

參與人數(shù) 1威望 +1 收起 理由
喂我袋鹽 + 1 熱心助人,專業(yè)精湛!

查看全部評分

3#
發(fā)表于 2024-1-20 10:50:02 | 只看該作者
本帖最后由 爆裂explosion 于 2024-1-20 10:51 編輯 % i" ^& n9 a" o9 V9 f5 T
爆裂explosion 發(fā)表于 2024-1-20 10:45
( A9 o0 O2 t, p, ^% [把文件擴(kuò)展名.pdf改成.swp

4 E9 Z  x, C7 P2 r/ u3 F/ T在D盤如圖創(chuàng)建一個(gè)文件夾,會(huì)自動(dòng)保存到此文件夾( Y. i. C: P7 ^, H

本帖子中包含更多資源

您需要 登錄 才可以下載或查看,沒有賬號(hào)?注冊會(huì)員

×
4#
發(fā)表于 2024-1-20 11:19:39 | 只看該作者
SW有自帶的批量轉(zhuǎn)圖的呀。后來公司讓合并到一個(gè)DWG,宏還沒學(xué)過怎么用,買了插件,方便很多。

點(diǎn)評

沒有 ,1比1轉(zhuǎn)圖+爆炸 就不會(huì)有問題 我原來是手工刻的,為提高效率,買了插件  發(fā)表于 2024-1-22 08:16
合并到一個(gè)圖中尺寸這些東西有沒有變?原來寫過一個(gè)lsp,合并過來不是很完美,還是要人工處理一下。  發(fā)表于 2024-1-20 11:49
5#
發(fā)表于 2024-1-20 13:11:53 | 只看該作者
大工程師  不是有這個(gè)功能嗎  工程圖轉(zhuǎn)CAD  PDF都行
您需要登錄后才可以回帖 登錄 | 注冊會(huì)員

本版積分規(guī)則

Archiver|手機(jī)版|小黑屋|機(jī)械社區(qū) ( 京ICP備10217105號(hào)-1,京ICP證050210號(hào),浙公網(wǎng)安備33038202004372號(hào) )

GMT+8, 2025-7-24 20:51 , Processed in 0.072051 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.5 Licensed

© 2001-2025 Discuz! Team.

快速回復(fù) 返回頂部 返回列表