152.円 円周記入

[152]
円 円周記入

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),offset;;\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;area;o;l;setenv;a1;$M="""$(getvar,perimeter)""";;to;1;line;nea;@;cen;@;;lengthen;l;,,)$(nth,$(getenv,to),,;to;2;erase;l;;ucs;ob;l;dimangular;;non;0<0;nea;0",-$(getvar,perimeter);nea;0,-$(getvar,perimeter);t;$(rtos,$(getenv,a1),2,2);0,"-$(getvar,perimeter),)$(nth,$(getenv,to),,,aidimtextmove;0;l;;0","$(+,$(getvar,perimeter),$(*,$(getvar,dimscale),10));ucs;p)^M

2004/2010/2013 動作確認済

●使い方
１．円オブジェクト選択　⇒　繰返し




▲注意
１．円以外のオブジェクトを選択しないで下さい。

■更新履歴
・2017.8.25 UP




基礎からしっかり身に付く AutoCAD LT入門 2018/2017/2016/2015/2.../芳賀 百合

￥価格不明
Amazon.co.jp

151.分割数指定 配列複写

[151]
分割数指定 配列複写

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""ucs;w;copybase;\p;;setenv;to;1,,)$(nth,$(getenv,to),,;bk;分割数記入^x\id;\setenv;p1;$M="""$(getvar,lastpoint)""";line;non;@;\;lengthen;l;;ucs;ob;l;erase;l;;setenv;to;2,)$(nth,$(getenv,to),,,ucs;w;pasteblock;non;$(getenv,p1);explode;l;ucs;p;-array;p;;r;1;$(+,$(getenv,bk),1);$(/,$(getvar,perimeter),$(getenv,bk));ucs;p;;p)^M

2010/2013 動作確認済

●使い方
１．オブジェクト選択
２．基点を指定
３．分割数記入
４．配列複写の１点目を指定
５．配列複写の２点目を指定　⇒　繰返し１へ


分割数指定 配列複写（基点固定ﾊﾞｰｼﾞｮﾝ）

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;bk;分割数記入^x\ucs;w;copybase;\p;;setenv;to;1;ucs;p,,)$(nth,$(getenv,to),,;p1;$M="""$(getvar,lastpoint)""";line;non;@;\;lengthen;l;;ucs;ob;l;erase;l;;setenv;to;2,)$(nth,$(getenv,to),,,ucs;w;pasteblock;non;$(getenv,p1);explode;l;ucs;p;move;p;;non;@;non;@$(/,$(getvar,perimeter),$(getenv,bk))<0;-array;p;;r;1;$(getenv,bk);$(/,$(getvar,perimeter),$(getenv,bk));ucs;p;;p)^M

2010/2013 動作確認済

●使い方
１．オブジェクト選択
２．分割数記入
３．基点を指定
４．配列複写の２点目を指定　⇒　繰返し１へ


▲注意
１．途中キャンセルをすると、UCS座標が変わったままとなります。

■更新履歴
・2017.8.24 UP





AutoCADを200%使いこなす本[2017対応] (エクスナレッジムック)/阿部 秀之

￥価格不明
Amazon.co.jp

【お知らせ】マクロ修正

マクロ集
72.文字枠作成


上記マクロの
バージョン2013対応版を修正しました。

旧バージョンも2013で動いてたと思ってたのですが
試してみたら動かなかったので・・・（汗

useri5　を setenv;to;　に変更しました。


とってぃ