Egg's Blog

●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)
)
)

●entmakeで寸法線

ちょこっとmemo : entmakeで寸法線

;Acad Ver 2006
(entmake (list '(0 . "DIMENSION")
        '(100 . "AcDbEntity")
;;;        '(8 . "0") ;Layer
        '(100 . "AcDbDimension")
        '(10 300.0 70.0 0.0) ;3rd
        '(70 . 32) ;Type
;;;        '(3 . "ISO-25") ;DimStyle
        '(100 . "AcDbAlignedDimension")
        '(13 100.0 100.0 0.0) ;1st
        '(14 300.0 100.0 0.0) ;2nd
;;;        '(50 . 0.0) ;Hor Ver Angle
        '(100 . "AcDbRotatedDimension")
        ))