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

寒秋飄雨

Option Explicit
Dim swApp As SldWorks.SldWorks
) K. F+ ~) M1 ~/ gDim swModel As ModelDoc2
Dim cpm As CustomPropertyManager
Sub main()
+ V1 o% S/ r, N" T9 M+ q$ y: U" ^Set swApp = Application.SldWorks
1 A8 K0 P% n. ?8 j3 \Set swModel = swApp.ActiveDoc
' E  E( ?1 G8 K* ASet cpm = swModel.Extension.CustomPropertyManager("")
: }( R) F0 f, I4 N0 eDim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '獲得文件路徑和文件名稱
+ e, w% w' t! P1 Y; z% C5 Xfilename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴展名
3 y8 X* F3 A+ V9 |% g1 {4 Jfilename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴展名
partno = Left(filename, 10) ' 定義partno等于文件名的前9位
' i9 N/ q4 W; R3 Kpartname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
9 X6 B8 P) j+ q1 ]cpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
- u0 O0 {& y# B' R0 ]cpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
, S6 U0 u- f3 _( O3 \1 m/ Pcpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
, ^' f+ |: D( Tcpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
cpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
- t) H% _! o; z% I$ _'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
! P) m, I9 Z' G) C' IswModel.Save ' 保存文件
2 E) U8 e+ p, t. Q% }7 z'swApp.CloseDoc (filename) ' 關閉當前激活文件
9 p4 U  P7 y8 F' Z7 DEnd Sub
————————————————————————————————————————————————————
( V, b8 c+ }: J8 w, p以上是一種 SW工程圖的編輯程序   添加在編輯宏內  ，在做工程圖時 可以自動生成 零件名稱 、圖號、 材料類型、數量等。希望對大家有用！！

tigerguo1975

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

chidiandong

來瞧瞧，了解一下。

覯仔

直接改工程圖模板不行嗎

蝸牛22

部件圖明細表怎么關聯？

jxzj

不錯喲

123楓葉

mark一下