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

寒秋飄雨

Option Explicit
8 e- _# g0 s2 Q, m3 D; v! x% EDim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim cpm As CustomPropertyManager
5 z8 ?5 U: h- \3 R8 OSub main()
% Q4 N4 b3 j/ s, d- \Set swApp = Application.SldWorks
5 M! o! L$ \! Y1 sSet swModel = swApp.ActiveDoc
3 ~( B# i3 v! N5 C. ZSet cpm = swModel.Extension.CustomPropertyManager("")
Dim path As String, filename As String, partno As String, partname As String, beizhu As String
7 J' A: J1 c4 `' wpath = swModel.GetPathName '獲得文件路徑和文件名稱
5 p3 d5 ^- f; d" V0 S* F7 \filename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴展名
; F, U/ v+ n  D3 ^$ i; z4 tfilename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴展名
partno = Left(filename, 10) ' 定義partno等于文件名的前9位
( [9 F- N3 B3 M' o: zpartname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
# d2 C1 Y! }: A4 O( ]cpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
cpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
9 k1 q% [' o: S! |6 acpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
5 _% b# O+ S- N( s6 Ccpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
cpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
swModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關閉當前激活文件
End Sub
————————————————————————————————————————————————————
以上是一種 SW工程圖的編輯程序   添加在編輯宏內  ，在做工程圖時 可以自動生成 零件名稱 、圖號、 材料類型、數量等。希望對大家有用��！
+ u. t0 R! D7 b

tigerguo1975

昏。這個是我寫的。樓主你不加任何說明，除了浪費看貼人的時間，有何意義。
2 k5 Z, R9 t, f2 _3 M, J; r且，國內圖紙命名，一般是"機型代號-模塊號-子模塊號-流水號"。這個宏，在這種情況下沒有任何用途。
' q6 ?( Y6 P! p6 ]! I7 k4 W* G  R' P如果按照9位流水號+中文名稱來命名，可以一用；但總之沒有用。

chidiandong

來瞧瞧，了解一下。

覯仔

直接改工程圖模板不行嗎

蝸牛22

部件圖明細表怎么關聯？

jxzj

不錯喲

123楓葉

mark一下