Append (autolisp)

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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)

; エンティティリストに 62 があったら差し替え、無かったら追加する 

(setq ent (entget (car (entsel)))
      col 1)
(if (assoc 62 ent)
    (setq ent (subst (cons 62 col) (assoc 62 ent) ent))
    (setq ent (append ent (list (cons 62 col))))
)


関連事項