Liren Large Software Subsidy 13/13.iso/p/p067/1.img/HY/HY34.LSP

Text File | 1988-01-04 | 272 b | 10 lines

(DEFUN HJ01 ()
(setvar "cmdecho" 0)
(setq a (getpoint "╩Σ╚δ╘▓╨─╡π: "))
(setq r (getreal "╩Σ╚δ┤≤╘▓╡─░δ╛╢: "))
(setq w (getreal "╩Σ╚δ╘▓╗╖╡─┐φ╢╚: "))
(setq pt (list (+ (car a) (/ w 2) (- r w)) (cadr a)))
(command "pline" pt "w" w w "a" "a" 180 "c" a "cl")
)
(hj01)