構築線

構築線を毎回"Xline"の画層に書きたいのですが、どのようなマクロを組めばよいでしょうか。

AutocadLTではこちらのマクロを使用していました。

（AutoCADマクロ屋本舗より引用しました）

*^C^C$M=setenv;to;0;$(nth,$(getenv,to),-Layer;n;XLine;P;N;XLine;;setenv;to;1,,)$(nth,$(getenv,to),,XLine;h;または［垂直(右ｸﾘｯｸ)］　^X\"""$M=$(if,$(getvar,CMDACTIVE),;Change;L;;P;LA;XLine;C;8;;setenv;to;1,setenv;to;2)""",)$(nth,$(getenv,to),,,XLine;v;または［水平(右ｸﾘｯｸ)］　^X\"""$M=$(if,$(getvar,CMDACTIVE),;Change;L;;P;LA;XLine;C;8;;setenv;to;2,setenv;to;1)""")^M

色々試しましたがうまくいきません。

どなたか詳しい方がいれば教えて下さい