Append (autolisp)

提供:GizmoLabs - だいたい CAD LISP なサイト
2020年11月17日 (火) 10:50時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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))))
)


関連事項