AutoCADマクロ屋本舗 掲示板

下記マクロをLISP化していただけないでしょうか。

寸法整列 Ver2013　[2017.9.1追記]
*^C^Coffset;;^x^x基準の寸法を選択^x\;select;non;@;non;@;;copy;p;;non;@;non;@;erase;p;;select;l;^x^x間隔を調整する寸法を選択^x\dimspace;l;p;;0^M

LISPファイルの作成は不要です。
マクロに下記を貼り付けて下さい。
^C^C(while T (command "dimspace" pause (ssget) "" "0"))

IJCADのヘルプで、マクロの作り方を検索すると、この様な例が出てきます。
Diesel式を使わずに、LISP式を使ったマクロになっています。
https://support.ijcad.jp/hc/ja/articles/206295621--%E3%83%9E%E3%82%AF%E3%83%AD-XY%E5%BA%A7%E6%A8%99%E3%82%92%E5%BC%95%E3%81%8D%E5%87%BA%E3%81%97%E7%B7%9A%E3%81%A7%E8%A8%98%E5%85%A5%E3%81%99%E3%82%8B

DIESELマクロをLISPマクロに移植する記事もヘルプ内に有ります。
https://support.ijcad.jp/hc/ja/articles/208336933-DIESEL%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%92LISP%E3%83%9E%E3%82%AF%E3%83%AD%E3%81%AB%E7%A7%BB%E6%A4%8D%E3%81%99%E3%82%8B

https://support.ijcad.jp/hc/ja/article_attachments/203038956

Hamu様へ

お忙しい中、ご回答いただきありがとうございました。

無事動きました。

また、移植の際の参照する記事も教えていただきましてありがとうございました。