Topic: Label and diameter lengths

[Dlanor]

BigAl. I know, but i modified the code slightly to return the index as opposed to the item at index. This allowed me to access the correct item in a second list, formatting the fraction part to plug straight into the mtext.

[BIGAL]

Dlannorh You can still run from 2 lines the (nth but butlst) is to push the value into the setq so if you run the (ah:butts only it will display an answer that goes no where the "but" value has already been set earlier in code so can do 1- could do the (nth but butlst) outside the defun like idx desired. But would need a list like you have done to get the text answer.
As you correctly point out the dcl uses 1 as 1st pick, a list uses 0 as 1st entry.

Code: [Select]

(ah:butts 1 "v"  a_lst)
(setq idx (1- but))

command line
(setq a_lst (list "Wire Size" "1/4" "3/8" "1/2" "3/4" "1" "1 1/4" "1 1/2" "2" "3" "4" "5"))
(LOAD "D:/Alan/Completed/Multi radio buttons.lsp")AH:BUTTS
(ah:butts 1 "v"  a_lst)
"1 1/4"
 !but
6
(setq idx (1- but))
5