テーマ:
[67]
切取りコピー Ver.2017 [2016.07.04追加]
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;non;\setenv;t;1,,,,,,)$(nth,$(getenv,t),,erase;l;;line;non;@;non;$(getenv,p)^H^H;;lengthen;dy;;;l;;;ucs;ob;l;id;non;$M="""$(/,$(getvar,perimeter),2)"""<0;oops;ucs;p;id;non;@;setenv;t;2,,,,,)$(nth,$(getenv,t),,,erase;l;;ucs;o;non;$(getvar,lastpoint);ucs;ob;l;id;non;0<0;ucs;p;setenv;t;3,,,,)$(nth,$(getenv,t),,,,;s;0;;x1;$(*,1.001,$(index,0,$(getvar,lastpoint)));;y1;$(*,1.001,$(index,1,$(getvar,lastpoint)));;x2;$M="""$(*,-1,$(getenv,x1));;y2;$(*,-1,$(getenv,y1))""";;t;4;zoom;c;non;0<0;$(getvar,perimeter);select;l;,,,)$(nth,$(getenv,t),,,,,trim;p;;f;$(getenv,x1)",$(getenv,y1);$(getenv,x2),$(getenv,y1);$(getenv,x2),$(getenv,y2);$(getenv,x1),$(getenv,y2);$(getenv,x1),"$(getenv,y1);;;setenv;t;5,,)$(nth,$(getenv,t),,,,,,;s;$(+,$(getenv,s),1);;t;$M="""$(if,$(=,$(getenv,s),4),6,4)""",erase;p;;copybase;non;0<0;c;non;$(getenv,x1)",$(getenv,y1);non;$(getenv,x2),"$(getenv,y2);;undo;e;u;pasteclip)^M

[動作確認済]
2017


切取りコピー2015 [2015.11.10追加]
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;non;\setenv;t;1,erase;l;;line;non;@;non;$(getenv,p)^H^H;;lengthen;l;;;;ucs;ob;l;id;non;$M="""$(/,$(getvar,perimeter),2)"""<0;oops;ucs;p;id;non;@;setenv;t;2,,,,,)$(nth,$(getenv,t),,,erase;l;;ucs;o;non;$(getvar,lastpoint);ucs;ob;l;id;non;0<0;ucs;p;setenv;t;3,,,,)$(nth,$(getenv,t),,,,;s;0;;x1;$(*,1.001,$(index,0,$(getvar,lastpoint)));;y1;$(*,1.001,$(index,1,$(getvar,lastpoint)));;x2;$M="""$(*,-1,$(getenv,x1));;y2;$(*,-1,$(getenv,y1))""";;t;4;zoom;c;non;0<0;$(getvar,perimeter);select;l;,,,)$(nth,$(getenv,t),,,,,trim;p;;f;$(getenv,x1)",$(getenv,y1);$(getenv,x2),$(getenv,y1);$(getenv,x2),$(getenv,y2);$(getenv,x1),$(getenv,y2);$(getenv,x1),"$(getenv,y1);;;setenv;t;5,,)$(nth,$(getenv,t),,,,,,;s;$(+,$(getenv,s),1);;t;$M="""$(if,$(=,$(getenv,s),4),6,4)""",erase;p;;copybase;non;0<0;c;non;$(getenv,x1)",$(getenv,y1);non;$(getenv,x2),"$(getenv,y2);;undo;e;u;pasteclip)^M

[動作確認済]
LT2015 ※バージョン2014以下では動作しない可能性あり。


