国产精品乱码一区-性开放网站-少妇又紧又爽视频-西西大胆午夜人体视频-国产极品一区-欧美成人tv-四虎av在线-国产无遮挡无码视频免费软件-中文字幕亚洲乱码熟女一区二区-日产精品一区二区三区在线观看-亚洲国产亚综合在线区-五月婷婷综合色-亚洲日本视频在线观看-97精品人人妻人人-久久久久久一区二区三区四区别墅-www.免费av-波多野结衣绝顶大高潮-日本在线a一区视频高清视频-强美女免费网站在线视频-亚洲永久免费

機械社區

標題: 圖紙框的問題，請教 [打印本頁]

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

作者: 一毛 時間: 2011-5-4 13:20
自己做一個或者在自帶模板基礎上修改，把需要的鏈接保留下來調整下位置就行啦

作者: 寒秋飄雨 時間: 2011-5-4 13:34
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim 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 '獲得文件路徑和文件名稱
filename = Mid$(path, InStrRev(path, "\") + 1)  ' 獲得文件名稱及擴展名
filename = Left$(filename, InStrRev(filename, ".") - 1)  '移除擴展名
partno = Left(filename, 10) ' 定義partno等于文件名的前9位
partname = Right(filename, Len(filename) - 10) ' 定義partname等于文件名剩下若干位
cpm.Delete "編碼"  ' 刪除自定義屬性“編碼”
cpm.Delete "名稱"  ' 刪除自定義屬性“名稱”
cpm.Delete "路徑"  ' 刪除自定義屬性“路徑”
cpm.Add2 "編碼", swCustomInfoText, partno  ' 增加自定義屬性“編碼”
cpm.Add2 "名稱", swCustomInfoText, partname  ' 增加自定義屬性“名稱”
'cpm.Add2 "路徑", swCustomInfoText, path  '增加自定義屬性“路徑”
swModel.Save ' 保存文件
'swApp.CloseDoc (filename) ' 關閉當前激活文件
End Sub
以上是一種宏的利用  你看看吧

作者: shengming1008 時間: 2011-5-7 09:00
調試的時候到“Set cpm = swModel.Extension.CustomPropertyManager("")”就不行啊。

作者: MAWEIYI 時間: 2011-5-10 15:27
確實如3樓所說。。。。。。。。。。。

作者: liangyong88 時間: 2011-5-10 21:29
這種宏太高級不懂

作者: liugui2008 時間: 2012-5-19 11:39
到這個位置就出現“編譯錯誤，參數不可選” cpm.Add2 "編碼", swCustomInfoText, partno ' 增加自定義屬性“編碼”

作者: 老蔫 時間: 2012-5-20 21:22
做工程圖圖板、零件圖模板、裝配圖模板并且屬性連接號才能達到你的要求

歡迎光臨機械社區 (http://www.whclglass.com.cn/)