AutoCADマクロ屋本舗 掲示板

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

現状AUTOCAD LT2022を使用しているのですが、今後はAUTOCADになるそうです・・・

そこで質問なんですが、今まで使用していたLTのコマンドやアイコンなどは引き継げるのでしょうか？

急な変更なので取り急ぎ返信してもらえると助かります！

取り急ぎ返信
引き継げます
HPの右側メニューを参照ください

https://www.autodesk.co.jp/support/technical/article/caas/sfdcarticles/sfdcarticles/kA93g000000016t.html

上記が参考になると思います。

ありがとうございます！ちょっと確認します！

AutoCADは、通常ではsetenv、getenvを使用したマクロが使えませんので、とってぃさんの書き込みにある通り、このHPのトップページ右側にある【レギュラー版での使用に関する注意事項】をよくお読みください。

今【レギュラー版での使用に関する注意事項】を読んで試したところ動いたのですが、まだ余り全部のマクロを試してないですがエンターコピーだけ変な状態になります

コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0

コマンド:
コマンド: select

オブジェクトを選択: もう一方のコーナーを指定: 認識された数: 1

オブジェクトを選択:

コマンド: id
点を指定: X = 2220.5690 Y = 7311.0276 Z = 0.0000

コマンド: setenv
変数名を入力: p1
値 <20490.43533151,62100.56757793,0>: 2220.56897554,7311.02758969,0

コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 1


こんな感じになります！

AutoCAD2022ですが、[150]エンター連続コピー　は動きます。
もう一度、このサイトのマクロを貼り付けなおしてみては、どうでしょうか？

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;\id;\setenv;p1;$M="""$(getvar,lastpoint)""";;to;1,move;p;;non;$(getenv,p1);\setenv;p2;$M="""$(getvar,lastpoint)""";userr5;non;@;non;$(getenv,p1);setenv;to;2,,,)$(nth,$(getenv,to),,,copy;p;;non;@;non;$(getenv,p1);setenv;to;3,,)$(nth,$(getenv,to),,,,offsetdist;^X変更(Lc)/コピー(Rc)^X\$m="""$(if,$(getvar,cmdactive),;setenv;p1;$(getenv,p2);;to;1;list;;,)"""setenv;to;4,)$(nth,$(getenv,to),,,,,ucs;3;non;$(getenv,p2);non;$(getenv,p1);;copy;p;;non;0<0;;move;p;;non;0",0;non;-$(getvar,userr5),0";ucs;p;id;non;@;setenv;p2;$M="""$(getvar,lastpoint)""";;to;3)^M

上記を貼り付けなおしたのですが出来ないです。(;_;)

履歴の情報とは関係ないので
見当違いかもしれませんが
以前とってぃさんも『ucs;3;』がうまくできないと検証されていた気がします

解決策ではなく申し訳ありませんが情報として

>こんな感じになります！

そこまでの処理は問題なさそうです。

そこで止まるのですか？
でしたら、最後の^Mが働いておらず、その先にも進んでいない事になります。（*でのループ処理もされていない）
何か変ですね。

おはようございます！返信してくださった方本当にありがとうございます。
本日起動してみたんですけどやはり下記のようになります・・・もう諦めるしかないのかな(;_;)



コマンド:
コマンド: setenv
変数名を入力: to
値 <0>: 0


コマンド:
コマンド: select

オブジェクトを選択: 認識された数: 1

オブジェクトを選択:

コマンド: id
点を指定: X = 12444.6830 Y = 122572.7878 Z = 0.0000

コマンド: setenv
変数名を入力: p1
値 <20905.89630364,131533.52218756,0>: 12444.68302539,122572.78782765,0

コマンド:
コマンド:
SETENV
変数名を入力: to
値 <0>: 1

コマンド:
コマンド:

>最後の^Mが働いておらず、その先にも進んでいない事になります。（*でのループ処理もされていない）

ではなく、

^Mまでは実行されており、*でのループ処理がされない状況なのですね。

マクロの冒頭に、「*」が付いているのにループできていないのなら、
何か変ですね。

おかしいですね。
私が試したものと全く同じなのですが・・・

最初*の前に半角スペースがないですか？
あると、同じ挙動になります。

返事が遅くなりすみません！最初*の前に半角スペースがないか確認したんですけど、やはりないです・・・

見当違いでしたか、すみません。
JOKERさんのログを見て、同じ挙動だったので
コピペがちゃんと出来ていなかったと思ってました。
ちなみに、当方は2024ですがきちんと動きます。

すぐに解決しないのですが、原因の切り分けを確認するのであれば・・・

何かの設定の違いかどうか確認するために、そのPCで別のユーザー名でログインしたまっさらなAutoCADにて、
tdmacrosはロードさせて
このコマンドだけ登録してみてどうでしょうか。

システム変数の設定は「ファイルごと」に設定されるものと、「（windowsのログイン）ユーザー毎」に設定されるものがありますので。

そちらで問題なく動いたら
レジストリに書き込まれている何かのシステム変数だな、と推測できるかなと。（だからといってすぐ解決しないですが）

会社のPCなので別のユーザー名とかは無理なんですよ( ;∀;)
諦めるしかないかなって思ってます・・・・

構文0と1を分けてみたらどうなります？

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;\id;\setenv;p1;$M="""$(getvar,lastpoint)""";;to;1,,,,)$(nth,$(getenv,to),,move;p;;non;$(getenv,p1);\setenv;p2;$M="""$(getvar,lastpoint)""";userr5;non;@;non;$(getenv,p1);setenv;to;2,,,)$(nth,$(getenv,to),,,copy;p;;non;@;non;$(getenv,p1);setenv;to;3,,)$(nth,$(getenv,to),,,,offsetdist;^X変更(Lc)/コピー(Rc)^X\$m="""$(if,$(getvar,cmdactive),;setenv;p1;$(getenv,p2);;to;1;list;;,)"""setenv;to;4,)$(nth,$(getenv,to),,,,,ucs;3;non;$(getenv,p2);non;$(getenv,p1);;copy;p;;non;0<0;;move;p;;non;0",0;non;-$(getvar,userr5),0";ucs;p;id;non;@;setenv;p2;$M="""$(getvar,lastpoint)""";;to;3)^M

あるいは繰り返しではなくsetenvと入れてみるとか

*^C^C$m=setenv;to;0;$(nth,$(getenv,to),select;\id;\setenv;p1;$M="""$(getvar,lastpoint)""";setenv;to;1,move;p;;non;$(getenv,p1);\setenv;p2;$M="""$(getvar,lastpoint)""";userr5;non;@;non;$(getenv,p1);setenv;to;2,,,)$(nth,$(getenv,to),,,copy;p;;non;@;non;$(getenv,p1);setenv;to;3,,)$(nth,$(getenv,to),,,,offsetdist;^X変更(Lc)/コピー(Rc)^X\$m="""$(if,$(getvar,cmdactive),;setenv;p1;$(getenv,p2);;to;1;list;;,)"""setenv;to;4,)$(nth,$(getenv,to),,,,,ucs;3;non;$(getenv,p2);non;$(getenv,p1);;copy;p;;non;0<0;;move;p;;non;0",0;non;-$(getvar,userr5),0";ucs;p;id;non;@;setenv;p2;$M="""$(getvar,lastpoint)""";;to;3)^M

原因究明では無いですけど可能性として

chibi-tomさん！！！ありがとうございます！

下のマクロで治りました！本当に助かりました！ありがとうございます！