切取りコピー2013 [2013.10.23追加]
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;non;\setenv;t;1,erase;l;;line;non;@;non;$(getenv,p)^H^H;;lengthen;l;;ucs;ob;l;id;non;$M="""$(/,$(getvar,perimeter),2)"""<0;oops;ucs;p;id;non;@;setenv;t;2,,,,,)$(nth,$(getenv,t),,,erase;l;;ucs;o;non;$(getvar,lastpoint);ucs;ob;l;id;non;0<0;ucs;p;setenv;t;3,,,,)$(nth,$(getenv,t),,,,;s;0;;x1;$(*,1.001,$(index,0,$(getvar,lastpoint)));;y1;$(*,1.001,$(index,1,$(getvar,lastpoint)));;x2;$M="""$(*,-1,$(getenv,x1));;y2;$(*,-1,$(getenv,y1))""";;t;4;zoom;c;non;0<0;$(getvar,perimeter);select;l;,,,)$(nth,$(getenv,t),,,,,trim;p;;f;non;$(getenv,x1)",$(getenv,y1);non;$(getenv,x2),$(getenv,y1);non;$(getenv,x2),$(getenv,y2);non;$(getenv,x1),$(getenv,y2);non;$(getenv,x1),"$(getenv,y1);;;setenv;t;5,,)$(nth,$(getenv,t),,,,,,;s;$(+,$(getenv,s),1);;t;$M="""$(if,$(=,$(getenv,s),4),6,4)""",erase;p;;copybase;non;0<0;c;non;$(getenv,x1)",$(getenv,y1);non;$(getenv,x2),"$(getenv,y2);;undo;e;u;pasteclip)^M

[動作確認済]
LT2013 ※バージョン2005以下(2005含む)では登録できない可能性あり。


切取りコピー(トリム回数4回) [2007.7.26修正]
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;non;\setenv;t;1,erase;l;;line;non;@;non;$(getenv,p)^H^H;;lengthen;l;;ucs;ob;l;setenv;t;2,,,,,)$(nth,$(getenv,t),,,id;non;$(/,$(getvar,perimeter),2)<0;oops;ucs;p;erase;l;;ucs;o;non;@;ucs;ob;l;id;non;0<0;ucs;p;setenv;t;3,,,,)$(nth,$(getenv,t),,,,;s;0;;x1;$(*,1.01,$(index,0,$(getvar,lastpoint)));;y1;$(*,1.01,$(index,1,$(getvar,lastpoint)));;x;$M="""$(*,-1,$(getenv,x1));;y;$(*,-1,$(getenv,y1))""";;t;4;zoom;c;non;0<0;$(getvar,perimeter);select;l;,,,)$(nth,$(getenv,t),,,,,trim;p;;f;non;$(getenv,x1)",$(getenv,y1);non;$(getenv,x),$(getenv,y1);non;$(getenv,x),$(getenv,y);non;$(getenv,x1),$(getenv,y);non;$(getenv,x1),"$(getenv,y1);;;setenv;t;5,,)$(nth,$(getenv,t),,,,,,;s;$(+,$(getenv,s),1);;t;$M="""$(if,$(=,$(getenv,s),4),6,4)""",erase;p;;copybase;non;0<0;c;non;$(getenv,x1)",$(getenv,y1);non;$(getenv,x),"$(getenv,y);;undo;e;u;pasteclip)^M

[動作確認済]
LT2000/LT2004 R2005/R2006


●使い方
1.切り取る範囲の1点目を指定
2.切り取る範囲の2点目を指定
3.貼り付け位置を指定


▲注意
1.マクロが長い為、メニューファイルに直接コピペして下さい
2.途中に隙間のある線種(CENTER・DOT等)が選択範囲内にある場合、
  上手く切り取れない場合が有ります。
  ※尚、ブロックや文字等は切断されません。

■コメント
前バージョンとの違いは、トリムを4回行ない、トリムミスを極力無くしています。
こちらの方が、確実性が若干高いかと。


AutoCAD 入門&実践バイブル/久原 裕

¥4,410
Amazon.co.jp



↓↓↓旧バージョン↓↓↓

