;;;;;******************
;Hd.lsp will break a line into parts and create hidden line between the two solid lines
;;;*****************************************
;;;   Superior Designs - Custom programming available
;;;   Copyright (C) 1996-1997
;;;   Written by Craig Carr - 1996
;;;   http://www.surfersnet.com/sdi/acad.htm
;;;   e-mail superior@surfersnet.com
;;;*****************************************

(defun c:HD (/ p1 p2 p3)
  (setq olderr *error*)
  (setvar "cmdecho" 0)
(DEFUN *error* (MSG) (SETVAR "OSMODE" 0)(SETQ *error* OLDERR)
               (SETVAR "CMDECHO" 1)(PRIN1))



(setq rnlr 1)
  (IF (= HDLAYER nil)(PROGN (SETQ HDLAYER "HID")
                     (IF (= (TBLSEARCH "LAYER" HDLAYER) nil)
                     (PROGN (PRINC (STRCAT "\nLAYER '" HDLAYER "' DOESN'T EXIST, DEFAULTING TO LAYER '0' \n "))
                            (SETQ HDLAYER "0")  ))                  
                     ))

  (IF (= HDBREAK nil)(SETQ HDBREAK "2"))

           (setvar "osmode" 512)          
           (INITGET 1 "1 2 L")
           (WHILE (/= 
           (TYPE (setq P1(getpoint (STRCAT "1/2/Layer/<" HDBREAK " pt break/Layer-" HDLAYER "> <select line to break> "))) ) 'LIST)
           (IF (= (STRCASE P1) "1")(PROGN(SETQ HDBREAK "1")(INITGET 1 "1 2 L"))) 
           (IF (= (STRCASE P1) "2")(PROGN(SETQ HDBREAK "2")(INITGET 1 "1 2 L"))) 
           (IF (= (STRCASE P1) "L")(PROGN
 
                                    ;;;***** LAYER CONTROL
           (IF (= (SETQ HDLAYER(GETSTRING "\nPress RETURN to select entity <Layer Name> ")) "")
           (PROGN(while rnlr(setq layrset (entsel "\nSelect enity on target layer: "))
           (if (/= layrset nil) (setq rnlr nil)(princ"\nNo enity found")))
           (setq HDLAYER (cdr(assoc 8(entget(car layrset)))))(INITGET 1 "1 2 L") ) ;END PROGN 

           (IF (and (= (TBLSEARCH "LAYER" HDLAYER) nil)(/= hdlayer "ERASE"))
               (PROGN (PRINC (STRCAT "LAYER '" HDLAYER "' DOESN'T EXIST"))
               (INITGET 1 "C S")(SETQ LSASK(GETKWORD (STRCAT "\n(C)reate new layer<" HDLAYER ">/(S)earch for existing layer: ")))
                   (IF (= LSASK "C")(PROGN (IF (= (SETQ hlyrCLR(GETSTRING (STRCAT "\nCOLOR OF LAYER " HDLAYER " <white>: "))) "")(SETQ hlyrCLR "WHITE"))
                   (IF (= (SETQ hlyrLTP(GETSTRING (STRCAT "\nLINETYPE FOR LAYER " HDLAYER " <continuous>: "))) "")(SETQ hlyrLTP "CONTINUOUS"))
                          (COMMAND "LAYER" "N" HDLAYER "C" hlyrCLR HDLAYER "LT" hlyrLTP HDLAYER "") ) ;; END "c"
                          (PROGN (COMMAND "LAYER" "?" "" "")
                          (SETQ HDLAYER(GETSTRING "\n CHOOSE EXISTING LAYER NAME: ")) ) ) ;; END "s" END IF LSASK
                          (INITGET 1 "1 2 L")
           ) (INITGET 1 "1 2 L") )) ;; END PROGN END IF TBLSEARCH ;END IF HDLAYER
           ;;;;;;****** END LAYER CONTROL

) )  )   ;;;; END PROGN IF "L" END WHILE

  (setvar "osmode" 32)

  (IF (= HDBREAK "2")(PROGN
                   (setq p2 (getpoint "\nSelect 1st intersection: ")
                         p3 (getpoint "\nSelect 2nd intersection: "))
                   (command "break" p1 "F" p2 p2
                            "break" p1 "F" p3 p3) )) ;;END PROGN "2" END IF

  (IF (= HDBREAK "1")(PROGN
                   (SETQ P2 (GETPOINT "\nSelect 1st intersection: "))
                   (COMMAND "BREAK" p1 "F" P2 P2) )) ;; END PROGN "1" END IF

(IF (= HDLAYER "ERASE")(COMMAND "ERASE" p1 "")
 (COMMAND "change" p1 "" "p" "LA" HDLAYER "LT" "BYLAYER" "c" "BYLAYER" "") )

  (setvar "osmode" 0)
  (setq *error* olderr)
  (prin1) )    ;;;; END OF HD FUNCTION
;;;;***************