;Place a single line pipe break symbol (polyline) at the end of a line.
;
;       Requirements: transpt.lsp (point translator used with the list
;                                  returned by an nentsel selection)
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	4-16-95
;	Edited:		5-2-97
;
(DEFUN C:SLPB ( / bkp1b bkp1m bkp1r bkp1l bkp1a bkp2b bkp2m bkp2r bkp2l
bkp2a bkp3b bkp3m bkp3r bkp3l bkp3a)
(setq s_mode (getvar"osmode"))
(setvar"osmode"0)
(if mklayr nil (load"mklayr"))
(c:svlayr)
(if dimscl nil (load "dimscl"))
(dimscl)
(setq txtht (* 0.125 dimsc))
(while
  (setq sel1 (nentsel "\nSelect line"))
  (if (= "LINE" (cdr(assoc 0(entget(car sel1)))))
    (progn
      (setq endp1 (cdr(assoc 10(entget(car sel1)))))
      (setq endp2 (cdr(assoc 11(entget(car sel1)))))
    )
    (if (= "VERTEX" (cdr(assoc 0(entget(car sel1)))))
      (progn
        (setq endp1 (cdr(assoc 10(entget(car sel1)))))
        (setq endp2 (cdr(assoc 10(entget(entnext(car sel1))))))
      )
      (princ "\nNot a LINE or POLYLINE.")
    )
  );if
  (if (> (length sel1) 2)
    (progn
      (if transpt nil (load"transpt"))
      (setq endp1 (transpt sel1 endp1))
      (setq endp2 (transpt sel1 endp2))
    )
  )
  (setq lang (angle endp1 endp2))
  (setq lrang (+ lang (/ pi 2.00)))
  (if (>(distance endp1 (cadr sel1))(distance endp2 (cadr sel1)))
    (setq pt1 endp2)
    (setq pt1 endp1)
  );if
  (setq bl1 (polar pt1 lrang (* txtht 0.50))
        bl2 (polar pt1 (+ lrang (* pi 0.15)) (* txtht 0.375))
        bl3 (polar bl2 (+ lrang (* pi 1.15)) (* txtht 0.75))
        bl4 (polar pt1 (+ lrang pi) (* txtht 0.50))
  );setq
  (setq colr "2"
	colra NIL
	colri NIL)
  (if gvpno nil (load"gvpno"))
  (gvpno)
  (c:mklayr)
  (command ".pline" bl1 bl2 bl3 bl4 "")
  (command ".pedit" "l" "f" "")
);while
(c:rslayr)
(setvar"osmode"s_mode)
);defun