home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY21.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  222 b   |  9 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq pt (getpoint "╩Σ╚δ╘▓╨─╡π: "))
  4. (setq r (getreal "╩Σ╚δ░δ╛╢: "))
  5. (setq c (list (+ (car pt) (/ r 2)) (cadr pt)))
  6. (command "pline" c "w" r r "a" "a" 180  "c" pt "cl")
  7. )
  8. (hj01)
  9.