********************* AutoCAD R14 CUSTOMIZED DIESELマクロ講座 *********************

DIESEL(Direct Interpretively Evaluated String Expression Language)

 

(^o^)(^o^)(^o^)(^o^)(^o^)(^o^) ﾂｰﾙ DIESELマクロ2(^o^)(^o^)(^o^)(^o^)(^o^)

 

[部分図面]

 

[部分図面呼出]

^C^C_insert;*\;

 

[部分図面登録]

^C^C_WBLOCK;C:/OBLADI/BUHIN/\\

 

[尺度対応部分図面呼出]

^C^C_insert;*\\$M=$(getvar,dimscale);0;

 

[部分図面呼出(元の画層,色へ)]

^C^Csetenv;OLAYER;$M=$(getvar,clayer);_clayer;0;_insert;*~;\\\\^M;_clayer;$M=$(getvar,clayer);_change;last;;p;la;$M=(getvar,^M;clayer);;

 

[LAYER]

 

[全画層非表示･ﾌﾘｰｽﾞﾛｯｸ解除]

'-LAYER;ON;*;T;*;U;*;S;0;;

 

[現在画層以外非表示ﾌﾘｰｽﾞ]

'-LAYER;OF;*;N;F;*;;

 

[LOCK_DEFPOINTS_ZUWAKU]

-LAYER;LO;DEFPOINTS;LO;ZUWAKU;;

 

[現在画層に変更]

*^C^CSELECT;AUTO;\_CHANGE;P;;P;LA;$M=$(GETVAR,CLAYER);;^M;

 

[UCS]

 

[リセット]

'_SETVAR;SNAPANG;0;_UCS;W

 

[傾斜角度]

'_SETVAR;SNAPANG;\

 

[UCS図形]

'_SETVAR;SNAPANG;0;_UCS;E;\

 

[UCS２点]

'_SETVAR;SNAPANG;0;_UCS;3;\\@0,10;

 

[UCS角度]'_SETVAR;SNAPANG;0;_UCS;Z;\

 

[寸法値小数点変更]

 

[寸法値小数点０桁に変更]

^C^C_dimoverride;dimzin;0;dimtzin;0;dimdec;0;dimtdec;0;;\

 

[寸法値小数点１桁に変更]

^C^C_dimoverride;dimzin;0;dimtzin;0;dimdec;1;dimtdec;1;;\

 

[寸法値小数点２桁に変更]

^C^C_dimoverride;dimzin;0;dimtzin;0;dimdec;2;dimtdec;2;;\

 

[寸法値小数点３桁に変更]^C^C_dimoverride;dimzin;0;dimtzin;0;dimdec;3;dimtdec;3;;\

 

[寸法線先端変更]

 

[寸法線両端開矢印]

*^C^Cdim1 override dimblk1 _open dimblk2 _open ;\;^M;

 

[寸法線両端黒丸]

*^C^Cdim1 override dimblk1 _dot dimblk2 _dot ;\;

 

[寸法線左下黒丸]

*^C^Cdim1 override dimblk1 _dot dimblk2 _open ;\;^M;

 

[寸法線右上黒丸]

*^C^Cdim1 override dimblk1 _open dimblk2 _dot ;\;^M;

 

[現在の寸法スタイルに変更]

^C^C_DIMSTYLE;A;

 

[寸法上書き解除]

^C^C_dimoverride;C

 

[名前削除]

 

[レイヤ全削除]

^C^C_PURGE;LA;;N;

 

[ブロック全削除]^C^C_PURGE;B;;N;

 

[寸法スタイル全削除]

^C^C_PURGE;D;;N;

 

[線種全削除]

^C^C_PURGE;LT;;N;

 

[文字スタイル全削除]

^C^C_PURGE;ST;;N;

 

[シェイプ全削除]

^C^C_PURGE;SH;;N;

 

[マルチライン全削除]

^C^C_PURG E;M;;N;

 

[名前全削除]

^C^C_PURGE;A;;N;