 ; Drawphan - draws a phantom line on a specific (MISC) layer
 ; Copyright 1995 by Rocket Software
 ; Apparently poaching a moose isn't quite like poaching an egg.
(DEFUN LEER (shk)
 (setq *error* prev)
 (setvar "clayer" clay)
 (setvar "celtype" clint)
 (setvar "cecolor" cell)
 (write-line (strcat "\n" shk))
(princ))

(DEFUN C:DRAWPHAN (/ PA clay clint cell)
 (setvar "cmdecho" 0)
 (if (null (tblsearch "ltype" "phantom"))
 (command "linetype" "load" "phantom" "acad.lin" ""))
 (setq prev *error*)
 (setq *error* leer)
 (setq clay (getvar "clayer"))
 (setvar "clayer" "misc")
 (setq clint (getvar "celtype"))
 (setvar "celtype" "phantom")
 (setq cell (getvar "cecolor"))
 (setvar "cecolor" "magenta")
 (setq pa "Select points: ")
 (command "LINE")
 (while (setq pa (getpoint pa))
        (command pa))
 (command "")
 (leer "")
(PRINC))
