this is ugly, but it works to give me the default values I want for width and height in my door routine.
(setq oc 1 pt (getpoint "\nSet Point for Door :") w (getint "\nDoor Width in inches :<36>") ht (getint "\nDoor Height in inches :<80>") tr_wid (getreal "\n Enter Trim Width :") txt (cond ((= typ "E") "Entry Door") ((= typ "H") "Half Glass") ((= typ "F") "Full Glass") ((= typ "S") "Steel Door") ) ) (if (= w nil) (setq w 36) nil ) (if (= ht nil) (setq ht 80) nil )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 previous...