Vle-sublistのソースを表示

{{BCAD_LISP}}

; 構文
: (vle-sublist ''lst''  ''startidx''  ''nritems'' )


; 機能
: 入力リスト lst から、インデックス startidx の項目から始まり、lst からリスト項目の最大数 nritems 個のサブリストを返す関数。


; 引数
:* lst : サブリストを抽出するためのリスト。
:* startidx : サブリストの最初の項目のインデックス (最初の項目は0)。 startidx < 0 は 0 として扱われる。
:* nritems : lst リストからコピーされるアイテムの数; nritems が < 0 なら、startidx 以降のすべてのアイテムになる。


; 戻り値
: インデックス startidx で始まる、入力リスト lst の n 個の項目を含む lst のサブリスト。
: lst に nritems 分の項目がない場合，lst の項目のみ返される。NIL が付加されたリストになるわけではない。


; サンプル

<pre class="brush:autolisp;">
(vle-sublist '(1 2 3 4 5 6 7) 2 3) ; 2 から 3個のリスト
(3 4 5)

(vle-sublist '(1 2 3 4 5 6 7) 2 -1) ; nritems がマイナスの場合は最後まで
(3 4 5 6 7)

(vle-sublist '(1 2 3 4 5 6 7) 2 10) ; nritems 分無いのはリストの最後まで
(3 4 5 6 7) 

(vle-sublist '(0 1 2) 3 -1) ; lst が startidx より少ない場合は nil
nil

</pre>  


----
関連事項
* [[gz:subseq]] （Gz-Lib関数）



[[Category:AutoLISP]]
[[Category:BricsCADのLISP]]