117.引出線/矢印記入 | AutoCADマクロ屋本舗
[117]
引出線/矢印記入 [2007/5/30 UP]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;sw;0;;to;1,ray;【$(nth,$(getenv,sw),引出線(フリー),矢印2点,矢印3点,矢印4点)】[切替(R-click)]^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;$(nth,$(getenv,sw),3,4,5,6),setenv;to;2)""",,,,,)$(nth,$(getenv,to),,,;sw;$(if,$(=,$(+,$(getenv,sw),1),4),0,$(+,$(getenv,sw),1));;to;1,,,,)$(nth,$(getenv,to),,,,;to;1;leader;non;@,;to;1;leader;non;@;\a;;n,;to;1;leader;non;@;\\a;;n,;to;1;leader;non;@;\\\a;;n)^M


LT2000/LT2004 動作確認済


●使い方
1.始点を指定
  ※初期状態は通常の"LEADER"コマンド
   右クリックする毎に「引出線(フリー)⇒矢印2点⇒矢印3点⇒矢印4点」切替

▲注意
特に無し。

■コメント
引出線記入コマンドと矢印作図マクロを合わせました。
"QLEADER"ではなく、"LEADER"の方ですので、お間違い無く。


7日でおぼえるAutoCADL AutoCAD LT2011/2010/2009/2008/2.../鳥谷部 真

¥3,360
Amazon.co.jp