テーマ:
[138]
一発合計長さ計測 Ver.2017 [2016.6.9追記]
*^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;dy;;;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

2017 動作確認済


一発合計長さ計測 Ver.2016 [2015.8.25追記]
*^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

2016 動作確認済


一発合計長さ計測(複数選択) [2008.9.11修正]
*^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

LT2004/LT2013 R2005/R2006 動作確認済


●使い方
1.合計長さを計測したいオブジェクトを選択

▲注意
1.オブジェクトが2重になっている場合も、計測対象となります。 【要注意】
2.マクロ中にて、仮レイアウト"KDIST"を作成しています。
  同じ名前のレイアウトを使用している場合は、マクロ内の"KDIST"を変更して下さい。
3.容量の多い図面では、動作が遅くなる場合があります。

■コメント
当HPの掲示板に、助言を頂きました。
前バージョンのマクロ内の「モデル」を「Model」に変更。
また、「CreateViewports」にて、オプションの表示タブの"レイアウトの要素"内の
「新規レイアウトにビューポートを作成」を、マクロでコントロールしています。


はじめてさわるAutoCAD LT 2000/2000i/2002/2004/2005/20.../インプレス

¥3,129
Amazon.co.jp



↓↓↓前バージョン↓↓↓


一発合計長さ計測(複数選択) [2008/9/2 UP]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;\copybase;non;0<0;p;;-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;モデル;;d;KDIST;^Cid;^Z^X【合計:$(getenv,pe)】^X)^M


LT2004 R2005/R2006 動作確認済


●使い方
1.合計長さを計測したいオブジェクトを選択

▲注意
1.オプションの表示タブの"レイアウトの要素"内の
  「新規レイアウトにビューポートを作成」の、チェックを外しておいて下さい。
  計測結果が異なる場合があります。
2.マクロ中にて、仮レイアウト"KDIST"を作成しています。
  同じ名前のレイアウトを使用している場合は、マクロ内の"KDIST"を変更して下さい。
3.容量の多い図面では、動作が遅くなる場合があります。


※オブジェクトが2重になっている場合も、計測対象となります。
 ご注意下さい。


■コメント
なんとなく作ってみました。
1個ずつ選択するのが面倒な方向けです。


はじめてさわるAutoCAD LT 2000/2000i/2002/2004/2005/20.../インプレス

¥3,129
Amazon.co.jp

AD
いいね!した人  |  コメント(0)  |  リブログ(0)

とってぃさんの読者になろう

ブログの更新情報が受け取れて、アクセスが簡単になります

AD

ブログをはじめる

たくさんの芸能人・有名人が
書いているAmebaブログを
無料で簡単にはじめることができます。

公式トップブロガーへ応募

多くの方にご紹介したいブログを
執筆する方を「公式トップブロガー」
として認定しております。

芸能人・有名人ブログを開設

Amebaブログでは、芸能人・有名人ブログを
ご希望される著名人の方/事務所様を
随時募集しております。