PDA

View Full Version : princ in dynamic input


bart.84601
2005-10-11, 11:24 AM
I hide the command line, and use dynamic input.. I really like it, but there are some things I need to improve..

When I use a certain lisp routine, it calculates how many steps my stairs should have and it should give me a choice.. It still gives me that choice, but I can't see it until I open my AutoCAD text window (by pressing F2)

I would like to know how I can display these variables with dynamic input..

Here's a part of the routine (it's dutch):

(defun keusx (/ antw6)
(setvar "cmdecho" 0)
(command)
(command)
(prompt "Kies het aantal optreden voor Uw trap: ")
(princ "A : ")
(princ op4)
(princ " of ")
(princ "B : ")
(princ op5)
(terpri)
(initget 1 "A B")
(setq antw6 (getkword "Kies het aantal optreden : [A , B] "))
(strcase antw6)
(if (= antw6 "A")
(setq op3 op4)
)
(if (= antw6 "B")
(setq op3 op5)
)
(keus)
)variables op4 and op5 give the number of steps I can choose from..

I hope someone van help me..

regards.. Bart

RobertB
2005-10-11, 06:56 PM
(defun C:Test (/ op4 op5 myPrompt input)
(setq op4 4
op5 6
myPrompt (strcat "\nOption A: "
(itoa op4)
"\nOption B: "
(itoa op5)
"\nSelect option [A/B] <A>: "))
(initget "A B")
(setq input (getkword myPrompt))
(cond ((= input "B") ;| non-default option |;)
(T ;| default option |;))
(princ))
Note the use of multiple newlines.