分割数指定 配列複写
| *^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