機(jī)械社區(qū)
標(biāo)題:
圖紙框的問(wèn)題,請(qǐng)教
[打印本頁(yè)]
作者:
liangyong88
時(shí)間:
2011-5-3 19:59
標(biāo)題:
圖紙框的問(wèn)題,請(qǐng)教
solidworks中如何做一個(gè)自己公司的圖紙框模板 并且跟零件圖同步 即我修改了零件圖的材料或者圖號(hào) 在工程圖中也同樣更 新 我把cad模板作為塊插入炸開(kāi) 里面的文字還是要自己去編輯 能否像solidworks自帶的模板一樣 生成工程圖時(shí) 圖紙框里面的圖號(hào) 零件名稱 還有材料 也已經(jīng)生成 請(qǐng)教各位了
3 s3 Y2 {4 T/ N8 ~
5 j3 T( a1 Z% S1 c: ~+ ?) _ P, D5 F
作者:
一毛
時(shí)間:
2011-5-4 13:20
自己做一個(gè)或者在自帶模板基礎(chǔ)上修改,把需要的鏈接保留下來(lái)調(diào)整下位置就行啦
作者:
寒秋飄雨
時(shí)間:
2011-5-4 13:34
Option Explicit
3 o- r5 h8 V9 R `$ J$ ?
Dim swApp As SldWorks.SldWorks
+ N7 j1 R; ^: W" i [, R4 _
Dim swModel As ModelDoc2
% n( A$ ?6 S" J P/ p
Dim cpm As CustomPropertyManager
3 P' F2 Z" q. @7 P" l7 k
Sub main()
! q' G" }$ b! A( Z( A
Set swApp = Application.SldWorks
) L" z7 Z! W0 q1 @ v
Set swModel = swApp.ActiveDoc
% F; n) I$ w- _+ o8 h4 D9 y
Set cpm = swModel.Extension.CustomPropertyManager("")
0 o8 ]$ |' x/ C+ b* s
Dim path As String, filename As String, partno As String, partname As String, beizhu As String
2 C) q2 m( N1 s8 f4 f
path = swModel.GetPathName '獲得文件路徑和文件名稱
. e$ _6 I9 u: \3 k% ?' a+ y/ _
filename = Mid$(path, InStrRev(path, "\") + 1) ' 獲得文件名稱及擴(kuò)展名
5 c9 Z" z. ^, [0 {+ l7 n4 ~4 \/ r
filename = Left$(filename, InStrRev(filename, ".") - 1) '移除擴(kuò)展名
$ X8 _4 P/ {- X( S
partno = Left(filename, 10) ' 定義partno等于文件名的前9位
. e/ U1 }; P, d! ]# c+ A& `
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
4 K' Y0 y A6 l* m9 S8 r7 g" p% W
cpm.Delete "編碼" ' 刪除自定義屬性“編碼”
/ q: d3 j% y* O) e
cpm.Delete "名稱" ' 刪除自定義屬性“名稱”
9 |' {5 l. L9 f, s8 A
cpm.Delete "路徑" ' 刪除自定義屬性“路徑”
" m7 M! x; d. ?6 _/ C$ z
cpm.Add2 "編碼", swCustomInfoText, partno ' 增加自定義屬性“編碼”
! P. _; V+ e) G$ Q
cpm.Add2 "名稱", swCustomInfoText, partname ' 增加自定義屬性“名稱”
+ Z6 K6 M; T6 E
'cpm.Add2 "路徑", swCustomInfoText, path '增加自定義屬性“路徑”
! D. L6 a, O" K) K) ?/ j
swModel.Save ' 保存文件
9 }$ f, d7 D- ^. [! w
'swApp.CloseDoc (filename) ' 關(guān)閉當(dāng)前激活文件
1 R+ i# o" B+ c. e) X- u( n$ a
End Sub
Z; c5 P% \! J8 [4 R
以上 是一種宏的利用 你看看吧
作者:
shengming1008
時(shí)間:
2011-5-7 09:00
調(diào)試的時(shí)候到“Set cpm = swModel.Extension.CustomPropertyManager("")”就不行啊。
作者:
MAWEIYI
時(shí)間:
2011-5-10 15:27
確實(shí)如3樓所說(shuō)。。。。。。。。。。。
作者:
liangyong88
時(shí)間:
2011-5-10 21:29
這種宏太高級(jí) 不懂
/ o7 A- e5 G2 q5 q# p: { r
作者:
liugui2008
時(shí)間:
2012-5-19 11:39
到這個(gè)位置就出現(xiàn)“編譯錯(cuò)誤,參數(shù)不可選” cpm.Add2 "編碼", swCustomInfoText, partno ' 增加自定義屬性“編碼”
作者:
老蔫
時(shí)間:
2012-5-20 21:22
做工程圖圖板、零件圖模板、裝配圖模板并且屬性連接號(hào)才能達(dá)到你的要求
歡迎光臨 機(jī)械社區(qū) (http://mg7058.com/)
Powered by Discuz! X3.4