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

寒秋飄雨

Option Explicit
* P! X+ m) X0 |4 \' _Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim cpm As CustomPropertyManager
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
: U" B8 w: u4 m) cSet cpm = swModel.Extension.CustomPropertyManager("")
Dim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '獲得文件路徑和文件名稱
filename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴(kuò)展名
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴(kuò)展名
( t1 S& Y* f4 L. Tpartno = Left(filename, 10) ' 定義partno等于文件名的前9位
' x. ~+ j3 ?, y8 |0 `# tpartname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
cpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
cpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
cpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
cpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
* i. _3 k& r$ @; lcpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
" U  I8 N2 ]  e8 D$ H3 y'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
% r( v( _/ n. b' vswModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關(guān)閉當(dāng)前激活文件
End Sub
0 p: F' f& N6 V  M————————————————————————————————————————————————————
) E( K, O1 D1 J+ {以上是一種 SW工程圖的編輯程序   添加在編輯宏內(nèi)  ，在做工程圖時 可以自動生成 零件名稱 ,、圖號、 材料類型,、數(shù)量等,。希望對大家有用！,！

tigerguo1975

昏,。這個是我寫的。樓主你不加任何說明,，除了浪費(fèi)看貼人的時間,，有何意義。
/ z5 ]; z) `4 \且,，國內(nèi)圖紙命名,，一般是"機(jī)型代號-模塊號-子模塊號-流水號"。這個宏,，在這種情況下沒有任何用途。
+ X6 ~# `/ {0 R, v如果按照9位流水號+中文名稱來命名,，可以一用,；但總之沒有用。

chidiandong

來瞧瞧,，了解一下,。

覯仔

直接改工程圖模板不行嗎

蝸牛22

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

jxzj

不錯喲

123楓葉

mark一下