AutoCADマクロ屋本舗 掲示板

寸法数値記入でストレッチ
１．寸法値を入力。
２．寸法線の固定側をクリック。
３．寸法線ストレッチ側クリック。
４．ストレッチ範囲を窓で選択。
*^C^C_setenv;寸法値;\_line;endp;\endp;\;_ucs;e;l;_erase;l;;$M=_stretch;c;\\;non;$(getvar,lastpoint);non;$(getenv,寸法値),0;_ucs;p;
上記のマクロを　ブロック定義を編集　でも使用できるようにはならないのでしょうか
ちなみに
Blocインプレイスブロック編集では使用が出来ています
よろしくお願いします

ブロックエディタ内ではUCSコマンドが使用できないです
こんな感じでできるでしょうか？

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;寸法値;\line;endp;\'setenv;p1;$M="""$(getvar,lastpoint)""";endp;\;lengthen;l;;erase;l;;setenv;to;1,,)$(nth,$(getenv,to),,;an1;'cal;"""(180*$M=$(getvar,lastangle)/pi)""";\;to;2,)$(nth,$(getenv,to),,,stretch;c;\\;$(getenv,p1);non;@$M=$(-,$(getenv,寸法値),$(getvar,perimeter))<$(rtos,$(getenv,an1),2,2);setenv;to;0)^M

操作方法は変えていないつもりです

lastangleにて角度を計算しています誤差があるかもしれないです

19:50に修正しました

chibi-tomさん
ありがとう御座います
lengthen;dy;;;l;;;
を
lengthen;l;;
に変えて使用しました（LT2014）
マウスでオブジェクト選択する時に交差選択のみでの使用はできないのでしょうか？
よろしくお願いします

すいませんでした元のマクロから抜けてました
stretch;の後にc;を入れることで交差選択になります

修正したのでコピーし直してください

chibi-tomさん
ありがとう御座います.
作業がはかどります．