home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY16.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  448 b   |  15 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq pt1 (getpoint "╩Σ╚δ╫≤╧┬╜╟╡π: "))
  4. (setq w1 (getreal "╩Σ╚δX╓ß╖╜╧≥╡─┐φ╢╚: "))
  5. (setq w2 (getreal "╩Σ╚δY╓ß╖╜╧≥╡─┐φ╢╚: "))
  6. (setq d (getreal "╩Σ╚δ╡╣╜╟░δ╛╢: "))
  7. (setq pt2 (list (+ (car pt1) w1) (+ (cadr pt1) w2)))
  8. (setq pt3 (list (car pt1) (cadr pt2)))
  9. (setq pt4 (list (car pt2) (cadr pt1)))
  10. (command "pline" pt1 "w" 0 0 pt3 pt2 pt4 "c")
  11. (command "fillet" "r" d)
  12. (command "fillet" "p" pt1)
  13. )
  14. (hj01)
  15.