15 years ago
this is ugly, but it works to give me the default
values I want for width and height in my door routine.
pt (getpoint "\nSet Point for Door
w (getint "\nDoor Width in
ht (getint "\nDoor Height in inches
tr_wid (getreal "\n Enter Trim Width :")
((= typ "E") "Entry Door")
"H") "Half Glass")
"F") "Full Glass")
"S") "Steel Door")
(if (= w nil)
(setq w 36)
(if (= ht nil)
(setq ht 80)
but I just know I had it slicker before. can't find a code
snippet of how I have done it before.
make me feel stupid, and help me tighten this up a bit. please.
* typ already constrained to the choices shown through initget