(defun test(/ dist)
(or *dist* (setq *dist* 0.83))
(setq dist (getreal (strcat "\n What is the offset distance?: <" (rtos *dist* 2 2) ">: ")))
(or (and (not dist) (setq dist *dist*)) (setq *dist* dist))
(alert (strcat "\nThe value of *dist* is " (rtos *dist* 2 2)
"\nThe value or dist is " (rtos dist 2 2))))
轻微的简化
页:
1
[2]