;TIP595.LSP   Extend to Block   (c)1990, Vladimir Laptev

(defun C:EXT ()
  (command "OSNAP" "NEA")
  (setq E1 (entsel "Select 1st point: ")
        E2 (entsel "Select 2nd point: ")
  )
  (setq PT1 (cdr E1) PT2 (cdr E2))
  (command "LINE" (car PT1)(car PT2) "")
  (command "EXTEND" "L" "" pause "")
  (command "ERASE" "L" "")
)