圖紙框的問題，請教

liangyong88

solidworks中如何做一個自己公司的圖紙框模板   并且跟零件圖同步     即我修改了零件圖的材料或者圖號 在工程圖中也同樣更  新   我把cad模板作為塊插入炸開 里面的文字還是要自己去編輯  能否像solidworks自帶的模板一樣   生成工程圖時 圖紙框里面的圖號 零件名稱 還有材料 也已經生成    請教各位了  
( b0 w0 j7 a' O+ ^" m1 k% ~
( [# w! w3 d& O

一毛

自己做一個或者在自帶模板基礎上修改，把需要的鏈接保留下來調整下位置就行啦

寒秋飄雨

Option Explicit
! K. l8 b3 m  \& fDim swApp As SldWorks.SldWorks
7 @& F( g1 d/ l/ n8 Q! r# V; Z) rDim swModel As ModelDoc2
Dim cpm As CustomPropertyManager
Sub main()
Set 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
path = swModel.GetPathName '獲得文件路徑和文件名稱
+ {7 n6 W  V; n( \  X$ efilename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴展名
) a3 i) z2 I$ U+ U3 ]filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴展名
- a1 ~" x1 ^/ l" `! Opartno = Left(filename, 10) ' 定義partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
/ r" ]0 E4 Z& p, R1 E* Q4 ~# }cpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
cpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
9 g8 z. \  y3 p5 t0 ncpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
cpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
cpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
' N  [9 W+ h& r5 l1 ~( Y5 UswModel.Save ' 保存文件
# ~$ q5 n/ q/ {1 G'swApp.CloseDoc (filename) ' 關閉當前激活文件
5 X2 |+ V8 \" A# CEnd Sub
. I  X6 |! c# d3 r: j以上 是一種宏的利用  你看看吧

shengming1008

調試的時候到“Set cpm = swModel.Extension.CustomPropertyManager("")”就不行啊。

MAWEIYI

確實如3樓所說。。。。。。。。。。。

liangyong88

這種宏太高級   不懂
  M9 Y  x  K2 J+ ^# J: ?4 y; `

liugui2008

到這個位置就出現“編譯錯誤，參數不可選”     cpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”

老蔫

做工程圖圖板、零件圖模板、裝配圖模板并且屬性連接號才能達到你的要求