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

寒秋飄雨

Option Explicit
Dim swApp As SldWorks.SldWorks
+ K0 n- ^  f% qDim swModel As ModelDoc2
Dim cpm As CustomPropertyManager
Sub main()
# S; j2 K1 o0 @" d0 l& O- OSet swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set cpm = swModel.Extension.CustomPropertyManager("")
6 t* ^+ f- U- ]+ s7 L9 eDim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '獲得文件路徑和文件名稱
9 _. z$ R  B2 U4 N, ~& Rfilename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴(kuò)展名
9 z% p6 y6 v& {filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴(kuò)展名
! Y( Z' H) L6 gpartno = Left(filename, 10) ' 定義partno等于文件名的前9位
% n0 I1 f  r( I) G/ I# k5 Hpartname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
$ ~: V$ D5 c: \: t, d: ncpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
  \9 v, B4 q# Q# A$ Vcpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
. C6 m2 ~" t4 J. J% c! }cpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
cpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
cpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
  T, T  b* F) v, F! ^; V7 r( G'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
/ p1 H$ l& ^) EswModel.Save ' 保存文件
7 }2 I/ C$ a5 F5 R" D'swApp.CloseDoc (filename) ' 關(guān)閉當(dāng)前激活文件
. i% |' A- {9 ^9 fEnd Sub
————————————————————————————————————————————————————
; ?. \# ~2 [/ X以上是一種 SW工程圖的編輯程序   添加在編輯宏內(nèi)  ，在做工程圖時(shí) 可以自動(dòng)生成 零件名稱 、圖號(hào)、 材料類型、數(shù)量等。希望對(duì)大家有用！！
! C: D8 ^" Q/ q% K! X9 |: x

tigerguo1975

昏。這個(gè)是我寫的。樓主你不加任何說明，除了浪費(fèi)看貼人的時(shí)間，有何意義。
- O5 }2 \) q  {' ?且，國(guó)內(nèi)圖紙命名，一般是"機(jī)型代號(hào)-模塊號(hào)-子模塊號(hào)-流水號(hào)"。這個(gè)宏，在這種情況下沒有任何用途。
9 G8 {  c: p$ }) c0 p如果按照9位流水號(hào)+中文名稱來命名，可以一用；但總之沒有用。

chidiandong

來瞧瞧，了解一下。

覯仔

直接改工程圖模板不行嗎

蝸牛22

部件圖明細(xì)表怎么關(guān)聯(lián)？

jxzj

不錯(cuò)喲

123楓葉

mark一下