圖紙框的問(wèn)題，請(qǐng)教

liangyong88

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

一毛

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

寒秋飄雨

Option Explicit
Dim swApp As SldWorks.SldWorks
9 n( ?, A/ m" @. a! [, MDim swModel As ModelDoc2
/ S+ ]7 E# B# Y; QDim cpm As CustomPropertyManager
# {" h% h  L5 a4 M) j" B8 Z% `* QSub main()
( c5 B1 |4 n( l3 G* \% ?  \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 '獲得文件路徑和文件名稱(chēng)
filename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱(chēng)及擴(kuò)展名
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴(kuò)展名
0 p$ `/ T% r$ \1 {& X! dpartno = Left(filename, 10) ' 定義partno等于文件名的前9位
2 o* w% {/ P# Jpartname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
& Q6 V& L% x  Dcpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
cpm.Delete "名稱(chēng)"  ' 刪除自定義屬性“名稱(chēng)”
cpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
  I0 E: V0 P8 d' `7 b, Scpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
& ]. o8 z% |; j% Xcpm.Add2 "名稱(chēng)", swCustomInfoText, partname  ' 增加自定義屬性“名稱(chēng)”
9 r- \  v: @9 R9 q" q& @" J'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
+ B" X9 k, @2 r! l- j! xswModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關(guān)閉當(dāng)前激活文件
End Sub
3 [4 l& ]1 q' a7 t- G: d2 S; f1 v, y以上 是一種宏的利用  你看看吧

shengming1008

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

MAWEIYI

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

liangyong88

這種宏太高級(jí)   不懂

liugui2008

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

老蔫

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