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

寒秋飄雨

Option Explicit
Dim swApp As SldWorks.SldWorks
! D: ]' h4 @0 B0 _, JDim swModel As ModelDoc2
$ _% J! e; \% D0 Y2 HDim cpm As CustomPropertyManager
! v) H* W2 j; M' N+ ~8 \2 }; vSub main()
8 N' G1 [( W7 N5 u# o% mSet swApp = Application.SldWorks
( U; d5 z" c0 O5 ]' z6 x$ nSet swModel = swApp.ActiveDoc
+ ?* n. g, I" m* BSet cpm = swModel.Extension.CustomPropertyManager("")
* u6 `; N8 J& ^. |! v& @Dim path As String, filename As String, partno As String, partname As String, beizhu As String
  e' `+ I+ T; ]4 Lpath = swModel.GetPathName '獲得文件路徑和文件名稱(chēng)
3 r+ @. Q, R. `1 I4 Ufilename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱(chēng)及擴(kuò)展名
* Y3 F6 A" o3 h2 v% ffilename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴(kuò)展名
partno = Left(filename, 10) ' 定義partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
- b3 G2 P( v! ]9 U  acpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
  y* Q) N# t5 P# g. c3 ncpm.Delete "名稱(chēng)"  ' 刪除自定義屬性“名稱(chēng)”
cpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
+ Y# l& h( f1 R( I$ L1 F& H; ?8 p8 s, G  zcpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
6 F7 I6 d  c9 G, B% ?cpm.Add2 "名稱(chēng)", swCustomInfoText, partname  ' 增加自定義屬性“名稱(chēng)”
'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
7 O1 k6 F5 F. ~2 R! K( \5 ~' h& XswModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關(guān)閉當(dāng)前激活文件
End Sub
' _0 n8 A- T6 u$ P————————————————————————————————————————————————————
以上是一種 SW工程圖的編輯程序   添加在編輯宏內(nèi)  ，在做工程圖時(shí) 可以自動(dòng)生成 零件名稱(chēng) 、圖號(hào)、 材料類(lèi)型,、數(shù)量等。希望對(duì)大家有用！,！

tigerguo1975

昏。這個(gè)是我寫(xiě)的,。樓主你不加任何說(shuō)明,，除了浪費(fèi)看貼人的時(shí)間，有何意義,。
且,，國(guó)內(nèi)圖紙命名，一般是"機(jī)型代號(hào)-模塊號(hào)-子模塊號(hào)-流水號(hào)",。這個(gè)宏,，在這種情況下沒(méi)有任何用途。
如果按照9位流水號(hào)+中文名稱(chēng)來(lái)命名,，可以一用,；但總之沒(méi)有用。

chidiandong

來(lái)瞧瞧,，了解一下,。

覯仔

直接改工程圖模板不行嗎

蝸牛22

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

jxzj

不錯(cuò)喲

123楓葉

mark一下