0 Members and 1 Guest are viewing this topic.
(defun ACADset_vars (/ var) ;;======================================================(princ "\nBEGINNING OF SYSTEM VARIABLE SETTING ******\n");;======================================================(setq CADversion (getvar 'acadver) Brics (wcmatch (getvar 'acadver) "*BricsCAD*" )) (COND ( (and (not Brics) (>= (substr (getvar 'acadver) 1 4) "16.2")) (setvar 'fullplotpath 0) ; Corrects the file name in PDFcreator ) ( Brics (PRINT (getvar 'acadver))) (princ "\n <<Ignored AutoCAD 2006 Variable List>>"))(princ); (and Brics (setvar 'SHORTCUTMENU 2));; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(if Brics (progn (setvar 'SHOWFULLPATHINTITLE 0) )) (if (or Brics (>= (substr (getvar 'acadver) 1 4) "16.1"))
(defun C:ARCHSetVars() (cond ((= "AUTOCAD" (strcase (getvar 'product))) (ARCH:LOAD (strcat ARCH#SUPF "ARCH_SetVarsAutoCAD.lsp")) ) ((= "BRICSCAD" (strcase (getvar 'product))) (ARCH:LOAD (strcat ARCH#SUPF "ARCH_SetVarsBricsCAD.lsp")) ) ) (princ))