テーマ:
[72]
文字枠作成 [属性値判別付]
*^C^C$m=useri5;0;$(nth,$(getvar,useri5),offset;;^x単一文字オブジェクト選択^x\;select;@;@;;undo;be;useri5;1;-attedit;y;*;*;*;non;@;;$M="""$(if,$(getvar,cmdactive),;useri5;0,)""",,,,,)$(nth,$(getvar,useri5),,explode;@;"""$m=$(if,$(getvar,cmdactive),;)"""explode;@;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;non;@;non;@;;useri5;2,,,,)$(nth,$(getvar,useri5),,,ucs;e;@;sortents;127;line;non;@;non;@0.01<0;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);useri5;3,,,)$(nth,$(getvar,useri5),,,,userr1;$(getvar,perimeter);sortents;127;line;mid;@;non;@0","0.01;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);ucs;e;l;erase;l;;;l;;useri5;4,,)$(nth,$(getvar,useri5),,,,,ucs;o;$(/,$(getvar,perimeter),2)","0;rectang;non;-$(/,$(getvar,perimeter),2)","-$(/,$(getvar,userr1),2);non;$(/,$(getvar,perimeter),2)","$(/,$(getvar,userr1),2);ucs;p;;p;;p;copybase;0<0;l;;undo;e;u;pasteclip;non;0<0)^M


LT2000/LT200i/LT2002/LT2013 動作確認済


●使い方
1.文字オブジェクトを選択すると、文字の周りを四角形で囲みます

▲注意
1.文字以外を選択しないで下さい
  ※ブロック文字はOK!! ただし、属性は選択しても編集できません!!
2.マクロが長い為、メニューファイルに直接コピペして下さい

■コメント
某掲示板にて・・・
テリー大先生作「文字消し線付加」マクロを参考に作りました(^^;

やはり・・・大先生は偉大です・・・


徹底解説AutoCAD LT 2012 (エクスナレッジムック)/鈴木裕二

¥3,990
Amazon.co.jp



↓↓上記マクロで動かない場合は↓↓

文字枠作成 [2006.2.14修正]
*^C^C$m=useri5;0;$(nth,$(getvar,useri5),offset;;^x単一文字オブジェクト選択^x\;select;@;@;;useri5;1,,,,)$(nth,$(getvar,useri5),,copybase;non;0","0;p;;id;$(getvar,lastpoint);undo;be;explode;@;"""$m=$(if,$(getvar,cmdactive),;)"""explode;@;"""""""$m=$(if,$(getvar,cmdactive),;)"""""""select;@;@;;useri5;2,,,)$(nth,$(getvar,useri5),,,ucs;e;@;sortents;127;line;non;@;non;@0.01<0;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);useri5;3,,)$(nth,$(getvar,useri5),,,,userr1;$(getvar,perimeter);sortents;127;line;mid;@;non;@0","0.01;;extend;p;;@;@;;lengthen;l;;sortents;$(getvar,sortents);ucs;e;l;erase;p;l;;;l;;useri5;4,)$(nth,$(getvar,useri5),,,,,ucs;o;$(/,$(getvar,perimeter),2)","0;rectang;non;-$(/,$(getvar,perimeter),2)","-$(/,$(getvar,userr1),2);non;$(/,$(getvar,perimeter),2)","$(/,$(getvar,userr1),2);ucs;p;;p;;p;pasteclip;non;0","0;useri5;0)^M


R2002,R2006/LT2000/LT2013 動作確認済


●使い方
1.文字オブジェクトを選択すると、文字の周りを四角形で囲みます

▲注意
1.文字以外(寸法値含む)を選択しないで下さい
2.マクロが長い為、メニューファイルに直接コピペして下さい

■コメント
某掲示板にて・・・
R2002に対応させる為に作ったマクロです。
CADのバージョンが違うと、全く動作しないのが
マクロの痛いところ・・・(泣


徹底解説AutoCAD LT 2012 (エクスナレッジムック)/鈴木裕二

¥3,990
Amazon.co.jp

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

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

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

AD

Ameba人気のブログ

Amebaトピックス

      ランキング

      • 総合
      • 新登場
      • 急上昇
      • トレンド

      ブログをはじめる

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

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

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

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

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