[147]
寸法補助線長さ統一連続寸法 [2009/12/22 UP]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1;ucs;w,xline;$(if,$(getenv,sw),v,h);\$M="""$(if,$(getvar,cmdactive),;setenv;to;2,setenv;to;1;;sw;$(if,$(getenv,sw),0,1))""",,,,)$(nth,$(getenv,to),,,;sw0;0;xline;$(if,$(getenv,sw),h,v);\;erase;l;;;l;;ucs;o;non;@;$(if,$(getenv,sw),,;z;90;)setenv;to;3,,,)$(nth,$(getenv,to),,,,ray;^x次の寸法補助線位置指定：【終了(Rc)】^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;$(if,$(getenv,sw0),5,4),ucs;p;;p;$(if,$(getenv,sw),,;p;)^Cid;^Z)""",,)$(nth,$(getenv,to),,,,,dimlinear;non;0<0;non;$(index,0,$(getvar,lastpoint))<0;\setenv;sw0;1;;to;3,;to;3;dimcontinue;non;$(index,0,$(getvar,lastpoint))<0;;)^M |
LT2000i/LT2004 R2005/R2006 動作確認済
●使い方
１．オブジェクト側の寸法開始位置を指定
※右クリックで、水平/垂直切替
２．図面上の寸法開始位置を指定
３．オブジェクト側の寸法補助線２つ目の位置を指定
※右クリックで、終了
４．寸法線の位置を指定
５．オブジェクト側の直列寸法２つ目の位置を指定 →繰り返し５へ
※右クリックで、終了
※操作参考動画
▲注意
１．マクロが長い為、カスタマイズダイアログに貼り付けできない場合は
メニューファイルに直接貼り付けてください。
２．途中キャンセルを行なうと、UCSが移動したままとなります。
■コメント
掲示板で依頼があったので作成してみました。
自分的にも意外と便利でした。
お試し下さい。
AutoCAD 2013/AutoCAD LT 2013 公式トレーニングガイド/日経BP社
￥3,990
Amazon.co.jp