Topic: Support paths

[V-Man]

How does someone go about reading the Autocad support paths and removing certain paths?

Code: [Select]


(setq paths (vla-get-supportpath files))


[Keith™]

You can set the acad variable acadprefix by simply resetting the environment variable ACAD ... by such means as (setenv "ACAD" yourpath)

Mind you that this may clear your default path settings in your options so be very careful.

[V-Man]

Is there any other way thru Vlisp? I have this code (Thanks Mark!)

This code gets the support paths. I want to be able to ADD/REMOVE as necessary thru lisp.

The problem is that we have tons of blocks from our library in many many different directories. I do not want to (Map) all of those directories in my support path. But thru some of my internal lisps, I want to be able to map certain drives/directories and when the lisp is complete it takes them back out of the support paths.

Code: [Select]


  (defun mst-GetSupportPath (/ path) ;; reads the Support File Search Path returns a string containing the entire path
    (setq path
          (vlax-get-property
            (vlax-get-property
              (vlax-get-property
                (vlax-get-acad-object)
                'Preferences)
              'Files)
            'SupportPath)
          ); setq
    ); defun


[hendie]

if it's purely for Block management, have you considered a block management app ? then you wouldn't have to bother about adding and removing paths ~ I'd seriously recommend taking a look at Blockwerx ~try the free demo  ~ see this post[/u]

[Mark]

Code: [Select]


(defun mst-GetSupportPath (/ path) ;; reads the Support File Search Path returns a string containing the entire path
    (setq path
          (vlax-get-property
            (vlax-get-property
              (vlax-get-property
                (vlax-get-acad-object)
                'Preferences)
              'Files)
            'SupportPath)
          ); setq
    ); defun

(setq old-path (mst-GetSupportPath)
 add-to-path ";c:\\Windows"
 ); dont' forget the ';' (semicolon)

(vlax-put-property
  (vlax-get-property
(vlax-get-property
 (vlax-get-acad-object)
 'Preferences
 )
'Files
)
  'SupportPath
  (strcat old-path add-to-path)
  )


[Keith™]

You could simply do this:

Code: [Select]


(defun addpath (newpath)
 (setq @path@ (getvar "acadprefix"))
 (setenv "path" (strcat @path@ newpath))
)

(defun restorepath (path)
 (setenv "path" path)
)


This actually changes the acadprefix system variable and as such the registry values. Anytime you modify the search path it is written to the registry.