↓がお題。
http://megu-megu.com/bbs-2/wwwlng.cgi?print+202103/21030004.txt
昔、まったく同じことをやるマクロを作ってた。
今のCADで動くかな。検証お願いします。
①マクロ起動
②接頭辞入力（例えば「A-」）
③オブジェクト選択
④ブロックの基点クリック
以降③④繰り返しで、右クリックで②に戻り、終了はESC
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),;Cnt;1;;接頭辞;\setenv;to;1,,)$(nth,$(getenv,to),,;to;2;-insert;$(getenv,接頭辞)$(getenv,Cnt);$M="""$(if,$(getvar,cmdactive),@;;;;U;setenv;Cnt;$(+,$(getenv,Cnt),1);;to;1)""",)$(nth,$(getenv,to),,,select;$(getenv,接頭辞)$(getenv,Cnt)作成^X\-block;$(getenv,接頭辞)$(getenv,Cnt);\p;;oops;setenv;Cnt;$(+,$(getenv,Cnt),1);;to;1)^M
カウントアップブロック作成
- Lon
- 2021/03/09 (Tue) 12:21:03