合計長さ測定2016 [2016.11.30追加]
| *^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 |
R2016 LT2017 動作確認済
合計長さ測定2015 [2015.3.4追加]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),lengthen;\;;;select;non;@;non;@;;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;@;;lengthen;non;@;;;;setenv;len1;$M="""$(rtos,$(getvar,perimeter),2,3)""";;to;1;;sw;1)^M |
LT2015 動作確認済
合計長さ測定 [2013.9.24修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),lengthen;\;select;non;@;non;@;;setenv;leng;$M="""$(getvar,perimeter)""";;to;2,;leng;$(+,$(getvar,perimeter),$(getenv,leng));;to;2,,)$(nth,$(getenv,to),,,;to;0;extend;p;;^X長さ：$(rtos,$(getvar,perimeter),2,3)【合計：$(rtos,$(getenv,leng),2,3)】--測定ｸﾘｱ(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;u;setenv;to;3,id;)""",)$(nth,$(getenv,to),,,,;to;2;select;non;@;non;@;;lengthen;non;@;;setenv;to;1)^M |
LT2004/2013 動作確認済
●使い方
１．オブジェクトを選択 ⇒ コマンドラインに数値表記
※繰返しオブジェクト選択する事で、合計値もコマンドラインに表記
※途中右クリックで合計値クリア
▲注意
特になし
■更新履歴
・2016/11/30 バージョン2016・2017対応版 UP
デザインの学校 これからはじめるAutoCADの本 AutoCAD/AutoCAD LT 2.../稲葉 幸行
￥2,499
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
合計長さ測定 [2008.8.1修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),lengthen;\;select;non;@;non;@;;setenv;leng;$M="""$(getvar,perimeter)""";;to;2,;leng;$(+,$(getvar,perimeter),$(getenv,leng));;to;2,,)$(nth,$(getenv,to),,,;to;0;extend;p;;^X長さ：$(rtos,$(getvar,perimeter),2,3)【合計：$(rtos,$(getenv,leng),2,3)】--測定ｸﾘｱ(Rc)--^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,id;)""",)$(nth,$(getenv,to),,,,;to;2;select;non;@;non;@;;lengthen;non;@;;setenv;to;1)^M |
LT2004 R2005/R2006 動作確認済
●使い方
１．オブジェクトを選択
※途中右クリックで合計値クリア
▲注意
１．繋がっていない線分を選択すると、延長されてしまいます。※注意
■コメント
以前のバージョンにて、不具合が見つかりました。
マクロ中で、コピー後に削除を行なっていなかった為
途中キャンセルを行なうと、余分なオブジェクトが残ったままでした。
デザインの学校 これからはじめるAutoCADの本 AutoCAD/AutoCAD LT 2.../稲葉 幸行
￥2,499
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
合計長さ測定 [2007.8.9修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),lengthen;\;select;non;@;non;@;;setenv;leng;$M="""$(getvar,perimeter)""";;to;2,;leng;$(+,$(getvar,perimeter),$(getenv,leng));;to;2,,)$(nth,$(getenv,to),,,;to;0;extend;p;;^X長さ：$(rtos,$(getvar,perimeter),2,3)【合計：$(rtos,$(getenv,leng),2,3)】--測定ｸﾘｱ(Rc)--^X\$M="""$(if,$(getvar,cmdactive),u;;setenv;to;3,id;)""",)$(nth,$(getenv,to),,,,;to;2;select;non;@;non;@;;copy;p;;non;@;non;@;lengthen;l;;setenv;to;1)^M |
LT2004 R2005/R2006 動作確認済
●使い方
１．オブジェクトを選択
※途中右クリックで合計値クリア
▲注意
１．途中キャンセルをすると、余分なオブジェクトが残ります。
■コメント
旧バージョンを修正しました。
後から見ると、結構ツッコミ所満載なマクロだった･･･(--;
※旧バージョン参照（汗
デザインの学校 これからはじめるAutoCADの本 AutoCAD/AutoCAD LT 2.../稲葉 幸行
￥2,499
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
合計長さ測定１
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ar;0;^Pcopy^P;\non;@;;non;@;non;@;erase;p;;fillet;@;;$m="""$(if,$(getvar,cmdactive),@;,list;;)"""setenv;to;1,pedit;@;;$M="""$(if,$(getvar,cmdactive),;,)"""AREA;O;@;setenv;to;2,,)$(nth,$(getenv,to),,,;ar;$(+,$(getvar,perimeter),$(getenv,ar));;to;3,)$(nth,$(getenv,to),,,,extend;@;^X長さ:$(rtos,$(getvar,perimeter),2,3) 計:$(rtos,$(getenv,ar),2,3)［合計クリア(R-Click)］^X\;$M="""$(if,$(getvar,cmdactive),;setenv;to;1,setenv;to;0)""")^M |
LT2000 動作確認済
●使い方
１．オブジェクトを選択
※途中右クリックで合計値クリア
▲注意
１．選択したオブジェクトはポリラインに変換されます。
２．ミスピックは対応してませんので、
オブジェクトの選択は確実に行なってください。
■コメント
某掲示板にて、検索が面倒だったので、作ったマクロ。
選択したオブジェクトをハイライト表示するので
作業的には使いやすいかな？
ただし!!
ミスピックは対応して無いけど･･･(-Д-)
デザインの学校 これからはじめるAutoCADの本 AutoCAD/AutoCAD LT 2.../稲葉 幸行
￥2,499
Amazon.co.jp
合計長さ測定２ [ミスピック対応]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;ar;0;^Pcopy^P;\non;@;;non;@;non;@;erase;p;;fillet;@;;$m="""$(if,$(getvar,cmdactive),@;,list;;)"""setenv;to;1,pedit;@;;$M="""$(if,$(getvar,cmdactive),;,)"""AREA;O;@;setenv;to;2,,,)$(nth,$(getenv,to),,,;ar;$(+,$(getvar,perimeter),$(getenv,ar));;to;3,,)$(nth,$(getenv,to),,,,offset;;^X長さ:$(rtos,$(getvar,perimeter),2,3) 計:$(rtos,$(getenv,ar),2,3)［合計クリア(R-Click)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;0)""",)$(nth,$(getenv,to),,,,,select;non;@;;$M="""$(if,$(getvar,cmdactive),non;@;L;;setenv;to;3,setenv;to;1)""")^M |
LT2000 動作確認済
●使い方
１．オブジェクトを選択
※途中右クリックで合計値クリア
▲注意
１．選択したオブジェクトはポリラインに変換されます。
２．マクロが長い為、メニューファイルに直接コピペして下さい。
■コメント
合計長さ測定１を作る前に作ったマクロ。
ミスピックは対応しているものの
どのオブジェクトを選んだか表示されない･･･
お好みで使って下さいネ(^^;
デザインの学校 これからはじめるAutoCADの本 AutoCAD/AutoCAD LT 2.../稲葉 幸行
￥2,499
Amazon.co.jp