(DEFUN C:SupportPaths () (VL-LOAD-COM) (SETQ acadObj (VLAX-GET-ACAD-OBJECT)) (SETQ prefObj (VLA-GET-PREFERENCES acadObj)) (SETQ prefFiles (VLA-GET-FILES prefObj)) (SETQ supportPath (VLA-GET-SUPPORTPATH prefFiles)) (IF (WCMATCH (STRCASE supportPath) (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 4)) 17.0) (STRCAT "*" (DOS_SPECIALDIR 38) "AUTODESK\\MENUS\\2007\\CORP*") (STRCAT "*" (DOS_SPECIALDIR 38) "AUTODESK\\MENUS\\CORP*") ) ;_ end of IF ) ;_ end of WCMATCH NIL (SETQ supportPath (STRCAT supportPath (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 4)) 17.0) (STRCAT ";" (DOS_SPECIALDIR 38) "AUTODESK\\MENUS\\2007\\CORP") (STRCAT ";" (DOS_SPECIALDIR 38) "AUTODESK\\MENUS\\CORP") ) ;_ end of IF ) ;_ end of STRCAT ) ;_ end of SETQ ) ;_ end of IF (IF (WCMATCH (STRCASE supportPath) (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 4)) 17.0) (STRCAT "*" (DOS_SPECIALDIR 38) "AUTODESK\\MENUS\\2007\\GPDGN*") (STRCAT "*" (DOS_SPECIALDIR 38) "AUTODESK\\MENUS\\GPDGN*") ) ;_ end of IF ) ;_ end of WCMATCH NIL (SETQ supportPath (STRCAT supportPath (IF (>= (ATOF (SUBSTR (GETVAR "ACADVER") 1 4)) 17.0) (STRCAT ";" (DOS_SPECIALDIR 38) "AUTODESK\\MENUS\\2007\\GPDGN") (STRCAT ";" (DOS_SPECIALDIR 38) "AUTODESK\\MENUS\\GPDGN") ) ;_ end of IF ) ;_ end of STRCAT ) ;_ end of SETQ ) ;_ end of IF (IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL*") NIL (SETQ supportPath (STRCAT supportPath ";L:\\Util")) ) ;_ end of IF (IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL\\LSP*") NIL (SETQ supportPath (STRCAT supportPath ";L:\\Util\\Lsp")) ) ;_ end of IF (IF (WCMATCH (STRCASE (GETVAR "loginname")) "COOPER") (PROGN (IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL\\PARA\\SOURCE*") NIL (SETQ supportPath (STRCAT supportPath ";L:\\Util\\Para\\Source") ) ;_ end of SETQ ) ;_ end of IF (IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL\\PARA\\SLIDE*") NIL (SETQ supportPath (STRCAT supportPath ";L:\\Util\\Para\\Slide")) ) ;_ end of IF ) ;_ end of PROGN (PROGN (IF (WCMATCH (STRCASE supportPath) "*L:\\UTIL\\PARAPIPE\\2K8*") NIL (SETQ supportPath (STRCAT supportPath ";L:\\Util\\ParaPIPE\\2K8") ) ;_ end of SETQ ) ;_ end of IF ) ;_ end of PROGN ) ;_ end of IF (VLA-PUT-SUPPORTPATH prefFiles supportPath) (PRINC) ) ;_ end of defun ;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 0 T T nil T) ;*** DO NOT add text below the comment! ***|;