Topic: Options - Search Paths

[vinnypoon]

This is really useful. Do you know the codes to change the qnew path?

I have modified a lisp file that loads support paths to suite my needs.  I also added the call to a script file at the end of the lisp that I already made.

Original lisp file named "SupportPaths.lsp" can be downloaded HERE

My lisp file named "LoadSupportPaths.lsp" can be downloaded HERE
(Mine code below)

Code: [Select]

;;; Copyright (C) 1997-2003 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com / http://jtbworld.vze.com
;;; E-mail: info@jtbworld.com / jtbworld@hotmail.com
;;;
;;; Save and loads support paths to a text file
;;;
;;; Change the path as wished
;;;
;;;MODIFIED 01.05.05 BY:
;;;Dominic Cesare for Russ+Carlson Architecture
;;;Dommy2Hotty@aol.com

(defun C:loadSupportPaths (/ files f)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
  (setq f (open "Z:\\Standards\\StandardPaths.txt" "r"))
  (setq paths (read-line f))
  (close f)
  (setq docsupport (strcat "C:\\Documents and Settings\\" (getvar "loginname") "\\Application Data\\Autodesk\\ADT 2005\\enu\\Support"))
  (setq express "C:\\Program Files\\Autodesk Architectural Desktop 2005\\Express")
  (setq progsupport "C:\\Program Files\\Autodesk Architectural Desktop 2005\\Support")
  (setq paths (strcat paths ";" docsupport ";" express ";" progsupport))
  (vla-put-supportpath files paths)
  (command "script" "Z:\\Scripts\\DrawingUtilities\\SupportPaths.scr")
  (princ)
)


Script File can be downloaded HERE

Code: [Select]

(setenv "ACADDRV" "Z:\\Drv")
(setenv "PrinterConfigDir" "Z:\\Plotters")
(setenv "PrinterStyleSheetDir" "Z:\\Plot Styles")
(setenv "SaveFilePath" "C:\\AutoCAD_Custom\\AutoSaves")
(setenv "TemplatePath" "Z:\\Template")
(setenv "LogFilePath" "C:\\AutoCAD_Custom\\Logs")
(setenv "TempDirectory" "C:\\AutoCAD_Custom\\Temp")
(setvar "XLOADPATH" "C:\\AutoCAD_Custom\\Temp")
(setenv "AVEMAPS" "Z:\\Textures")
(setvar "fontalt" "architxt.shx")



[hudster]

while the save support paths function is very very useful.

is there a way to alter this lisp routine so that it adds support paths rather than replaces the ones that are there?

[ronjonp]

Try this one:

Code: [Select]

(defun C:addpaths (/ files expaths newpath)
  (vl-load-com)
  (setq files (vla-get-files (vla-get-preferences (vlax-get-acad-object)))
expaths (vla-get-supportpath files)
  )

  (setq newpath (strcat
 expaths
 ";"
 "C:\\ADD YOUR PATH\\HERE"
 ";"
 "C:\\ADD YOUR PATH\\HERE"
 ";"
 "C:\\ADD YOUR PATH\\HERE"
 ";"
 "C:\\ADD YOUR PATH\\HERE"
      )
    )
  (vla-put-supportpath files newpath)
(princ)
)

Ron

[hyposmurf]

Heres another question for you.I realise that each foler you want to add to your search path has to be referenced in a different support path,but what is the maximum number of paths that you should refence with encountering problems?Also does the length of the support file path effect the performance ?I have a number of folders referenced for my lisps,fonts,drawings,custom bitmaps etc.

[MikePerry]

Hi

Check out the following Technical Document on the Autodesk web site under the Knowledge Base section -

ID: TS48958 - Support file problems when combined support path for Windows® and AutoCAD® software is too long

Have a good one, Mike