topic Re: Using initget twice in Visual LISP, AutoLISP and General Customization Forum

Using initget twice

My_Civil_3D — Sun, 26 May 2024 10:55:48 GMT

Hi guys i am stuck with some code
i want the user to select a option and based on the result of that option select another option. i am getting an error saying to many arguments. think the issue here is that i am incorrectly using the initget twice. here is a snip of my code.

(initget "450 600 750 900 1200 1500 1800 2100 2400 3000 3600") (setq ans (getkword "\nSelect Span [450/600/750/900/1200/1500/1800/2100/2400/3000/3600]: ")) ;Condition for 450 (cond ((= ans "450") (setq culvertclass "200S") (initget "450x300 450x375 450x450") (setq ans2 (getkword "\nSelect Culvert Size [450x300/450x375/450x450]: ")) (cond ((= ans2 "450x300") (setq culvertsize "450 x 300")) ((= ans2 "450x375") (setq culvertsize "450 x 375")) ((= ans2 "450x450") (setq culvertsize "450 x 450")) ));End Condition

Re: Using initget twice

Kent1Cooper — Sun, 26 May 2024 11:28:50 GMT

@My_Civil_3D wrote:
.... ));End Condition

That last right parenthesis you have ends only the "is-it-450" condition. For this snippet to be whole, you still need another ) to conclude the surrounding (cond) function [which surely contains additional conditions for the other answers].

If I add the final ) , it works for me as expected. So a too-many-arguments error isn't from the multiple (initget) functions. I'm not sure where it could be coming from, unless it's in something further down the road in the larger routine.

Re: Using initget twice

paullimapa — Sun, 26 May 2024 15:07:17 GMT

FYI since you have so many initget options, instead of rewriting it again under getkword just let lisp do it for you like this

(vl-load-com) (initget (setq msg "450 600 750 900 1200 1500 1800 2100 2400 3000 3600")) (setq ans (getkword (strcat"\nSelect Span [" (vl-string-translate " " "/" msg)"]: ")))

Re: Using initget twice

calderg1000 — Sun, 26 May 2024 15:20:07 GMT

Regards @My_Civil_3D

For me it works well, with this test...

(defun c:cs( / ans ans2 culvertsize) (initget "450 600 750 900 1200 1500 1800 2100 2400 3000 3600") (setq ans (getkword "\nSelect Span [450/600/750/900/1200/1500/1800/2100/2400/3000/3600]: ")) ;Condition for 450 (cond ((= ans "450") ;;; (setq culvertclass "200S");???? (initget "450x300 450x375 450x450") (setq ans2 (getkword "\nSelect Culvert Size [450x300/450x375/450x450]: ")) (cond ((= ans2 "450x300") (setq culvertsize "450 x 300")) ((= ans2 "450x375") (setq culvertsize "450 x 375")) ((= ans2 "450x450") (setq culvertsize "450 x 450")) (t nil) );End Condition 2 ) (t nil) );End Condition (princ culvertsize) (princ) )

Re: Using initget twice

Sea-Haven — Mon, 27 May 2024 00:51:06 GMT

Have a look at this a dcl instead of initget.

(if (not ah:buttscol)(load "Multi Radio buttons 2col.lsp")) (if (= ah:but nil)(setq ah:but 1)) (if (= ah:but2 nil)(setq ah:but2 1)) (setq lst1 (list "Select size 1" "450" "600" "750" "900" "1200" "1500" "1800" "2100" "2400" "3000" "3600")) (setq lst2 (list "Select size 2" "450" "600" "750" "900" "1200" "1500" "1800" "2100" "2400" "3000" "3600")) (ah:buttscol ah:but ah:but2 "Please choose sizes" lst1 lst2) (setq ans2 (strcat (nth ah:2col lst1) "x" (nth ah:2col2 lst2)))

Make sure Multi radio butons 2col.lsp is in a search path.