;;;CORP 34x22 (ANSI D Size Cover Sheet) Title Block Xref attachment function. ;;;Attach at 0,0; scale=1:1; angle=0°. ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://www.paracadd.com ;;; All rights reserved. ;;; ;;; Edited: 9-23-2009 ;;; (DEFUN corp_D_cstitle (/); found_corp_sheet found_corp_title) (SETQ OLD_INSUNITS (GETVAR "INSUNITS")) (SETVAR "INSUNITS" 0) (SETQ corp_title_name "CORPDCVRTF") (IF (IF (AND (OR found_corp_title (FINDFILE (STRCAT corp_title_name ".dwg"))) found_corp_sheet) (IF found_corp_title T (SETQ found_corp_title (FINDFILE (STRCAT corp_title_name ".dwg"))) ) ;_ end of IF (SETQ found_corp_title (FINDFILE (STRCAT "..\\" corp_title_name ".dwg"))) ) ;_ end of IF (IF (AND found_corp_title found_corp_sheet) (PROGN (IF (WCMATCH (STRCASE found_corp_title) "\\*.DWG") (SETQ found_corp_title (SUBSTR found_corp_title 2)) ) (IF (EQ (GETVAR "tilemode") 1) (SETVAR "tilemode" 0) ) ;_ end of if (SETVAR "DIMSCALE" 0.0) (SETVAR "LTSCALE" 0.5) (COMMAND "-layer" "m" corp_title_name "") (COMMAND ".zoom" "w" "0,0" "34,22") (COMMAND ".limits" "0,0" "34,22") (COMMAND "-insert" found_corp_title "0,0" 1 1 0) (IF (EQ (CDR (ASSOC 2 (ENTGET (ENTLAST)))) corp_title_name) (COMMAND ".explode" (ENTLAST)) ) (COMMAND nil nil nil) ) ;_ end of progn ) ;_ end of IF ) ;_ end of IF (COND (found_corp_title (PRINC)) (T (ALERT (STRCAT (STRCASE corp_title_name) ".DWG\" not found!\nAutoCAD support file search path should include \"H:\\Util\\\". " ) ;_ end of STRCAT ) ;_ end of ALERT ) ) ;_ end of COND (SETQ corp_title_name nil) (SETVAR "INSUNITS" OLD_INSUNITS) (PRINC) ) ;_ end of defun ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T) ;*** DO NOT add text below the comment! ***|;