テーマ:
[66]
長穴作図(3点指定)
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),id;^X線分の1点目を指定^X\setenv;to;1,)$(nth,$(getenv,to),,pline;none;@;^X線分の2点目を指定 または 数値記入^X\a;^X円弧の終点を指定 または 数値記入^X\;$M=copy;L;;none;@;$(getvar,lastpoint);rotate;L;;none;@;180;pedit;L;j;all;;)^M


LT2000 動作確認済

●使い方
1.長穴線部の1点目を指定
2.長穴線部の2点目を指定
3.長穴円弧部の点を指定

▲注意
1.作図された長穴はポリラインに変換されます。

■コメント
結構これが1番使い勝手良かったりする

↓以下のマクロもお試し下さい



長穴作図(長さ・幅指定)
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;n1;長さ^X\;h1;幅^X\id;\setenv;to;1,,,)$(nth,$(getenv,to),,pline;non;@-$(/,$(getenv,n1),2)","-$(/,$(getenv,h1),2);non;@$(getenv,n1)","0;a;non;@0","$(getenv,h1);l;non;@-$(getenv,n1)","0;a;non;@0","-$(getenv,h1);;setenv;to;2,,)$(nth,$(getenv,to),,,rotate;last;;non;@$(/,$(getenv,n1),2)","$(/,$(getenv,h1),2);\$M="""$(if,$(getvar,cmdactive),\,)"""setenv;to;3,ray;Edit(R-Click)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;1,id;)""")^M


LT2000 動作確認済

●使い方
1.長穴の長さを記入
2.長穴の幅を記入
3.作図位置を指定
  繰返し位置を指定。または右クリックで1へ
 
▲注意
1.作図された長穴はポリラインに変換されます。

■コメント
よくあるマクロの1つを、少しだけ使い勝手良くしてみた。



中心線付長穴作図(長さ・幅指定)
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;n1;長さ^X\;h1;幅^x\id;\setenv;to;1,pline;non;@-$(/,$(getenv,n1),2)","-$(/,$(getenv,h1),2);non;@$(getenv,n1)","0;a;non;@0","$(getenv,h1);l;non;@-$(getenv,n1)","0;a;non;@0","-$(getenv,h1);;setenv;to;2,,,,)$(nth,$(getenv,to),,,line;non;@-$(+,$(/,$(getenv,h1),2),$(*,$(getvar,dimscale),5))","$(/,$(getenv,h1),2);non;@$(+,$(+,$(getenv,n1),$(getenv,h1)),$(*,$(getvar,dimscale),10))","0;;chprop;L;;C;1;LT;center;;setenv;to;3,,,)$(nth,$(getenv,to),,,,line;non;@-$(+,$(/,$(getenv,h1),2),$(*,$(getvar,dimscale),5))","$(+,$(/,$(getenv,h1),2),$(*,$(getvar,dimscale),5));none;@0","-$(+,$(getenv,h1),$(*,$(getvar,dimscale),10));;chprop;L;;C;1;LT;center;;setenv;to;4,,)$(nth,$(getenv,to),,,,,copy;l;;non;@0","0;@-$(getenv,n1)","0;setenv;to;5,ray;Edit(R-Click)^x\$M="""$(if,$(getvar,cmdactive),;setenv;to;1,id;)""")^M


LT2000 動作確認済

●使い方
1.長穴の長さを記入
2.長穴の幅を記入
3.作図位置を指定
  繰返し位置を指定。または右クリックで1へ
 
▲注意
1.作図された長穴はポリラインに変換されます。
2.マクロが長い為、メニューファイルに直接コピペして下さい。

■コメント
中心線付も一応ありますよん♪
これも昔から良くあるマクロです。


描きたい操作がすぐわかる!AutoCAD LT 操作ハンドブック 2011/2010/2009.../鈴木 孝子

¥2,499
Amazon.co.jp

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

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

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

AD

ブログをはじめる

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

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

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

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

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