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

提供：GizmoLabs - だいたい CAD LISP なサイト
細編集の要約なし
細編集の要約なし
18行目: 18行目:
;サンプル
;サンプル
<pre class="brush: autolisp;">
<pre class="brush: autolisp;">
(append '(a b) '(c d))  
(append '(a b) '(c d))  
(A B C D)
(A B C D)


(append '((a)(b)) '((c)(d)))  
(append '((a)(b)) '((c)(d)))  
((A) (B) (C) (D))
((A) (B) (C) (D))


(setq m '(A B C D E F)) (A B C D E F)   
(setq m '(A B C D E F))
(append m '(G))
(A B C D E F)   
(A B C D E F G)


(setq m (append m '(G H I) (LIST 1 2 3)))
(append m '(G))
(A B C D E F G H I 1 2 3)
(A B C D E F G)


  (append)
(setq m (append m '(G H I) (LIST 1 2 3)))
(A B C D E F G H I 1 2 3)  
 
(append)
  nil
  nil
; 以下は、引数が LIST じゃないのでエラー
(append 'a 'b)
(append 'a '(b))
(append '(a) 'b)
</pre>
</pre>
---
関連事項
* [[cons]]


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

2015年9月20日 (日) 10:09時点における版

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター
構文
(append [list ...])
機能
任意の数のリストを受け取り、1 つのリストに結合する。


引数
  • list : リスト。


戻り値
すべての引数を 1 つにまとめたリスト。
引数を与えない場合は、 nil を返す。


サンプル
(append '(a b) '(c d)) 
(A B C D)

(append '((a)(b)) '((c)(d))) 
((A) (B) (C) (D))

(setq m '(A B C D E F))
(A B C D E F)  

(append m '(G))
(A B C D E F G)

(setq m (append m '(G H I) (LIST 1 2 3)))
(A B C D E F G H I 1 2 3)  

(append)
 nil

; 以下は、引数が LIST じゃないのでエラー
(append 'a 'b) 
(append 'a '(b))
(append '(a) 'b)

--- 関連事項

「https://wiki.gz-labs.net/index.php?title=Append_(autolisp)&oldid=5079」から取得