SW 工程圖編輯程序 宏的一種

寒秋飄雨

Option Explicit
) Y0 @+ v5 D- e& X; f' _Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
% d$ a* S5 k, F! U& `1 R* ^: x; cDim cpm As CustomPropertyManager
+ J; m- O' l0 u4 T# D# aSub main()
Set swApp = Application.SldWorks
) m! m& B* [: ~' x. P- q$ F+ ^Set swModel = swApp.ActiveDoc
9 _8 s2 d; ]5 o# F: XSet cpm = swModel.Extension.CustomPropertyManager("")
Dim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '獲得文件路徑和文件名稱
0 _& u- l1 k1 {' `filename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴展名
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴展名
! X/ `& X4 N! _6 l, }; v: rpartno = Left(filename, 10) ' 定義partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
; ]( C$ P& z% e$ W$ d4 b& {! rcpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
7 |9 }/ T6 d0 Z+ `( ?- Ycpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
cpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
cpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
5 }) @+ K  i& Y( U" Wcpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
' ]  I: v% s( X8 M'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
. a3 g" A; F0 y( \& [0 tswModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關閉當前激活文件
End Sub
————————————————————————————————————————————————————
以上是一種 SW工程圖的編輯程序   添加在編輯宏內  ，在做工程圖時 可以自動生成 零件名稱 、圖號、 材料類型、數量等。希望對大家有用！！

tigerguo1975

昏。這個是我寫的。樓主你不加任何說明，除了浪費看貼人的時間，有何意義。
且，國內圖紙命名，一般是"機型代號-模塊號-子模塊號-流水號"。這個宏，在這種情況下沒有任何用途。
如果按照9位流水號+中文名稱來命名，可以一用；但總之沒有用。

chidiandong

來瞧瞧，了解一下。

覯仔

直接改工程圖模板不行嗎

蝸牛22

部件圖明細表怎么關聯？

jxzj

不錯喲

123楓葉

mark一下