 ; Drawhidn - draws a hidden line on a specific (MISC) layer
 ; Copyright 1996   Rocket Software
 ; Nature: there is nothing so ugly that nothing will eat it.
(DEFUN LEER (shk)
 (setq *error* prev)
 (setvar "clayer" clay)
 (setvar "celtype" clint)
 (setvar "cecolor" cell)
 (write-line (strcat "\n" shk))
(princ))

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