切取り削除 Ver.2017 [2017.4.25修正]
| *^C^C$M=setenv;to;0;$(nth,$(getenv,to),id;non;\undo;be;setenv;p;$M="""$(getvar,lastpoint)""";rectang;non;@;non;\setenv;to;1,,,,,,)$(nth,$(getenv,to),,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;to;2,,,,,)$(nth,$(getenv,to),,,erase;l;;ucs;o;non;$(getvar,lastpoint);ucs;ob;l;id;non;0<0;ucs;p;setenv;to;3,;x;$(*,0.999,$(index,0,$(getvar,lastpoint)));;y;$(*,0.999,$(index,1,$(getvar,lastpoint)));;to;4,,,)$(nth,$(getenv,to),,,,,zoom;c;non;0<0;$(getvar,perimeter);trim;l;;f;$(getenv,x)",$(getenv,y);$(*,-1,$(getenv,x)),$(getenv,y);$(*,-1,$(getenv,x)),"$(*,-1,$(getenv,y));;;setenv;to;5,,)$(nth,$(getenv,to),,,,,,trim;p;;f;$(*,-1,$(getenv,x))",$(*,-1,$(getenv,y));$(getenv,x),$(*,-1,$(getenv,y));$(getenv,x),"$(getenv,y);;;setenv;to;6,)$(nth,$(getenv,to),,,,,,,erase;w;non;$(getenv,x)",$(getenv,y);non;$(*,-1,$(getenv,x)),"$(*,-1,$(getenv,y));p;;ucs;p;undo;e)^M |
[動作確認済]
2015,2017
切取り削除2013 [2013.10.23追加]
| *^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;id;non;$M="""$(/,$(getvar,perimeter),2)"""<0;oops;ucs;p;id;non;@;setenv;to;2,,,,,)$(nth,$(getenv,to),,,erase;l;;ucs;o;non;$(getvar,lastpoint);ucs;ob;l;id;non;0<0;ucs;p;setenv;to;3,;x;$(*,0.999,$(index,0,$(getvar,lastpoint)));;y;$(*,0.999,$(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;w;non;$(getenv,x)",$(getenv,y);non;$(*,-1,$(getenv,x)),"$(*,-1,$(getenv,y));p;;ucs;p;undo;e)^M |
[動作確認済]
LT2013 ※ﾊﾞｰｼﾞｮﾝ2005以下（2005含む）では登録できない可能性大
切取り削除 [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;$(*,0.999,$(index,0,$(getvar,lastpoint)));;y;$(*,0.999,$(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;w;non;$(getenv,x)",$(getenv,y);non;$(*,-1,$(getenv,x)),"$(*,-1,$(getenv,y));p;;ucs;p)^M |
[動作確認済]
LT2000/LT2000i/LT2002/LT2004/LT2005/LT2007
R2005/R2006
●使い方
１．消す範囲の１点目を指定
２．消す範囲の２点目を指定
▲注意
１．マクロが長い為、メニューファイルに直接コピペして下さい
３．途中に隙間のある線種（CENTER・DOT等）が選択範囲内にある場合、
上手く切り取れない場合が有ります。
※尚、ブロックや文字等は切断されません。
■更新履歴
・2017.4.25
ﾊﾞｰｼﾞｮﾝ2015,2017に対応
・2013.10.23
ﾊﾞｰｼﾞｮﾝ2013に対応
・2007.5.19
エイリアスを使用せずに修正
※尚、最後にズームを元に戻したい場合は、マクロ最後尾の
「ucs;p)^M」の部分を、「ucs;p;zoom;p)^M」として下さい。
基礎から学ぶAutoCAD 2008 コマンド編 (ヒューマンアカデミーProfessiona.../ヒューマンアカデミー
￥3,675
Amazon.co.jp
↓↓↓旧バージョン↓↓↓
■ 最初に
| ・マクロ中のコマンドで、エイリアスを使用している部分があります!! ・一応、初期状態のエイリアスのみ使用していますが 「PGP」ファイルを開き、以下のエイリアスを確認して下さい!! [使用エイリアス表]
・エイリアスの登録方法は、マクロ講座「【基本】1.エイリアスとは？」を参照ください。 ・その他のAutoCADのバージョンでは動作しない場合があります。 ※動かない場合は、掲示板に御連絡ください。 ・通常のマクロ登録の仕方では、登録後にボタンが消えてしまう場合があります。 その場合は、以下を参照ください。 メニューファイルの･･･ ID_keshi [_Button("切取りｺﾋﾟｰ", "keshi.bmp", "ICON_16_BLANK")]*^C^C･･･ マクロの前の↑この部分を修正!! １．IDネームの「keshi」を、短い名前に変更 ２．ビットマップファイル名の「keshi」を、短い名前に変更 |
[68]
切取り削除
| *^C^C$M=setenv;t;0;$(nth,$(getenv,t),id;\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;oops;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),,,,,oops;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),oops;E;p;w;$(getenv,x)","$(getenv,y);-$(getenv,x)","-$(getenv,y);;ucs;p;Z;p)^M |
R2006 LT2004/LT2002/LT2000 動作確認済 ※LT2006不動作
●使い方
１．消す範囲の１点目を指定
２．消す範囲の２点目を指定
▲注意
１．※最初に!!を必ず読み、確認後使用して下さい
２．マクロが長い為、メニューファイルに直接コピペして下さい
３．途中に隙間のある線種（CENTER・DOT等）が選択範囲内にある場合、
上手く切り取れない場合が有ります。
※尚、ブロックや文字等は切断されません。
■コメント
「67.切取コピー」を作ったついでに作成してみた♪
一応LT2000では動作中･･･マクロ長さ限界です･･･（汗
精度は問わないでネ･･･(-∀-;)
AcadRemocon 参考URL
http://www.kjufactory.com/bbs/thread.asp?thread=000000000791
基礎から学ぶAutoCAD 2008 コマンド編 (ヒューマンアカデミーProfessiona.../ヒューマンアカデミー
￥3,675
Amazon.co.jp