C : Lisp　　May 08, 2006

●Mechanicalの図面設定

Mechanical 2006 の初期設定について
（Mecha以外で作図した図面（主に旧図面）の初期設定の単位と規格の変更）

おまけツールの「Mechanical File Migration Utility」で複数図面の変換は可能！
（他にもレイヤー、ブロック、バルーンの更新も可！）
ただし、1枚々開いて閉じてを繰り返す、、、

必要なものだけ変換ということで、
規格と単位変更のみに挑戦してみた。

_______________________________________________
ActiveX（VBA）
参照設定にて「Autodesk SymBBAuto 2.0 type library」
(SymBBAuto.dll)にチェック

Sub mechaSet
Thisdrawing.SetVariable "MEASUREMENT" ,1

Dim symbb As McadSymbolBBMgr
Set symbb = ThisDrawing.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")

Dim stdmgr As McadStandardMgr
Set stdmgr = symbb.StandardMgr
　　　stdmgr.CurrentStandardName = "JIS"
End Sub
_______________________________________________

LISP
(setvar "MEASUREMENT" 1)
(vl-load-com)
(setq symbb (vlax-get-or-create-object "SymBBAuto.McadSymbolBBMgr"))
(if (vlax-typeinfo-available-p symbb)
(progn
(setq stdmgr (vlax-get symbb 'StandardMgr))
(vlax-put stdmgr 'CurrentStandardName "JIS")

(vlax-release-object stdmgr)
(vlax-release-object symbb)
)
)

Posted by m_eguchi at May 8, 2006 07:50 PM
トラックバックURL

このエントリーのトラックバックURL:
http://www.kkkxcec.com/supportwlog/mt-tb.cgi/69