;;;Place a US Army Corps of Engineers or a "Standard" Section Cut Symbol
;;;in the drawing at any orientation.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-10-93
;;;>		   EDITED: 10-06-2005
;;;
(DEFUN C:SCS ( / clayr pt1 pt2 pt3 inss1 inss2 e1ang e2ang scsym)
  (setq cmde (getvar"cmdecho"))
  (setvar "cmdecho" 0)
  (setq whcht (ukword 1 "Coe Std" "Corps of Engr. or Standard Symbol" (if whcht whcht "Std")))
  (if (eq (substr whcht 1 1) "C")
    (setq scsym "seclin")
    (setq scsym "seccut")
  );if
  (if dimscl nil (load"dimscl"))
  (dimscl)
  (setq ntwang (- 0 (*(/(getvar"viewtwist")(* 2.0000 pi))360)))
  (setq attdlg (getvar"attdia")
        pt1 (getpoint "\nCenter of Section Bubble")
        pt2 (upoint 1 "" "\nDirection of Cutting Line" nil pt1)
        pt3 (upoint 1 "" "\nDirection of Cut" nil pt1)
        e1ang (angle pt1 pt2)
        e2ang (angle pt1 pt2)
	mjrg "C"
	llt "-"
        prod "SECT"
        colr "1"
        modf "SYMB"
  );setq
  (if
    (or
      (and
        (<=(abs(-(angle pt1 pt2)(angle pt1 pt3)))pi)
        (>(angle pt1 pt2)(angle pt1 pt3))
      );and
      (and
        (>=(abs(-(angle pt1 pt2)(angle pt1 pt3)))pi)
        (<(angle pt1 pt2)(angle pt1 pt3))
      );and
    );or
    (setq inss2 (- 0.0 dimsc))
    (setq inss2 dimsc)
  );if
  (setvar "cmdecho" 0)
  (if c:mklayr nil (load"mklayr"))
  (c:svlayr)
  (c:mklayr)
  (if (or(=(substr clayr 2 9)"SECT7SYMB") mjrg)
    (progn
      (command "insert" "elvcut" pt1 dimsc inss2 pt2
               ".setvar" "attdia" 0
               ".insert" "b" pt1 dimsc dimsc ntwang "" "" ""
      );command
      (command ".ddatte" "l")
    );progn
  );if
  (c:rslayr)
  (setvar "attdia" attdlg)
  (setvar "cmdecho" cmde)
  (command)
);defun c:scs