home *** CD-ROM | disk | FTP | other *** search
- (DEFUN hj01 ()
- (setvar "cmdecho" 0)
- (setq pt1 (osnap (getpoint "╩Σ╚δ╡┌╥╗╠⌡╧▀╡─╗∙╡π: ") "nea"))
- (setq pt2 (osnap (getpoint "╩Σ╚δ╡┌╢■╠⌡╧▀╡─╗∙╡π: ") "nea"))
- (setq pt (osnap (getpoint "╩Σ╚δ╡╜╡π: ") "nea"))
- (command "ortho" "on")
- (command "change" pt1 pt2 "" pt)
- )
- (hj01)