李常规的一个变化：
- (defun c:test (/ pt len deg mIs Sec Ang)
- (if (setq pt (getpoint "\nSelect Starting Point: "))
- (progn
- (command "_.line" "_non" pt)
- (while
- (and
- (not (initget 2))
- (setq len (getdist pt "\nSpecify Length: "))
- (or (setq deg (getreal "\nDegrees: ")) (setq deg 0.))
- (or (setq mIs (getreal "\nMinutes: ")) (setq mIs 0.))
- (or (setq Sec (getreal "\nSeconds: ")) (setq Sec 0.))
- (setq Ang (* pi (/ (+ deg (/ mIs 60.) (/ Sec 3600.)) 180.))
- pt (polar pt (+ (* -1. Ang) (/ pi 2.)) len)))
- (command "_non" pt))
- (command "")))
- (princ))
| 
