Gz:assocd

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(gz:assocd element alist)


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


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


戻り値
成功した場合は、alist の cdr 項目。
キーである element が alist 内に見つからなかった場合は、nil を返す。


サンプル
 (setq al '((name box) (width 3) (size 4.7263) (depth 5))) 
 ((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))
 (gz:assocd 'size al) 
 (4.7263)

 (gz:assocd 'weight al) 
 nil

 (setq bigl '((a b c)(d)(e f g)))
 (gz:assocd 'e bigl)
 (F G)

 (setq elist (entget (car (entsel "図形選択:"))))
 (princ (strcat "\n選択図形は、" (gz:assocd 0 elist))))
 選択図形は、*選んだ図形タイプ名*

関連項目