あまり自信はないですけど
理解あってますか?
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