AutoCADマクロ屋本舗 掲示板

いつもお世話になっております。
合計長さ測定(選択タイプ)を使わせていただいています。
問題なく動いているのですが、
選択したオブジェクトが視覚的に変化がないので、
選択するモノが増えてくると少し困ってしまいます。
システムの「選択効果の色」になってくれると助かるのですが。急ぎませんのでご検討いただけますでしょうか？
よろしくお願いいたします。

56.合計長さ測定(選択タイプ)に関してですが
旧バージョンでは、選択したオブジェクトが
次々とハイライト表示されていたのですが
CADのバージョンアップによって、コマンド仕様が変更となり
マクロで出来なくなってしまいました。
※extend（延長）コマンドの仕様変更です。

ですので、ちょっと現状では厳しいかと思います。

その為、合計値をメインに作ったのが
138.一発合計長さ計測
です。

こちらは、1個ずつ複数選択し、合計値を計測可能です。
用途に合わせてお使いいただけたらと思います。

そういうことだったのですね。
ありがとうございました。

138.一発合計長さ測定　2016　ではとまってしまいます。



コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0

コマンド:
コマンド:
SETENV
変数名を入力: cv
値 <1>: 1

コマンド:
コマンド: select

オブジェクトを選択: もう一方のコーナーを指定: 認識された数: 17

オブジェクトを選択:

コマンド: copybase

基点を指定: non
0<0

オブジェクトを選択: p
認識された数: 17

オブジェクトを選択:

コマンド: setenv
変数名を入力: CreateViewports
値 <1>: 0

コマンド:
コマンド: -layout

レイアウトのオプションを入力 [複写(C)/削除(D)/新規作成(N)/テンプレート(T)/名前変更(R)/名前を付けて保存(SA)/設定(S)/一覧(?)] <設定>: n

新しいレイアウトの名前を入力 <レイアウト1>: KDIST

コマンド:
-LAYOUT

レイアウトのオプションを入力 [複写(C)/削除(D)/新規作成(N)/テンプレート(T)/名前変更(R)/名前を付けて保存(SA)/設定(S)/一覧(?)] <設定>: s

現在のレイアウトにするレイアウトを選択 <ﾚｲｱｳﾄ1>: KDIST
レイアウトを再作図中。

コマンド: pasteclip
挿入点を指定: non
0<0

コマンド: zoom

窓のコーナーを指定、表示倍率を入力(nX または nXP) または
[図面全体(A)/中心点(C)/ダイナミック(D)/オブジェクト範囲(E)/前画面(P)/倍率(S)/窓(W)/選択オブジェクト(O)] <リアル タイム>: e
レイアウトを再作図中。

コマンド: setenv
変数名を入力: sw
値 <0>: 0

コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 1

コマンド:
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <1>: 0

コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 3

コマンド:
コマンド: select

オブジェクトを選択: l
認識された数: 1

オブジェクトを選択:

コマンド: lengthen

計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <全体(T)>: l


現在の長さ: 1.167
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <全体(T)>:

全体の長さを入力 または [角度(A)] <1.000>: erase

距離を数値で入力してください, 2 点を指定 または オプションのキーワードを入力してください。

コマンドラインに

全体の長さを入力または[角度(A)]<1.000>:

と出てます。

急ぎません(^^;;;;)

よろしくお願いいたします。

2015以降（2014だったかな？）、lengthenコマンドの仕様変更がありました。
2016も同じか分かりませんが、修正してみたのでお試しください。

♪一発合計長さ計測 2016 試作１
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cv;$(getenv,CreateViewports);select;\copybase;non;0<0;p;;setenv;CreateViewports;0;-layout;n;KDIST;;s;KDIST;pasteclip;non;0<0;zoom;e;setenv;sw;0;;to;1,;to;3;select;l;;lengthen;l;;;erase;l;;setenv;to;2,,)$(nth,$(getenv,to),,,;pe;$(if,$(getenv,sw),$(+,$(getvar,perimeter),$(getenv,pe)),$(getvar,perimeter));;sw;1;;to;1,-layout;s;Model;;d;KDIST;setenv;CreateViewports;$(getenv,cv);^C;^Z^X【合計：$(getenv,pe)】^X)^M

おはようございます。
対応ありがとうございます。

1回目　走り出しません。
キャンセル後、走り出すも止まります。



コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <3>: 0


