;TIP558.LSP   Extend Crossing   (c)1990, Micheal Webster
(defun C:EXTENDC(/ BE SS LS NO P1 P2)
  (setvar "CMDECHO" 0)
  (prompt "Select boundary edge(s)...")
  (terpri)
  (setq BE (ssget))(terpri)
  (prompt "Select objects to extend:")
    (terpri)
  (setq P1 (getpoint "1st point:"))
    (terpri)
  (setq P2 (getcorner P1 "2nd point:"))
    (terpri)
  (setq SS (ssget "C" P1 P2)
        LS (sslength SS)
        NO -1
  ) ;setq SS
  (command "EXTEND" BE "")
  (repeat LS
  (setq NO (1+ NO))
  (command (list (ssname SS NO) P2))
  ) ;repeat LS
  (command "")
  (setvar "CMDECHO" 1)
  (prin1)
) ;defun