;;; Xref attachment function for standard symbols.  Attach at dimscale, angle=0 (uses USTR) Can preset pinit for PE seal
;;; "<pinit>_PE", bname for drawings, else it
;;; prompts.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1991-2001
;;;>		   EDITED: 03-11-2003
;;;
(DEFUN C:XA (/ inss1)
  (SETVAR "cmdecho" 0)
  (SETVAR "attreq" 0)
  (IF dimscl
    nil
    (LOAD "dimscl")
  ) ;_ end of if
  (dimscl)
  (IF pinit
    (PROGN (SETQ pinit (ustr 1 "\nEnter Engineer's Initials " pinit "T"))
           (SETQ bname (STRCAT pinit "_PE"))
    )          ;progn
    (SETQ bname (ustr 0 "Block Name " bname nil))
  )            ;if pinit
  (SETQ aname (STRCAT bname ".dwg"))
  (IF (FINDFILE aname)
    (PROGN (SETQ bnndx 1)
           (IF (TBLSEARCH "block" bname)
             (PROGN (WHILE (TBLSEARCH "block" (STRCAT bname (ITOA bnndx))) (SETQ bnndx (1+ bnndx)))
                    (COMMAND "rename" "b" bname (STRCAT (SUBSTR bname 1 4) (ITOA bnndx)))
             ) ;_ end of progn
           )   ;if
           (SETQ pt1 (GETPOINT "\nInsertion Point ")
                 pt1 (LIST (CAR pt1) (CADR pt1) (* dimsc 1001))
           )   ;setq
           (SETQ bname2 (STRCAT (SUBSTR bname 1 7) "l"))
           (SETQ inss1 dimsc)
           (COMMAND "_.layer" "m" bname "")
           (COMMAND ".xref" "attach" bname pt1 inss1 inss1 "0")
           (IF (OR (WCMATCH bname "H@?#0@?@") (WCMATCH bname "h@?#0@?@"))
             (PROGN (COMMAND "_.layer" "m" bname2 "") (COMMAND ".insert" bname2 pt1 inss1 inss1 "0"))
           )   ;if
    )          ;progn
    (PROMPT (STRCAT "\nReference File " aname " not found! \n"))
  )            ;if
               ;    (setq pinit nil)
  (SETVAR "cmdecho" 1)
  (SETVAR "attreq" 1) ;(command)
)              ;defun c:xa

;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T)
 ***Don't add text below the comment!***|;