「Assoc」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
 
編集の要約なし
 
(同じ利用者による、間の1版が非表示)
1行目: 1行目:
{{AutoLISP}}
; 構文
; 構文
: (assoc ''element'' ''alist'')  
: (assoc ''element'' ''alist'')  


; 機能
; 機能
: 連想リストの要素を検索し、指定された要素が含まれる連想リスト項目を返す。  
: 連想リストの要素を検索し、指定された要素が含まれる連想リスト項目を返す。  


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


; 戻り値
; 戻り値
: 成功した場合は、alist の項目。
: 成功した場合は、alist の項目。
: キーである element が alist 内に見つからなかった場合は、nil を返す。  
: キーである element が alist 内に見つからなかった場合は、nil を返す。  


;サンプル
;サンプル
: (setq al '((name box) (width 3) (size 4.7263) (depth 5)))  
<pre class="brush: autolisp;">
: ((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))
(setq al '((name box) (width 3) (size 4.7263) (depth 5)))  
: (assoc 'size al)  
((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))
: '''(SIZE 4.7263)'''
(assoc 'size al)  
: ---
(SIZE 4.7263)
: (assoc 'weight al)  
 
: '''nil'''
(assoc 'weight al)  
: ---
nil
: (setq bigl '((a b c)(d)(e f g)))
 
: (assoc 'e bigl)
(setq bigl '((a b c)(d)(e f g)))
: '''(E F G)'''
(assoc 'e bigl)
: ---
(E F G)
: (setq elist (entget (car (entsel "図形選択:"))))
 
: (princ (strcat "\n選択図形は、" (cdr (assoc 0 elist))))
(setq elist (entget (car (entsel "図形選択:"))))
: '''選択図形は、*選んだ図形タイプ名*'''
(princ (strcat "\n選択図形は、" (cdr (assoc 0 elist))))
選択図形は、*選んだ図形タイプ名*
</pre>
 


[[Category:AutoLISP]]
[[Category:AutoLISP]]

2015年9月18日 (金) 08:07時点における最新版

構文
(assoc element alist)


機能
連想リストの要素を検索し、指定された要素が含まれる連想リスト項目を返す。


引数
  • element : 連想リストの要素のキー。
  • alist : 検索対象の連想リスト。


戻り値
成功した場合は、alist の項目。
キーである element が alist 内に見つからなかった場合は、nil を返す。


サンプル
 (setq al '((name box) (width 3) (size 4.7263) (depth 5))) 
 ((NAME BOX) (WIDTH 3) (SIZE 4.7263) (DEPTH 5))
 (assoc 'size al) 
 (SIZE 4.7263)

 (assoc 'weight al) 
 nil

 (setq bigl '((a b c)(d)(e f g)))
 (assoc 'e bigl)
 (E F G)

 (setq elist (entget (car (entsel "図形選択:"))))
 (princ (strcat "\n選択図形は、" (cdr (assoc 0 elist))))
 選択図形は、*選んだ図形タイプ名*