Liren Large Software Subsidy 13/13.iso/p/p190/4.ddi/LSP2/HM32.LSP

Text File | 1990-03-10 | 1.6 KB | 45 lines

(defun ELL ()
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(MENUCMD "S=IN1")
(SETQ D1 (GETREAL "\n╟δ╩Σ╚δ═╓╘▓╦«╞╜╓ß╡─│ñ╢╚: "))
(WHILE(/= D1 NIL)
 (SETQ D2 (GETREAL "\n╟δ╩Σ╚δ═╓╘▓┤╣╓▒╓ß╡─│ñ╢╚: "))
 (SETQ D1 (* (/ D1 2) S) D2 (* (/ D2 2) S))
 (SETQ PT1 (GETPOINT "\n╟δ╩Σ╚δ╘▓╨─╡─╬╗╓├: "))
 (SETQ PTR (LIST (+ (CAR PT1) D1 2) (CADR PT1)))
 (SETQ PTL (LIST (- (CAR PT1) D1 2) (CADR PT1)))
 (SETQ PTU (LIST (CAR PT1) (+ (CADR PT1) D2 2)))
 (SETQ PTD (LIST (CAR PT1) (- (CADR PT1) D2 2)))
 (COMMAND "LAYER" "S" 1 "")
 (COMMAND "LINE" PTR PTL "")
 (COMMAND "LINE" PTU PTD "")
 (COMMAND "LAYER" "S" 0 "")
 (SETQ PTR (LIST (+ (CAR PT1) D1) (CADR PT1)))
 (SETQ PTL (LIST (- (CAR PT1) D1) (CADR PT1)))
 (SETQ PTU (LIST (CAR PT1) (+ (CADR PT1) D2)))
 (SETQ PTD (LIST (CAR PT1) (- (CADR PT1) D2)))
 (COMMAND "ELLIPSE" "C" PT1 PTR D2)
 (COMMAND "PEDIT" "L" "W" 0.6 "")
 (SETQ PT2 (GETPOINT "\n╟δ╩Σ╚δ╦«╞╜│▀╧▀╡─╬╗╓├: "))
 (SETQ BZ (RTOS (/ (* D1 2) S) 2 0))
 (COMMAND "DIM" "DIMTXT" 0.2 "HOR" PTL PTR PT2 BZ "EXIT")
 (SETQ PT2 (GETPOINT "\n╟δ╩Σ╚δ┤╣╓▒│▀╧▀╡─╬╗╓├: "))
 (SETQ BZ (RTOS (/ (* D2 2) S) 2 0))
 (COMMAND "DIM" "DIMTXT" 0.2 "VER" PTD PTU PT2 BZ "EXIT")
 (SETQ HD (GETREAL "\n╟δ╩Σ╚δ░σ╡─║±╢╚: "))
 (COND ((/= HD NIL)
  (SETQ PT6 (GETPOINT "\n╟δ╩Σ╚δ░σ║±▒Ω╫ó╡π1: "))
  (SETQ PT7 (GETPOINT "\n╟δ╩Σ╚δ░σ║±▒Ω╫ó╡π2: "))
  (COMMAND "LINE" PT6 PT7 "")
  (COMMAND "STYLE" "HZ" "" "" "" "" "" "")
  (SETQ BJ (STRCAT "%%U" "░σ║±=" (RTOS HD 2 0)))
  (COMMAND "TEXT" PT7 7 0 BJ)
  (COMMAND "STYLE" "STANDARD" "" "" "" "" "" "" "")
 ))
 (SETQ D1 (GETREAL "\n╝╠╨°╩Σ╚δ╘▓╡─╓▒╛╢, ╗≥╗╪│╡╜ß╩°: "))
 )
(MENUCMD "S=BAN")
)
(ELL)