φ⇔P.C.D記入(右ｸﾘｯｸ切替)
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;1,,)$(nth,$(getenv,to),,dim1;override;dimpost;%%C<>;;p;;dist;^X【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),;id;,setenv;to;2;)""",)$(nth,$(getenv,to),,,dim1;override;dimpost;P.C.D.<>;;p;;dist;^X【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),;id;,setenv;to;1)""",)^M |
LT2000 動作確認済
●使い方
１．寸法オブジェクト選択
２．寸法値接頭φ記入
右クリック(Enter可)でP.C.D⇔φ切替
▲注意
特に無し
■コメント
かなり前に作成したマクロ！
接頭文字φとP.C.Dを切り替えるだけですが、意外と便利♪
マクロ中のφとP.C.Dを書き換えれば、
他にも色々な文字で使えます。
併せて下記のマクロも参照下さい↓
寸法値( )付加
| *^C^C_select;$M=$(if,$(getvar,"CMDACTIVE"),\,)_'cmddia;0;dim1;new;(<>);_p;;cmddia;1^M |
LT2000 動作確認済
●使い方
１．寸法オブジェクト選択
２．寸法値に( )を付けます
▲注意
特に無し
■コメント
寸法値に( )を付けるマクロです。
マクロ修正すれば、これも色々使えます♪
元の寸法値
| *^C^C_select;$M=$(if,$(getvar,"CMDACTIVE"),\,)_'cmddia;0;dim1;new;<>;_p;;cmddia;1;_dim1;override;dimpost;<>;_dimtol;off;;p;^M |
LT2000 動作確認済
●使い方
１．寸法オブジェクト選択
２．元の寸法値に戻る
▲注意
接頭・接尾文字及び、記入した文字も消えます！
■コメント
寸法に付加された文字を消し
元の寸法値のみの状態に戻すマクロです。
修正用に♪
by totthi
AutoLISPの初歩―AutoCADを使いこなすために/岡島 正夫
￥2,940
Amazon.co.jp