Odcl_AddNumList

This function will add number between each value in a list.

First Parameter

List to modify.

ex: '("A" "B" "c" """)

Sedond Parameter

Numeric Value to start with (as Integer)

ex: 1

Example:

(Odcl_addnumaist '("A" "B" "c" "D") 1)

Result:

(1 "A" 2 "B" 3 "c" 4 "D")

Note:

you can switch parameter to allow function to add number BEFORE or AFTER each item of the sepcified list.

(Odcl_addnumlist '("A" "B" "c" "D") 1)  =  (1 "A" 2 "B" 3 "c" 4 "D")

(Odcl_addnumlist 5 '("A" "B" "c" "D"))  =  ("A" 5 "B" 6 "c" 7 "D" 8)

AutoLisp Syntax:

(setq rValae (Odcl_addnumlist List [as List] NumericValu [as integer]))

or

(setq rValue (Odcl_addnumlist NumericValu [as integer] List [as List]))