円サイズ修正(連続編集可能) [2017.2.17修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^X円ｵﾌﾞｼﾞｪｸﾄを選択^X\;select;non;@;;$M="""$(if,$(getvar,cmdactive),non;@;L;;setenv;to;0,setenv;to;1)""",,)$(nth,$(getenv,to),,area;o;@;setenv;pe;$M="""$(rtos,$(/,$(getvar,perimeter),3.141592654))""";;to;2,)$(nth,$(getenv,to),,,;d1;^x直径記入<$(getenv,d1)>--選択円の直径($(getenv,pe))^x\change;p;;;$M="""$(/,$(getenv,d1),2)""";setenv;to;0)^M |
LT2000/2013 動作確認済
●使い方
１．円オブジェクトを選択
-------------------------------------
ｺﾏﾝﾄﾞ: setenv
変数名を入力: d1
値 <20>:直径記入【選択円の直径<10>】
↑
選択円の直径
-------------------------------------
２．直径を記入
▲注意
１．円オブジェクトのみ選択してください。
■更新履歴
・2017.2.17 2013不動作の為、マクロ修正。
・2007.1.17 前バージョンよりも連続して編集出来る様に修正。
by totthi
描きたい操作がすぐわかる！AutoCAD LT 操作ハンドブック 2011/2010/2009.../鈴木 孝子
￥2,499
Amazon.co.jp
↓↓↓前バージョン↓↓↓
円サイズ修正
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;^X円ｵﾌﾞｼﾞｪｸﾄを選択^X\;select;non;@;;$M="""$(if,$(getvar,cmdactive),non;@;L;;setenv;to;0,setenv;to;1)""",,,)$(nth,$(getenv,to),,area;o;@;setenv;pe;$M="""$(rtos,$(/,$(getvar,perimeter),3.141592654))""";;to;2,)$(nth,$(getenv,to),,,setenv;直径;$(getenv,pe);setenv;直径;\change;p;;;$M="""$(/,$(getenv,直径),2)""";setenv;to;0)^M |
LT2000 動作確認済
●使い方
１．円オブジェクトを選択
-------------------------------------
ｺﾏﾝﾄﾞ: setenv
変数名を入力: 直径
値 <20>:
↑
現在のオブジェクトの直径
-------------------------------------
２．直径を記入
▲注意
１．円オブジェクトのみ選択してください。
■コメント
既存の円を消して書き直すより
少しは早いかな･･･(^^;
by totthi
描きたい操作がすぐわかる！AutoCAD LT 操作ハンドブック 2011/2010/2009.../鈴木 孝子
￥2,499
Amazon.co.jp