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

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

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)

; エンティティリストに 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))))
)

@@ 1行目: / 1行目: @@
+{{AutoLISP}}
 ; 構文
 : (append [''list ...''])
 ; 機能
 : 任意の数のリストを受け取り、1 つのリストに結合する。
 ; 引数
 :*  list : リスト。
 ; 戻り値
 : すべての引数を 1 つにまとめたリスト。
 : 引数を与えない場合は、 nil を返す。
 ;サンプル
-: (append '(a b) '(c d))
+<pre class="brush: autolisp;">
-: '''(A B C D)'''
+(append '(a b) '(c d))
-: ---
+(A B C D)
-: (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))
+(setq m '(A B C D E F))
-: '''(A B C D E F G)'''
+(A B C D E F)
-: ---
-: (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)))
-: '''nil'''
+(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))))
+)
+</pre>
+-----
+関連事項
+* [[cons]]
+* [[list]]
+* [[subst]]
 [[Category:AutoLISP]]