平行線測定 [2007/11/20 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),^Pcopy^P;\non;@;;non;@;non;@;id;nea;@;erase;p;;setenv;p1;$M="""$(getvar,lastpoint)""";;to;1,,,)$(nth,$(getenv,to),,extend;l;;^x平行なｵﾌﾞｼﾞｪｸﾄを選択^x\@;;u;setenv;to;1;select;non;@;non;@;;id;nea;@;zoom;@;$(getenv,p1);ucs;ob;l;id;nea;@;setenv;l1$M=""";$(rtos,$(index,1,$(getvar,lastpoint)),2,4)""";;to;2,,)$(nth,$(getenv,to),,,;l2;$(if,$(>,0,$(getenv,l1)),$(*,$(getenv,l1),-1),$(getenv,l1));;to;3,select;non;@;l;;ucs;p;select;p;'zoom;p;^X【$(getenv,l2)】--継続はEnter--^X\id;)^M |
LT2004 R2005/R2006 動作確認済
●使い方
１．１つ目の線分を選択
２．２つ目の線分を選択
３．コマンドラインに距離が表示されます
※この時、エンター（または右クリック）で１へ
▲注意
１．ポリラインには対応していません。
２．線分以外を選択すると、計測された数値が正しくない場合があります。
３．マクロが長い為、カスタマイズダイアログに直接貼付け出来ない場合は
メニューファイルに直接貼り付けて下さい。
■コメント
本掲示板に、作成依頼があったので作りましたが･･･
動作的に問題はありませんが、まだまだ改良した方が良さそうです(^^;
しかも、寸法記入で確認した方が早いと･･･（汗
とりあえず、紹介はしておきます。
描きたい操作がすぐわかる! AutoCAD LT操作ハンドブック 2013/2012/201.../ソーテック社
￥2,604
Amazon.co.jp