home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p067 / 1.img / HY / HY32.LSP < prev    next >
Encoding:
Text File  |  1988-01-04  |  209 b   |  9 lines
  1. (DEFUN hj01 ()
  2. (setvar "cmdecho" 0)
  3. (setq pt1 (osnap (getpoint "╩Σ╚δ╧▀╡─╗∙╡π: ") "NEA"))
  4. (setq pt2 (osnap (getpoint "╩Σ╚δ╡╜╡π: ") "NEA"))
  5. (command "ortho" "on")
  6. (command "change" pt1 "" pt2)
  7. )
  8. (hj01)
  9.