Leaderboard

Thanks Mhupp. A hidden option is that a variable "but" is returned the button chosen, so can make the cond a little simpler ((= but 5)(c:BreakSelected)) Another hint, (ah:butts 1 the number 1 is the first button so you can remember the button last selected and when ran again it will show that one. (if (= butnum nil)(setq butnum 1)) (setq ans (ah:butts butnum "V" '("Choose Break Option" "BreakAll" "BreakwObjects" "BreakObject" "BreakWith" "BreakTouching" "BreakSelected"))) (setq butnum but)

Their are several different commands in CAB's lisp. you only need one of the ans (defun C:foo () (if (not AH:Butts)(load "Multi radio buttons.lsp")) (setq ans (ah:butts 1 "V" '("Choose Break Option" "BreakAll" "BreakwObjects" "BreakObject" "BreakWith" "BreakTouching" "BreakSelected"))) (cond ((or (= ans "BreakAll") (= ans nil)) ;change (= ans nil) locaiton to where you want the default option to be (c:breakall) ) ((= ans "BreakwObjects") (c:breakwobjects) ) ((= ans "BreakObject") (c:BreakObject) ) ((= ans "BreakWith") (c:BreakWith) ) ((= ans "BreakTouching") (c:BreakTouching) ) ((= ans "BreakSelected") (c:BreakSelected) ) ) )