- (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))))
轻微的简化 | 