切取りコピー [2007.5.19修正]
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;non;\setenv;to;1,erase;l;;line;non;@;non;$(getenv,p)^H^H;;lengthen;l;;ucs;ob;l;setenv;to;2,,,,,)$(nth,$(getenv,to),,,id;non;$(/,$(getvar,perimeter),2)<0;oops;ucs;p;erase;l;;ucs;o;non;@;ucs;ob;l;id;non;0<0;ucs;p;setenv;to;3,;x;$(*,1.001,$(index,0,$(getvar,lastpoint)));;y;$(*,1.001,$(index,1,$(getvar,lastpoint)));;to;4,,,)$(nth,$(getenv,to),,,,,zoom;c;non;0<0;$(getvar,perimeter);trim;l;;f;non;$(getenv,x)",$(getenv,y);non;$(*,-1,$(getenv,x)),$(getenv,y);non;$(*,-1,$(getenv,x)),"$(*,-1,$(getenv,y));;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,trim;p;;f;non;$(*,-1,$(getenv,x))",$(*,-1,$(getenv,y));non;$(getenv,x),$(*,-1,$(getenv,y));non;$(getenv,x),"$(getenv,y);;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,erase;p;;copybase;non;0<0;c;non;$(getenv,x)",$(getenv,y);non;$(*,-1,$(getenv,x)),"$(*,-1,$(getenv,y));;undo;e;u;pasteclip)^M


[動作確認済]
LT2000/LT2000i/LT2004/LT2005/LT2006/LT2007
R2005/R2006


●使い方
1.切り取る範囲の1点目を指定
2.切り取る範囲の2点目を指定
3.貼り付け位置を指定


▲注意
1.マクロが長い為、メニューファイルに直接コピペして下さい
2.途中に隙間のある線種(CENTER・DOT等)が選択範囲内にある場合、
  上手く切り取れない場合が有ります。
  ※尚、ブロックや文字等は切断されません。

■コメント
以前のバージョンでは、エイリアスを使用していましたが
今回は、エイリアスを使用せずに修正しました。


AutoCAD 入門&実践バイブル/久原 裕

¥4,410
Amazon.co.jp




↓↓↓旧バージョン↓↓↓

■ 最初に
・マクロ中のコマンドで、エイリアスを使用している部分があります!!
・一応、初期状態のエイリアスのみ使用していますが
PGP」ファイルを開き、以下のエイリアスを確認して下さい!!

[使用エイリアス表]
REC
Z
E
PL
AA
X
TR






RECTANG
ZOOM
ERASE
PLINE
AREA
EXPLODE
TRIM

・エイリアスの登録方法は、マクロ講座「【基本】1.エイリアスとは?」を参照ください。
・その他のAutoCADのバージョンでは動作しない場合があります。
 ※動かない場合は、掲示板に御連絡ください。

・通常のマクロ登録の仕方では、登録後にボタンが消えてしまう場合があります。
 その場合は、以下を参照ください。

メニューファイルの・・・

ID_kiritori [_Button("切取りコピー", "kiritori.bmp", "ICON_16_BLANK")]*^C^C・・・

マクロの前の↑この部分を修正!!
1.IDネームの「kiritori」を、短い名前に変更
2.ビットマップファイル名の「kiritori」を、短い名前に変更


[67]
切取りコピー [2006.12.22修正]
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;non;\undo;be;setenv;p1;$M="""$(getvar,lastpoint)""";REC;non;@;non;\Z;e;E;l;;PL;non;@;non;$M="""""""$(getenv,p1)"""""""^H^H;;AA;o;l;X;l;ucs;ob;l;setenv;t;1,,,,,,)$(nth,$(getenv,t),,id;non;$(/,$(getvar,perimeter),2)<0;oops;ucs;p;E;l;;ucs;o;non;@;ucs;ob;l;id;non;0<0;ucs;p;setenv;t;2,;x;$(index,0,$(getvar,lastpoint));;y;$(index,1,$(getvar,lastpoint));;t;3,,,,)$(nth,$(getenv,t),,,,;x;$(+,$(*,$(getenv,x),$(if,$(<,$(getenv,x),0),-1,1)),0.1);;y;$(+,$(*,$(getenv,y),$(if,$(<,$(getenv,y),0),-1,1)),0.1);;t;4,,,)$(nth,$(getenv,t),,,,,TR;l;;f;non;$(getenv,x)","$(getenv,y);non;$(getenv,x)","-$(getenv,y);non;-$(getenv,x)","-$(getenv,y);;;setenv;t;5,,)$(nth,$(getenv,t),,,,,,TR;l;;f;non;-$(getenv,x)","-$(getenv,y);non;-$(getenv,x)","$(getenv,y);non;$(getenv,x)","$(getenv,y);;;setenv;t;6,)$(nth,$(getenv,t),,,,,,,E;non;@;;copybase;non;0<0;c;$(getenv,x)","$(getenv,y);-$(getenv,x)","-$(getenv,y);;undo;e;u;pasteclip)^M


