「Member (autolisp)」の版間の差分

2015年8月18日 (火) 14:17時点における最新版

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (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

@@ 1行目: / 1行目: @@
+{{AutoLISP}}
 ; 構文
 : (member ''expr'' ''lst'')
 ; 機能
 : 指定された式がリスト内に存在するかどうかを検索し、
 : 初めに検出した式以降のリストを返す。
 ; 引数
 :* expr : 検索する式。
 :* lst : expr 引数を検索するリスト。
 ; 戻り値
@@ 16行目: / 21行目: @@
 ; サンプル
-: (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'''
+<pre class="brush:autolisp;">
+ (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)))
+(member "layout2" (layoutlist))
+("layout2") ; 無ければ nil
+</pre>
 [[Category:AutoLISP]]