AutoCADマクロ屋本舗 掲示板

お世話になっております。

LT2022使用
内容
TEXTALIGNの位置合わせを右クリックで変更する
マクロを考えていました。
こちらの過去の投稿などを参考に作成していました。

現状は右クリックで位置合わせは変えられるように
なりましたが、TEXTALIGNを組み込めずにいます、、、

以下作成したマクロです。

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;sw;0;;to;1,)$(nth,$(getenv,to),,;sw;$(nth,$(getenv,sw),1,2,0);textalignmode;$(nth,$(getenv,sw),9,10,11);ray;^X【OK(左ｸﾘｯｸ)/NO(Enter)】^X\_setenv;to;1)^M


マクロ勉強中なので色々教えて頂けると幸いです。
よろしくお願いします。

ちょっとやりたいことが
わからないです

ご提示のマクロは
最後にOKで左クリックすると放射線コマンドの基点を指定して終了できていません

TEXTALIGNを組み込めず
ではなく
最終的に何がしたいのか希望があれば
別の角度から検討ができるかもしれません

今のままでは何が正解なのかわからないので答えようが無いです

こーゆーことなんでしょう。
*^C^C$M=setenv;to;0;$(nth,$(getenv,to),select;$M="""$(if,$(getvar,cmdactive),\,)"""setenv;sw;0;;to;1,,,)$(nth,$(getenv,to),,textalignmode;$(nth,$(getenv,sw),9,10,11);ray;^X現在設定＝$(nth,$(getenv,sw),左,中,右)【OK(左ｸﾘｯｸ)/NO(Enter)】^X\$M="""$(if,$(getvar,cmdactive),;setenv;to;3,setenv;to;2)""",,)$(nth,$(getenv,to),,,;sw;$(nth,$(getenv,sw),1,2,0);;to;1,)$(nth,$(getenv,to),,,,TEXTALIGN;p;;p;non;@;\select;\setenv;to;1)^M

動作検証してないから、動かないかも。
その時は、ご自分でエラー処置できるかな？（マクロ勉強中なら、出来そう）

説明が足りずすみませんでした。

chibi-tomさん
ここのマクロ講座見ながら色々やってはみるものの
なかなかうまく作れません、、、


Lonさんのマクロを使用してみました。
作りたかったマクロです！
ありがとうございます！

最後のTEXTALIGN;p;;p;non;@;を
TEXTALIGN;p;;\;にし自分の使いやすい
仕様になりました


作って頂いたマクロをゆっくり
分析して勉強してみます。
ありがとうございます