R2006 LT2004/LT2002/LT2000 動作確認済 ※LT2006不動作

●使い方
1.切り取る範囲の1点目を指定
2.切り取る範囲の2点目を指定
3.貼り付け位置を指定


▲注意
1.「■最初に」を必ず読み、確認後使用して下さい
2.マクロが長い為、メニューファイルに直接コピペして下さい
3.途中に隙間のある線種(CENTER・DOT等)が選択範囲内にある場合、
  上手く切り取れない場合が有ります。
  ※尚、ブロックや文字等は切断されません。

■コメント
ず~っと考えてて、やっと出来たマクロ!!(゚∀゚)

マクロの登録長さが限界なので
登録する時に注意は必要だが
使えなくは無いです(^^;

ぶっちゃけ、AcadRemoconのkiritori.vbsの方が精度はいいです・・・(-ω-;)

AcadRemocon 参考URL
http://www.kjufactory.com/bbs/thread.asp?thread=000000000835"


ちなみに・・・
以下に記述した「切取りコピー」は、上記マクロより精度は上!!(トリムを4回させてます)
AutoCAD2006のみ動作確認済み!!
LT2000は登録不可・・・登録できても再起動後ボタンが消えます(泣
↓↓↓

切取りコピー(高精度バージョン)
*^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;\undo;be;setenv;p1;$M="""$(getvar,lastpoint)""";REC;non;@;\Z;e;E;l;;PL;non;@;non;$M="""""""$(getenv,p1)"""""""^H^H;;AA;o;l;X;l;ucs;ob;l;setenv;t;1,,,,,,,)$(nth,$(getenv,t),,id;non;$(/,$(getvar,perimeter),2)","0;OO;ucs;p;E;l;;ucs;o;non;@;ucs;ob;l;id;non;0","0;ucs;p;E;l;;setenv;s;0;;t;2,;x;$(index,0,$(getvar,lastpoint));;y;$(index,1,$(getvar,lastpoint));;t;3,,,,,)$(nth,$(getenv,t),,,,;x;$(+,$(*,$(getenv,x),$(if,$(<,$(getenv,x),0),-1,1)),0.1);;y;$(+,$(*,$(getenv,y),$(if,$(<,$(getenv,y),0),-1,1)),0.1);;t;4,,,,)$(nth,$(getenv,t),,,,,OO;TR;p;;f;non;$(getenv,x)","$(getenv,y);non;$(getenv,x)","-$(getenv,y);non;-$(getenv,x)","-$(getenv,y);;;setenv;s;$(+,$(getenv,s),1);;t;5,,,)$(nth,$(getenv,t),,,,,,TR;p;;f;non;-$(getenv,x)","-$(getenv,y);non;-$(getenv,x)","$(getenv,y);non;$(getenv,x)","$(getenv,y);;;E;p;;setenv;t;$(if,$(=,$(getenv,s),4),6,4),,)$(nth,$(getenv,t),,,,,,,OO;E;p;;CB;non;0","0;c;$(getenv,x)","$(getenv,y);-$(getenv,x)","-$(getenv,y);;undo;e;u;PC);


R2006 動作確認済



AutoCAD 入門&実践バイブル/久原 裕

¥4,410
Amazon.co.jp
AD
いいね!した人  |  コメント(5)  |  リブログ(0)

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

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

AD

ブログをはじめる

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

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

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

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

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