;THIS CONSTRUSTS A BREAK FOR A PIPE OR ROLLER. RICK PUGH MAY 21 1991.
;
(DEFUN C:RLREND ()
  (SETQ PT1 (GETPOINT "\n First end:"))
  (SETQ PT2 (GETPOINT "\n Second end:"))
  (setq DIST (distance PT1 PT2) ANG (angle PT1 PT2))
  (setq PT3 (polar PT1 ANG (* DIST 0.25))
    PT3 (polar PT3 (+ ANG (/ PI 2)) (* DIST 0.2)))
  (command "Arc" PT1 PT3 (SETQ PT1 (POLAR PT1 ANG (/ DIST 2))))
  (setq PT3 (polar PT1 ANG (* DIST 0.25))
    PT3 (polar PT3 (+ ANG (/ PI 2)) (* DIST 0.2)))
  (command "Arc" PT1 PT3 PT2)
  (setq PT3 (polar PT1 ANG (* DIST 0.25))
    PT3 (polar PT3 (- ANG (/ PI 2)) (* DIST 0.2)))
  (command "Arc" PT1 PT3 PT2)
)

(princ "--> komut : RLREND ")

; PIPE-BRK.LSP

;THIS IS TO DRAW A PIPE BREAK SYMBOL (LOOKS LIKE AN "8") AT THE END OF
;A PAIR OF PARALLEL LINES.  POINTS SHOULD BE PICKED IN COUNTERCLOCKWISE
;ORDER--IF AT THE RIGHT END OF PIPE, PICK THE BOTTOM END, THEN THE TOP END
;IF AT THE LEFT END OF PIPE, PICK THE TOP END FIRST, THEN THE BOTTOM END

(defun C:PIPE-BRK (/ pb pt pm)
  (graphscr)
  (setq os (getvar "osmode"))
  (setvar "osmode" 1);endpoint
  (setq pb (getpoint "Pick End of Pipe (In CCW Order): ")) (terpri)
  (setq pt (getpoint "Pick End of Pipe: ")) (terpri)
  (setvar "osmode" 0);none
  (setq pm (polar pb (angle pb pt) (/ (distance pb pt) 2)))
  (command "ellipse" pb pm "r" "70")
  (command "ellipse" pm pt "r" "70")
  (command "break" "l" pt pm)
  (command "mirror" "l" "" pb pt "y")
  (setvar "osmode" os)
  (princ)
)

(princ "--> komut : PIPE-BRK ")