Gz:assocd
- 構文
- (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)) (assocd 'size al) (4.7263) (assoc '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)))) 選択図形は、*選んだ図形タイプ名*
関連項目