Gz:massocのソースを表示

{{GZLIB}}
; 構文
: (gz:massoc ''key'' ''lst'')


; 機能
: [[assoc]] の複数版 連想リスト中にある key の項目すべてを連想リストで返す。


; 引数
:* key : 要素のキー
:* lst : 検索対象の連想リスト。 


; 戻り値
: key が lst の中で見つかった場合は項目を連想リストで返し、見つからなかった場合は、nil を返す。 


; サンプル
<pre class="brush:autolisp;">
(setq lst '((1040 . 1) (10 . 1) (108 . 1) (1040 . "a")))
(GZ:Massoc '1040 lst) 
((1040 . 1) (1040 . "a"))

(GZ:Massoc '1060 lst) 
nil

(setq al '((name "box") (width 3) (size 4.7263) (depth 5) (size "XL")))
(assoc 'size al)
(SIZE 4.7263)

(gz:massoc 'size al)
((SIZE 4.7263) (SIZE "XL"))

(gz:massoc 'name al)
((NAME "box"))
</pre>

-----
関連事項
* [[assoc]] 関数
* [[gz:massoc]] 関数
* [[gz:massocd]] 関数


[[Category:AutoLISP]]