寸法補助線 有/無
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;dimse;0;;to;1,;dimse1;$(nth,$(getenv,dimse),on,off,on,off);;dimse2;$(nth,$(getenv,dimse),off,on,on,off);;to;2,,,,)$(nth,$(getenv,to),,,dimoverride;dimse1;$(getenv,dimse1);dimse2;$(getenv,dimse2);;p;;setenv;to;3,,,)$(nth,$(getenv,to),,,,offset;;^Xｵﾌﾞｼﾞｪｸﾄを選択：［$(nth,$(getenv,dimse),補助線2なし,両なし,両あり,補助線1なし)(右ｸﾘｯｸ)］^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,setenv;to;5)""",,)$(nth,$(getenv,to),,,,,select;@;\setenv;to;1,;dimse;$(if,$(eq,$(getenv,dimse),3),0,$(+,$(getenv,dimse),1));;to;1)^M |
LT2000 動作確認済
●使い方
１．寸法オブジェクトを選択
後、補助線１が非表示となり、右クリックする度に
補助線2なし⇒両なし⇒両あり⇒補助線1なし
と、繰返しとなります。
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい
■コメント
「64.寸法矢印編集」の応用です。
使い道は少ないかも知れませんが･･･（汗
最速攻略AutoCAD VB.NETマクロサンプル大全集AutoCAD2009/2010/20.../落合 重紀
￥4,095
Amazon.co.jp