以前、DenさんのＨＰ(http://www7b.biglobe.ne.jp/~den-eng/Free/ac/ac01.html#08)からコピペさせていただいたものです。
円弧だけでなく、円弧や直線が合わさったポリラインにも寸法が引き出せる
とても便利なマクロなのですが、LT2015くらいから作動しなくなってしまいました。
これをLT2017でも動くように修正は可能しょうか？
宜しくお願いします。
^C^C_arc;^X^X【起点指示】^X\nea;^X^X【中間点指示】^X\^X^X【終点指示】^X\_lengthen;l;;_move;l;;non;@;non;@;$M=_dimangular;@;t;$(rtos,$(/,$(getvar,perimeter),1),2,0);\_erase;p;;
以下、scriptです。
コマンド: _arc
円弧の始点を指定 または [中心(C)]: *削除*
*削除*
【起点指示】*削除*
【起点指示】
円弧の 2 点目を指定 または [中心(C)/終点(E)]: nea
どこに *削除*
*削除*
【中間点指示】*削除*
【中間点指示】
円弧の終点を指定: *削除*
*削除*
【終点指示】*削除*
【終点指示】
コマンド: _lengthen
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <全体(T)>: l
現在の長さ: 4712.3890、角度: 180
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <全体(T)>:
全体の長さを入力 または [角度(A)] <1.0000>: _move
距離を数値で入力してください, 2 点を指定 または オプションのキーワードを入力してください。
全体の長さを入力 または [角度(A)] <1.0000>:
変更するオブジェクトを選択 または [元に戻す(U)]: *キャンセル*
円弧寸法のマクロ
- みかん
- 2017/07/10 (Mon) 13:16:16