コマンド:
コマンド: -layout

レイアウトのオプションを入力 [複写(C)/削除(D)/新規作成(N)/テンプレート(T)/名前変更(R)/名前を付けて保存(SA)/設定(S)/一覧(?)] <設定>: s

現在のレイアウトにするレイアウトを選択 <ﾚｲｱｳﾄ1>: Model

コマンド:
-LAYOUT

レイアウトのオプションを入力 [複写(C)/削除(D)/新規作成(N)/テンプレート(T)/名前変更(R)/名前を付けて保存(SA)/設定(S)/一覧(?)] <設定>: d

削除するレイアウトの名前を入力 <ﾚｲｱｳﾄ1>: KDIST
レイアウト "KDIST" が見つかりません、何も削除されませんでした。

コマンド: setenv
変数名を入力: CreateViewports
値 <0>: 1

コマンド:
コマンド:
コマンド:
SETENV
変数名を入力: *削除*
【合計：】*削除*
【合計：】

コマンド:
コマンド: *キャンセル*

コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0

コマンド:
コマンド:
SETENV
変数名を入力: cv
値 <1>: 1

コマンド:
コマンド: select

オブジェクトを選択: 認識された数: 1

オブジェクトを選択: 認識された数: 1, 総数 2

オブジェクトを選択:

コマンド: copybase

基点を指定: non
0<0

オブジェクトを選択: p
認識された数: 2

オブジェクトを選択:

コマンド: setenv
変数名を入力: CreateViewports
値 <1>: 0

コマンド:
コマンド: -layout

レイアウトのオプションを入力 [複写(C)/削除(D)/新規作成(N)/テンプレート(T)/名前変更(R)/名前を付けて保存(SA)/設定(S)/一覧(?)] <設定>: n

新しいレイアウトの名前を入力 <レイアウト1>: KDIST

コマンド:
-LAYOUT

レイアウトのオプションを入力 [複写(C)/削除(D)/新規作成(N)/テンプレート(T)/名前変更(R)/名前を付けて保存(SA)/設定(S)/一覧(?)] <設定>: s

現在のレイアウトにするレイアウトを選択 <ﾚｲｱｳﾄ1>: KDIST
レイアウトを再作図中。

コマンド: pasteclip
挿入点を指定: non
0<0

コマンド: zoom

窓のコーナーを指定、表示倍率を入力(nX または nXP) または
[図面全体(A)/中心点(C)/ダイナミック(D)/オブジェクト範囲(E)/前画面(P)/倍率(S)/窓(W)/選択オブジェクト(O)] <リアル タイム>: e
レイアウトを再作図中。

コマンド: setenv
変数名を入力: sw
値 <0>: 0

コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 1

コマンド:
コマンド:
コマンド:
コマンド: setenv
変数名を入力: to
値 <1>: 0

コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 3

コマンド:
コマンド: select

オブジェクトを選択: l
認識された数: 1

オブジェクトを選択:

コマンド: lengthen

計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <全体(T)>: l


現在の長さ: 4650.081
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <全体(T)>:

全体の長さを入力 または [角度(A)] <1.000>:

変更するオブジェクトを選択 または [元に戻す(U)]: erase


*選択無効*
点を指定 または フェンス(F)/元に戻す(U)]:

変更するオブジェクトを選択 または [元に戻す(U)]:


で止まります。

ほんと急ぎません(^^;;;;)

１回目が走らないのは、前回のマクロ停止な為だと思います。

lengthenコマンドにエンター追加しました。
再度お試しください。

♪一発合計長さ計測 2016 試作２
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;cv;$(getenv,CreateViewports);select;\copybase;non;0<0;p;;setenv;CreateViewports;0;-layout;n;KDIST;;s;KDIST;pasteclip;non;0<0;zoom;e;setenv;sw;0;;to;1,;to;3;select;l;;lengthen;l;;;;erase;l;;setenv;to;2,,)$(nth,$(getenv,to),,,;pe;$(if,$(getenv,sw),$(+,$(getvar,perimeter),$(getenv,pe)),$(getvar,perimeter));;sw;1;;to;1,-layout;s;Model;;d;KDIST;setenv;CreateViewports;$(getenv,cv);^C;^Z^X【合計：$(getenv,pe)】^X)^M

お礼が遅くなり申し訳ございません。
問題なく動いています。
ありがとうございました。