Add Support Paths via LISP

[DoubleD]

I know this must have been asked many times before but I need to add 2 or 3 support paths to the support folder search paths but I want to do this via a lisp routine that can be added to my acaddoc.lsp, the added folders need to be listed as the first folders in the search paths..any help.

[Opie]

Have you seen the AutoLISP Forums? There is a recent thread, "Get the current support paths and add new paths" with this simple solution.

[Opie]

You might also check out AUGI's Publications. Some past articles of AUGI HotNews contain some information on Controlling Customization.

• Organize & Standardize Your Customization - November 2004
• Controlling Customization - December 2004
• Controlling Customization, Part III - January 2005
• Controlling Customization, Part IV - February 2005
• Controlling Customization, Part V - March 2005

[wmclamb]

Op
this may be just me but all the url's are not found.

[ccowgill]

Op
this may be just me but all the url's are not found.

This is most likely due to the thread being 6 years old.

[wmclamb]

This is most likely due to the thread being 6 years old.

Thanks, I thought that was the problem

[Mike.Perry]

Hi "david.5774" ( Sorry, I do not know your real name )

Please note I have *moved* this thread from the AutoCAD General forum to this one, as I feel this particular forum is a more appropriate place for such a topic.

Thanks, Mike

Forum Manager

[rcroke]

What am I doing wrong here and how can I have it check to see if the path exists, and if it does, do not add it?

(defun c:addpath ()
(SETQ ORIGPATH (STRCAT (GETENV "ACAD")";"))
(SETQ ONEPATH (STRCAT "C:\\TEST"))
(SETQ MYENV (STRCAT ORIGPATH ONEPATH))
(SETENV "ACAD" MYENV)
(strlen (getenv "ACAD"))

[rkmcswain]

What am I doing wrong here and how can I have it check to see if the path exists, and if it does, do not add it?

See also:
http://forums.augi.com/showthread.ph...43797#poststop

Your (defun) is missing the closing parenthesis.

To check for the existance of C:\TEST you can do this:

(vl-load-com)
(setq *files* (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
(SETQ ORIGPATH (vla-get-SupportPath *files*))
(SETQ ONEPATH (setq w ";C:\\TEST"))
(if (not (vl-string-search w ORIGPATH))
  (progn
    (SETQ MYENV (STRCAT ORIGPATH ONEPATH))
    (if (< (strlen myenv) 1000); <- not sure why you are checking the length
                                         ; I've seen something referring to 800 chars
                                         ; but my normal path is over 900 and I have no problems
      (vla-put-SupportPath *files* myenv)
    )
  )
)

That is not foolproof though, If you have a path such as C:\TEST\DIR\DIR, it would still find it because it's just searching for C:\TEST. I suppose you could test for C:\TEST;, but you can't count on the ";" being there if this is the last path in the list.

Also, note that if you add a path that doesn't exist, it will show up in the OPTIONS dialog, but it will not show up when you query the current path via code.

[rcroke]

Thanks, that works fine.