「Gz:assocd」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (gz:assocd ''element'' ''alist'') ; 機能 : 連想リストの要素を検索し、指定された要素が含まれる連想リスト項目…」) |
編集の要約なし |
||
| 23行目: | 23行目: | ||
(setq al '((name box) (width 3) (size 4.7263) (depth 5))) | (setq al '((name box) (width 3) (size 4.7263) (depth 5))) | ||
((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5)) | ((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5)) | ||
(assocd 'size al) | (gz:assocd 'size al) | ||
(4.7263) | (4.7263) | ||
( | (gz:assocd 'weight al) | ||
nil | nil | ||
2020年8月29日 (土) 09:13時点における最新版
- 構文
- (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)))) 選択図形は、*選んだ図形タイプ名*
関連項目