Assoc

構文

(assoc element alist)

機能

連想リストの要素を検索し、指定された要素が含まれる連想リスト項目を返す。

引数

• element ： 連想リストの要素のキー。
• alist ： 検索対象の連想リスト。

戻り値

成功した場合は、alist の項目。

キーである element が alist 内に見つからなかった場合は、nil を返す。

サンプル

(setq al '((name box) (width 3) (size 4.7263) (depth 5)))

((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))

(assoc 'size al)

(SIZE 4.7263)

---

(assoc 'weight al)

nil

---

(setq bigl '((a b c)(d)(e f g)))

(assoc 'e bigl)

(E F G)

---

(setq elist (entget (car (entsel "図形選択:"))))

(princ (strcat "\n選択図形は、" (cdr (assoc 0 elist))))

選択図形は、*選んだ図形タイプ名*