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

寒秋飄雨

Option Explicit
( ?9 |/ N$ t$ M$ ?$ |Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
' a5 a# M0 V5 H% m1 H7 ~Dim cpm As CustomPropertyManager
Sub main()
Set swApp = Application.SldWorks
- |" C& Z) X' }9 Y" }# ySet swModel = swApp.ActiveDoc
1 b; x! {0 f! U% z7 ~0 l8 DSet cpm = swModel.Extension.CustomPropertyManager("")
( E) z" h3 w1 T: w# \# GDim path As String, filename As String, partno As String, partname As String, beizhu As String
- Q8 j' b7 X+ g5 x& _- t6 Y' P2 s1 wpath = swModel.GetPathName '獲得文件路徑和文件名稱
! J+ J) H5 E0 D+ I& f3 G% Nfilename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴展名
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴展名
partno = Left(filename, 10) ' 定義partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
, t8 N( k& y; _6 d8 p5 wcpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
' }: G4 H' G  P) y. Mcpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
' ~5 D7 _/ o# Rcpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
8 R7 b" |4 k9 {! a2 Fcpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
# R1 {& A9 O3 z, icpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
/ A( K# c& i4 iswModel.Save ' 保存文件
9 C4 U) g5 t  X2 z, c'swApp.CloseDoc (filename) ' 關閉當前激活文件
End Sub
5 S/ I; y6 O- h. {: }9 N% `) K————————————————————————————————————————————————————
以上是一種 SW工程圖的編輯程序   添加在編輯宏內  ，在做工程圖時 可以自動生成 零件名稱 、圖號、 材料類型、數(shù)量等。希望對大家有用！！
# p# B3 b4 K; p0 N( O7 ^: x1 V

tigerguo1975

昏。這個是我寫的。樓主你不加任何說明，除了浪費看貼人的時間，有何意義。
  p, v: t: i% W5 t2 P% |) {且，國內圖紙命名，一般是"機型代號-模塊號-子模塊號-流水號"。這個宏，在這種情況下沒有任何用途。
如果按照9位流水號+中文名稱來命名，可以一用；但總之沒有用。

chidiandong

來瞧瞧，了解一下。

覯仔

直接改工程圖模板不行嗎

蝸牛22

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

jxzj

不錯喲

123楓葉

mark一下