 ; Igloo - draw a line in model space from points entered in paper space.
 ; Copyright 1997 by Rocket Software
 ; 
 (DEFUN C:IGLOO (/ pa pb)
  (setvar "cmdecho" 1)
  (setq pa (getpoint "Point: "))
  (setq pb (getpoint pa "Point 2: "))
  (setq pa (trans pa 3 2))
  (setq pb (trans pb 3 2))
  (command ".mspace")
  (command "line" pa pb "")
  (command ".pspace")
 (princ))