;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
;              
;		All rights reserved without prejudice.
;
;	Copyright:	6-18-94
;	Edited:		6-18-94
;
(DEFUN C:PSCT ( / )
  (setq smode (getvar"osmode")
        bname "yinyan"
        aname (strcat bname ".dwg")
        clayr (getvar"clayer")
  );setq
    (if (or (findfile aname) bname)
      (progn
        (setvar "osmode" 4)
        (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)))))
            );or
          );and
          (progn
            (setq ccen (cdr (assoc 10 (entget (car pcent))))
                  cdia (*(cdr (assoc 40 (entget (car pcent))))2)
                  cirl (cdr (assoc 8 (entget (car pcent))))
            );setq
            (command ".layer" "s" cirl ""
                     ".insert" bname ccen cdia cdia "0"
            );command
          );progn
          (prompt "\nEntity not a circle or not selected. ")
        );if
      );progn
      (prompt (strcat "\nBlock " bname " or File " aname " not found! \n"))
    );if
    (setvar "osmode" smode)
    (setvar "clayer" clayr)
    (setvar "cmdecho" 1)
);defun c:PSCT