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

提供:GizmoLabs - だいたい CAD LISP なサイト
編集の要約なし
編集の要約なし
 
(同じ利用者による、間の3版が非表示)
2行目: 2行目:
; 構文
; 構文
: (append [''list ...''])  
: (append [''list ...''])  


; 機能
; 機能
18行目: 19行目:
;サンプル
;サンプル
<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)))
((A) (B) (C) (D))


(append '((a)(b)) '((c)(d)))  
(setq m '(A B C D E F))
((A) (B) (C) (D))
(A B C D E F)


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


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


(append)
(append)
  nil
  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))))
)
</pre>
</pre>
-----
関連事項
* [[cons]]
* [[list]]
* [[subst]]


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

2020年11月17日 (火) 10:50時点における最新版

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


関連事項