この掲示板は AutoCADマクロ屋本舗 の掲示板です。

【 注意 】最初に必ず ↓↓ 下記内容 ↓↓ を参照ください。
① マクロが分からない方は、まず 【 マクロ講座 】 を参照ください。
② 質問の前に 【 マクロ使用前の注意事項 】 をお読みください。
③ 質問する時は、新規投稿フォーム下の【 新規投稿時のお願い 】を必ずお読みください。

寸法補助線長さ統一連続寸法のマクロについて
いつもお世話になっております。
AutoCAD LT2016を使用しております。

寸法補助線長さ統一連続寸法のマクロで
下記のような手順で寸法を記入することは
可能でしょうか?

1.寸法開始位置:オブジェクトから離れた位置を任意に左クリックで指定
2.右クリックで水平と垂直の切り替え
3.1本目の寸法補助線の起点を指定
4.2本目の寸法補助線の起点を指定
5.寸法線の位置を指定
6.オブジェクト側の直列寸法2つ目の位置を指定
→繰り返し
 ※右クリックで、終了

宜しくお願い致します。
  • ゴリ
  • 2020/04/08 (Wed) 21:40:04
Re: 寸法補助線長さ統一連続寸法のマクロについて
あまり自信はないですけど
理解あってますか?
Lt2021で確認です

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;aus;$(getvar,autosnap);orthomode;1;line;\方向指定^X\;orthomode;$(getvar,orthomode);ucs;ob;l;erase;l;;autosnap;$M="""$(getenv,aus)""";setenv;to;1,,,,)$(nth,$(getenv,to),,dimlinear;\'setenv;p1;$M="""$(getvar,lastpoint)""";\'setenv;p2;$M="""""""$(getvar,lastpoint)""""""";\setenv;p3;$M="""""""""""""""$(getvar,lastpoint)""""""""""""""";erase;l;;setenv;to;2,,,)$(nth,$(getenv,to),,,dimlinear;non;$(index,0,$(getenv,p1))<0;non;$(index,0,$(getenv,p2))<0;$(getenv,p3);setenv;to;3,,)$(nth,$(getenv,to),,,,;p1;$(getenv,p2);dimlinear;$(index,0,$(getenv,p2))<0;次の寸法補助線の起点位置を指定(R-Clickで終了)^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;4,ucs;p;^Csetenv;to;0)""",)$(nth,$(getenv,to),,,,,;p2;$M="""$(getvar,lastpoint)""";;to;2)^M

1.マクロ起動
2.オブジェクトから離れた任意の位置をクリック(工程の1)
3.寸法の方向を指定(工程の2_水平と垂直の切り替えではなく方向の選択です)
(仮に直交モードで線分を描く仕様になっています)
4.寸法を普通に記入(工程の3~5)
5.次の寸法補助線の起点位置を指定(R-Clickで終了)(工程の6)

※Escキーで終了するとUCSが変更されたままになります
ucsエンターpエンターを手動で入力して戻してください
  • chibi-tom
  • 2020/04/09 (Thu) 10:25:14
Re: 寸法補助線長さ統一連続寸法のマクロについて
chibi-tom様

おはようございます。

突然お願いしたにも関わらず、早々にご対応くださいましてありがとうございます!
完璧です!!



  • ゴリ
  • 2020/04/09 (Thu) 10:59:49
Re: 寸法補助線長さ統一連続寸法のマクロについて
chibi-tom様

いつもお世話になっております。

作成頂いたマクロを使用させて頂いております。
有難うございます。

可能であれば、画層を寸法にして頂き、終了後
元の画層に戻すことは可能でしょうか?

宜しくお願い致します。
  • ゴリ
  • 2020/05/15 (Fri) 21:49:07
Re: 寸法補助線長さ統一連続寸法のマクロについて
記入した寸法が『寸法』という画層になれば良いということでしょうか?

記入前に『寸法』画層がある前提ですと
こんな感じで記入した寸法を変更すれば良いと思います

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),orthomode;1;line;\方向指定^X\;orthomode;$(getvar,orthomode);ucs;ob;l;erase;l;;autosnap;$(getvar,autosnap);setenv;to;1,,,,)$(nth,$(getenv,to),,dimlinear;\'setenv;p1;$M="""$(getvar,lastpoint)""";\'setenv;p2;$M="""""""$(getvar,lastpoint)""""""";\setenv;p3;$M="""""""""""""""$(getvar,lastpoint)""""""""""""""";erase;l;;setenv;to;2,,,)$(nth,$(getenv,to),,,dimlinear;non;$(index,0,$(getenv,p1))<0;non;$(index,0,$(getenv,p2))<0;$(getenv,p3);chprop;l;;la;寸法;;setenv;to;3,,)$(nth,$(getenv,to),,,,;p1;$(getenv,p2);dimlinear;$(index,0,$(getenv,p2))<0;次の寸法補助線の起点位置を指定(R-Clickで終了)^X\$M="""$(if,$(getvar,cmdactive),;chprop;l;;la;寸法;;setenv;to;4,ucs;p;^Csetenv;to;0)""",)$(nth,$(getenv,to),,,,,;p2;$M="""$(getvar,lastpoint)""";;to;2)^M


操作方法は変わっていません
  • chibi-tom
  • 2020/05/16 (Sat) 10:52:58
Re: 寸法補助線長さ統一連続寸法のマクロについて
chibi-tom様

いつもお世話になっております。
ご対応頂き、有難うございます!

月曜日にCADを使用できますので、確認致します。
  • ゴリ
  • 2020/05/16 (Sat) 12:37:37
Re: 寸法補助線長さ統一連続寸法のマクロについて
chibi-tom様

おはようございます。

ちゃんと画層が寸法になりました。
ありがとうございました!
  • ゴリ
  • 2020/05/18 (Mon) 06:37:32

返信フォーム






プレビュー (投稿前に内容を確認)