圖紙框的問題，請教

liangyong88

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

一毛

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

寒秋飄雨

Option Explicit
; V4 F& f3 y* B: r3 b6 z+ JDim swApp As SldWorks.SldWorks
( O! E: |8 n$ S- E+ d3 |Dim swModel As ModelDoc2
Dim cpm As CustomPropertyManager
/ Z2 o! k: X% B5 xSub main()
Set swApp = Application.SldWorks
; U1 R. p8 Z/ m9 y! t7 v" e( ZSet swModel = swApp.ActiveDoc
$ _+ l4 E5 d5 U# |Set cpm = swModel.Extension.CustomPropertyManager("")
( E# m9 I1 U* F& g. @3 JDim path As String, filename As String, partno As String, partname As String, beizhu As String
path = swModel.GetPathName '獲得文件路徑和文件名稱
3 e" S1 l1 {$ ^7 C# h) Nfilename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴展名
, [) f; O9 M( c, A4 }: q/ X4 Pfilename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴展名
8 r1 q$ P5 a) K, q8 r  n. \( R7 Kpartno = Left(filename, 10) ' 定義partno等于文件名的前9位
' E6 s9 q+ m  ]" h' F$ }partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
3 B+ e, s' Q' n1 q7 M6 b/ u! Ocpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
cpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
9 X8 @3 L  S* m8 t% k% n  {" W2 Fcpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
, k. @5 w! H  m8 x) dcpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
9 t' I) j8 O, w3 [+ s2 y- bcpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
7 X9 |0 p$ Y% M) ^8 q+ i'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
% |6 I5 s1 U3 L, q* n" N1 O9 JswModel.Save ' 保存文件
+ t  B& J( x  B1 S'swApp.CloseDoc (filename) ' 關閉當前激活文件
End Sub
% }' O* w0 ^" b$ {( X以上 是一種宏的利用  你看看吧

shengming1008

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

MAWEIYI

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

liangyong88

這種宏太高級   不懂
& [' M3 q! A, K- U

liugui2008

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

老蔫

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