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

寒秋飄雨

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
7 [4 ^! ?  k& `6 p" p/ }0 B( E! yDim cpm As CustomPropertyManager
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
% n% b0 N- C0 r$ y6 Y: w% mSet cpm = swModel.Extension.CustomPropertyManager("")
Dim path As String, filename As String, partno As String, partname As String, beizhu As String
- N! v* V3 _. zpath = swModel.GetPathName '獲得文件路徑和文件名稱(chēng)
filename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱(chēng)及擴(kuò)展名
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴(kuò)展名
1 Z" l% m! ^2 O2 b; c) w; K% w3 ^partno = Left(filename, 10) ' 定義partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
" v2 i+ _" `0 ]# L" q9 {! t( m( A: f# Ncpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
cpm.Delete "名稱(chēng)"  ' 刪除自定義屬性“名稱(chēng)”
3 l$ b& x9 _, q* j) Z- _: tcpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
8 {$ j+ m1 F  w! D" q" z8 rcpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
cpm.Add2 "名稱(chēng)", swCustomInfoText, partname  ' 增加自定義屬性“名稱(chēng)”
, b( \7 K: G9 W% N0 k; j2 O2 U'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
2 Z" `. `% B! s5 DswModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關(guān)閉當(dāng)前激活文件
End Sub
————————————————————————————————————————————————————
以上是一種 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一下