setqとset｜変数へ値を代入する方法の違い

SETQってなに？

まずは王道の SETQ から。これは「Set Quoted」の略で、変数に値を代入するための基本関数です。

(setq a 10)

このコードは、「aという変数に10を入れてね」っていう命令。
左側の a は評価されず、文字通り「a」という名前の変数に代入されます。

通常の代入はsetqで書くと、代入先をコードから読み取りやすくなります。

SETってなに？

さて、ちょっとクセ者なのが SET。これは左辺を評価して、その結果のシンボルに値を代入する関数です。

(setq var 'a)
(set var 20)

この場合、var には 'a（シンボルa）が入ってるので、SETは「aに20を代入する」って動きになります。

つまり、SETは「変数名を変数で指定する」ことができるんです。
代入先のシンボルを別の変数で保持する場合に使います。

実例：動的に変数名を作って代入する

SETの真骨頂はここ！
たとえば、ユーザーから複数のポイントを取得して、それぞれを point_1, point_2, point_3…って名前で保存したいとき。

(setq j 1)
(while (set (read (strcat "point_" (itoa j))) (getpoint "\nPoint : ")) 
  (setq j (1+ j))
)

SETを使うことで、文字列から変数名を生成して代入できちゃうんです。

応用：ポイントをY座標でソートして線を描く

以下では、取得したポイントをY座標でソートして、順番に線を描くルーチンも紹介されてました。

(command "_line")
(mapcar 'command lpt)

まとめ：SETQとSETの使い分け

SETQは「素直でまじめな子」。SETは「ちょっとひねりの効いた自由人」。
どちらもAutoLISPの世界では欠かせない存在です。