圖紙框的問題,，請教

liangyong88

solidworks中如何做一個(gè)自己公司的圖紙框模板   并且跟零件圖同步     即我修改了零件圖的材料或者圖號 在工程圖中也同樣更  新   我把cad模板作為塊插入炸開 里面的文字還是要自己去編輯  能否像solidworks自帶的模板一樣   生成工程圖時(shí) 圖紙框里面的圖號 零件名稱 還有材料 也已經(jīng)生成    請教各位了  

一毛

自己做一個(gè)或者在自帶模板基礎(chǔ)上修改,，把需要的鏈接保留下來調(diào)整下位置就行啦

寒秋飄雨

Option Explicit
1 t" Y2 O) k: [9 m8 RDim swApp As SldWorks.SldWorks
* A1 w. m- ]# M8 XDim swModel As ModelDoc2
! m' k/ j4 b  O) qDim cpm As CustomPropertyManager
: ?8 X2 x* Z  `& i4 |! JSub main()
Set swApp = Application.SldWorks
& A% R/ Q9 H" q& MSet swModel = swApp.ActiveDoc
5 |4 _5 C$ [% d- N6 |: s. N* Q* FSet cpm = swModel.Extension.CustomPropertyManager("")
Dim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '獲得文件路徑和文件名稱
$ P% Q4 ]3 P5 h7 U4 P8 ffilename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴(kuò)展名
# @/ m6 `# y" L$ x! P% l, sfilename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴(kuò)展名
partno = Left(filename, 10) ' 定義partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
cpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
8 E9 D3 j5 I; u; k1 Ycpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
" c/ Z: O3 g* w! Z7 j6 icpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
, y7 p4 T( Q4 l' ^/ ccpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
* {5 b$ \% [+ L# ocpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
3 X( q+ e& u8 a, RswModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關(guān)閉當(dāng)前激活文件
+ O6 {0 V* U% D, G1 IEnd Sub
以上 是一種宏的利用  你看看吧

shengming1008

調(diào)試的時(shí)候到“Set cpm = swModel.Extension.CustomPropertyManager("")”就不行啊,。

MAWEIYI

確實(shí)如3樓所說,。。,。,。,。。,。,。。,。,。

liangyong88

這種宏太高級   不懂

liugui2008

到這個(gè)位置就出現(xiàn)“編譯錯(cuò)誤，參數(shù)不可選”     cpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”

老蔫

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