AutoCADマクロ屋本舗 掲示板

56.合計長さ測定（選択ﾀｲﾌﾟ）について教えてください。
LT2016を使用してます。
　点在するポリラインの合計長をしりたくて、56のマクロをやってみました。
しかし、
コマンド: setenv
変数名を入力: to
値 <0>: 0
コマンド: lengthen
計測するオブジェクトを選択 または [増減(DE)/比率(P)/全体(T)/ダイナミック(DY)] <ダイナミック(DY)>:

で止まってしまします。
コマンド: lengthen　のあとのselectで無効になってしまうみたいです。
　難しすぎてよくわかりません教えてください。

修正してみました。お試しください。

♪合計長さ測定2016　試作
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;lengthen;dy;;;l;;setenv;len1;$M="""$(rtos,$(getvar,perimeter),2,3)""";;to;1;;sw;0,,,)$(nth,$(getenv,to),,;len2;$(if,$(getenv,sw),$(+,$(getenv,len2),$(getenv,len1)),$(getenv,len1));;to;2,,)$(nth,$(getenv,to),,,;to;0;offset;;^X長さ：$(getenv,len1)【合計：$(getenv,len2)】--測定ｸﾘｱ(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;u;setenv;to;3,id;)""",)$(nth,$(getenv,to),,,,;to;2;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;lengthen;dy;;;l;;setenv;len1;$M="""$(rtos,$(getvar,perimeter),2,3)""";;to;1;;sw;1)^M

さっそくありがとうございます。

　しかし、動かないみたいです・・・なせでしょう？
　画像おくります。こんなかんじでとまってしまいます。

止まっているのではなく、コマンド実行中です。
オブジェクトを選択して下さい。

お返事ありがとうございます。何度もすいません。
　
　マクロを実行した直後。
　　　補足：ぽちっとマクロに割り当てたボタンを1クリックしただけの状態。

　オブジェクトを選択した後の状態。
　　補足：クロスバーにならず、個々の選択しかできない状態だったので2つのオブジェクトを
　　　　　1つづつクリックした状態です。
　　　　
　　　　こんな感じになってしまいます。本当にすいません。
　　　
　

修正してみました。
お試しください。

♪合計長さ測定2016　試作２
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;lengthen;dy;;;l;;;setenv;len1;$M="""$(rtos,$(getvar,perimeter),2,3)""";;to;1;;sw;0,,,)$(nth,$(getenv,to),,;len2;$(if,$(getenv,sw),$(+,$(getenv,len2),$(getenv,len1)),$(getenv,len1));;to;2,,)$(nth,$(getenv,to),,,;to;0;offset;;^X長さ：$(getenv,len1)【合計：$(getenv,len2)】--測定ｸﾘｱ(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;u;setenv;to;3,id;)""",)$(nth,$(getenv,to),,,,;to;2;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;lengthen;dy;;;l;;;setenv;len1;$M="""$(rtos,$(getvar,perimeter),2,3)""";;to;1;;sw;1)^M

上記マクロが
2016,2017で動作したとの報告がありましたので

56.合計長さ測定（選択ﾀｲﾌﾟ）
http://ameblo.jp/totthi-macro/entry-11031939222.html

こちらに記載させて頂きます。

今、http://ameblo.jp/totthi-macro/entry-11031939222.html
から、コピーしてやりました！
　動きました！！ありがとうございます。

　もし、お時間があれば、1こずつではなく、まとめて選択するにはどうすれば
よいでしょうか？

マクロ集
138.一発合計長さ計測

をお試しください。