home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY06.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  409 b   |  15 lines
  1. (defun HJ01 ()
  2. (setvar "cmdecho" 0)
  3. (setq pt1 (osnap (getpoint "╩Σ╚δ╧▀╡─╞≡╩╝╡π: ") "end"))
  4. (setq pt2 (osnap (getpoint "╩Σ╚δ╧▀╡─╓╒╡π: ") "end"))
  5. (setq m (getint "╩Σ╚δ╧▀╩²: "))
  6. (setq x (- (cadr pt2) (cadr pt1)))
  7. (setq n (+ m 1))
  8. (setq y (/ (distance p1 p2) 10))
  9. (setq q (/ x m))
  10. (setq pt3 (list (+ (car pt1) y) (cadr pt1)))
  11. (command "line" pt1 pt3 "")
  12. (command "array" "l" "" "r" n 1 q)
  13. )
  14. (hj01)
  15.