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

寒秋飄雨

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
/ M  H* y5 \1 q- N) f5 {, BDim cpm As CustomPropertyManager
6 G' [' ^7 Y# m1 RSub main()
+ ^9 {9 ^+ v$ TSet swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set cpm = swModel.Extension.CustomPropertyManager("")
Dim path As String, filename As String, partno As String, partname As String, beizhu As String
7 V# p$ F1 C5 x% U# {; s  x- B# G/ rpath = swModel.GetPathName '獲得文件路徑和文件名稱
) u1 f5 p, z* h( c) L- Yfilename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴(kuò)展名
, h/ C; e  k/ t( dfilename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴(kuò)展名
partno = Left(filename, 10) ' 定義partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
cpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
3 N$ @2 o' z% N0 A$ Ecpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
cpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
cpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
cpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
8 h: H. i3 ?% U" }' w2 W'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
! F% y  G2 _1 w. E1 BswModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關(guān)閉當(dāng)前激活文件
End Sub
5 |( F4 q. I0 k/ o, X# t1 o; [( z; s9 @————————————————————————————————————————————————————
$ t  I# h. e( A: T- h. R7 G% K* F以上是一種 SW工程圖的編輯程序   添加在編輯宏內(nèi)  ，在做工程圖時 可以自動生成 零件名稱 、圖號、 材料類型、數(shù)量等。希望對大家有用！！
, R* T. j' b" c$ m6 R+ Q

tigerguo1975

昏。這個是我寫的。樓主你不加任何說明，除了浪費看貼人的時間，有何意義。
* P2 }6 E) ?# z  D3 M且，國內(nèi)圖紙命名，一般是"機(jī)型代號-模塊號-子模塊號-流水號"。這個宏，在這種情況下沒有任何用途。
- n% b! d3 e  f' v如果按照9位流水號+中文名稱來命名，可以一用；但總之沒有用。

chidiandong

來瞧瞧，了解一下。

覯仔

直接改工程圖模板不行嗎

蝸牛22

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

jxzj

不錯喲

123楓葉

mark一下