Member (autolisp)

提供:GizmoLabs - だいたい CAD LISP なサイト
2015年8月18日 (火) 14:17時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(member expr lst)


機能
指定された式がリスト内に存在するかどうかを検索し、
初めに検出した式以降のリストを返す。


引数
  • expr : 検索する式。
  • lst : expr 引数を検索するリスト。


戻り値
リスト。
lst 内に expr が見つからなかったときは nil。


サンプル
 (member 'c '(a b c d e)) 
(C D E)
; ---

(member 'q '(a b c d e)) 
nil

; ---
(setq a '(1 2 3 4 3 2 1))
(1 2 3 4 3 2 1)

(member 3 a)
(3 4 3 2 1)

(- (length a) (length (member 3 a)))
2

(member "layout2" (layoutlist))
("layout2") ; 無ければ nil