;;; ;;; Author: Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: ;;; Edited: ;;; (DEFUN hatpat (pat / ) (IF c:svlayr NIL (LOAD "mklayr" "\nFile MKLAYR.LSP not loaded! ")) (c:svlayr) (load "dimscl" "\nFile DIMSCL.LSP not loaded! ") (dimscl) (IF make_layer_ent NIL (LOAD "make_layer_ent" "\nFile MAKE-LAYER-ENT.LSP not loaded! ")) (make_layer_ent (LIST (CONS 8 "C-CONC1PATT"))) (setvar "hpang" 0.785398) (setvar "hpname" pat) (setvar "hpscale" (/ dimsc 32.0)) (COMMAND ".bhatch") (c:rslayr) (IF (WCMATCH (CDR (ASSOC 0 (SETQ hatch-ent (ENTGET (ENTLAST))))) "HATCH") (PROGN (COND ((WCMATCH (STRCASE pat) "AR-CONC") (SETQ prod "CONC")) ) (SETQ hatch-ent (SUBST (CONS 8 (STRCAT "C-" prod "1PATT")) (ASSOC 8 hatch-ent) hatch-ent ) ) (ENTMOD hatch-ent) ) ) (PRINC) )