;;;Place a pipe section symbol (yin-yan, sans the dots) in an arc or circle.
;;;(uses YINYAN.DWG)
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-18-94
;;;>		   EDITED: 04-23-2004
;;;
(DEFUN c:psct (/)
  (SETQ smode (GETVAR "osmode")
        bname "yinyan"
        aname (STRCAT bname ".dwg")
        clayr (GETVAR "clayer")
  ) ;_ end of SETQ
  (IF (OR (FINDFILE aname) bname)
    (PROGN
      (SETVAR "osmode" 0)
      (SETVAR "cmdecho" 0)
      (IF
        (AND
          (SETQ pcent (ENTSEL "\nPick pipe circle "))
          (OR
            (= "CIRCLE" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
            (= "ARC" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
            (= "ELLIPSE" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
          ) ;_ end of OR
        ) ;_ end of AND
         (PROGN
           (COND
             ((OR
                (= "CIRCLE" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
                (= "ARC" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
              ) ;_ end of or
              (SETQ ccen (CDR (ASSOC 10 (ENTGET (CAR pcent))))
                    cdia (* (CDR (ASSOC 40 (ENTGET (CAR pcent)))) 2)
                    cirl (CDR (ASSOC 8 (ENTGET (CAR pcent))))
              ) ;_ end of setq
             )
             ((= "ELLIPSE" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
              (SETQ ccen         (CDR (ASSOC 10 (ENTGET (CAR pcent))))
                    cirl         (CDR (ASSOC 8 (ENTGET (CAR pcent))))
                    ellipse_ang  (COND
                                   ((EQUAL
                                      (CADDR (ASSOC 11 (ENTGET (CAR pcent))))
                                      0
                                      0.00001
                                    ) ;_ end of EQUAL
                                    0
                                   )
                                   ((EQUAL
                                      (CADR (ASSOC 11 (ENTGET (CAR pcent))))
                                      0
                                      0.00001
                                    ) ;_ end of EQUAL
                                    (* PI 0.5)
                                   )
                                   (T
                                    (+(* 180.0(/(ATAN
                                      (/ (CADDR (ASSOC 11 (ENTGET (CAR pcent)))
                                         ) ;_ end of CADDR
                                         (CADR (ASSOC 11 (ENTGET (CAR pcent))))
                                      ) ;_ end of /
                                    )pi))270.0)
                                   )
                                 ) ;_ end of COND
                    ellipse_ydia (*
                                   (DISTANCE
                                     (CDR (ASSOC 10 (ENTGET (CAR pcent))))
                                     (POLAR
                                       (POLAR
                                         (CDR (ASSOC 10 (ENTGET (CAR pcent)))
                                         ) ;_ end of CDR
                                         0
                                         (CADR (ASSOC 11 (ENTGET (CAR pcent)))
                                         ) ;_ end of CADR
                                       ) ;_ end of POLAR
                                       (* PI 0.5)
                                       (CADDR (ASSOC 11 (ENTGET (CAR pcent)))
                                       ) ;_ end of CADDR
                                     ) ;_ end of POLAR
                                   ) ;_ end of DISTANCE
                                   2.0
                                 ) ;_ end of *
                    ellipse_xdia (* (CDR (ASSOC 40 (ENTGET (CAR pcent))))
                                    ellipse_ydia
                                 ) ;_ end of *
              ) ;_ end of SETQ
             )
           ) ;_ end of COND
           (COMMAND ".layer" "s" cirl "")
           (COND
             ((OR
                (= "CIRCLE" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
                (= "ARC" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
              ) ;_ end of OR
              (COMMAND ".insert" bname ccen cdia cdia "0")
             )
             ((= "ELLIPSE" (CDR (ASSOC 0 (ENTGET (CAR pcent)))))
              (COMMAND ".insert"      bname          ccen
                       ellipse_xdia   ellipse_ydia   ellipse_ang
                      ) ;_ end of COMMAND
             )
           ) ;_ end of COND
         ) ;_ end of PROGN
         (PROMPT "\nEntity not a circle or not selected. ")
      ) ;_ end of IF
    ) ;_ end of PROGN
    (PROMPT
      (STRCAT "\nBlock " bname " or File " aname " not found! \n")
    ) ;_ end of PROMPT
  ) ;_ end of IF
  (SETVAR "osmode" smode)
  (SETVAR "clayer" clayr)
  (SETVAR "cmdecho" 1)
) ;_ end of DEFUN

 ;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 1 0 nil T nil T)
;*** DO NOT add text below the comment! ***|;