topic Re: Set Support Path Position with lisp? in Visual LISP, AutoLISP and General Customization Forum

Set Support Path Position with lisp?

DC-MWA — Thu, 28 Nov 2019 04:11:49 GMT

Hi all,

Happy thanksgiving!!

I have a cool lisp that sets up support paths. I need to set one of the paths to be at the top of the list. The program does not remove or mess with the existing support paths in any way.

See the image from what I'm trying to achieve. I need the "C:\mwa-support\bin\resources" path 1st in line as shown.

Also, lisp is attached.

I'm hoping someone has done this before and can point me in the right direction.

thanks

Re: Set Support Path Position with lisp?

Ajilal.Vijayan — Thu, 28 Nov 2019 05:19:09 GMT

One way is to reset the path values.

(defun c:DO_AddSupportPath (/ path files pathlist)
(vl-load-com)

(setq path (strcat
";C:\\mwa-support\\bin\\apps"
";C:\\mwa-support\\bin\\lsp"
";C:\\mwa-support\\bin\\resources"
";C:\\mwa-support\\bin\\lsp\\mw electrical"
";C:\\mwa-support\\bin\\lsp\\mwa-ada"
";C:\\mwa-support\\bin\\lsp\\mwa-site"
";C:\\mwa-support\\bin\\resources\\pats"
";C:\\MWA-Support\\mwa-details\\00 Gen\\title sheets\\Agencies"
";C:\\mwa-support\\mwa-details\\10 site"
";C:\\mwa-support\\mwa-details\\20 floor plan"
";C:\\mwa-support\\mwa-details\\30 enlarged fp"
";C:\\mwa-support\\mwa-details\\40 roof"
";C:\\mwa-support\\mwa-details\\50 exterior"
";C:\\mwa-support\\mwa-details\\60 clgs-sections"
";C:\\mwa-support\\mwa-details\\70 door_window"
";C:\\mwa-support\\mwa-details\\80 interiors"
";C:\\Users\\Owner\\desktop")
)
(setq files (vla-get-files
(vla-get-preferences
(vlax-get-acad-object)
)
)
)
;get the current path list
(setq clist (vlax-get-property files 'SupportPath))
(setq clist (strcat "C:\\mwa-support\\bin\\resources;" clist path))

(vlax-put-property files 'SupportPath clist)
(princ)
);end DO_AddSupportPath

Re: Set Support Path Position with lisp?

DC-MWA — Thu, 28 Nov 2019 06:16:09 GMT

Perfect!

Thank you very much!!

Re: Set Support Path Position with lisp?

dlanorh — Thu, 28 Nov 2019 06:17:59 GMT

(defun c:DO_AddSupportPath (/ path files pathlist)
(vl-load-com)

(setq path (strcat
";C:\\mwa-support\\bin\\apps"
";C:\\mwa-support\\bin\\lsp"
";C:\\mwa-support\\bin\\resources"
";C:\\mwa-support\\bin\\lsp\\mw electrical"
";C:\\mwa-support\\bin\\lsp\\mwa-ada"
";C:\\mwa-support\\bin\\lsp\\mwa-site"
";C:\\mwa-support\\bin\\resources\\pats"
";C:\\MWA-Support\\mwa-details\\00 Gen\\title sheets\\Agencies"
";C:\\mwa-support\\mwa-details\\10 site"
";C:\\mwa-support\\mwa-details\\20 floor plan"
";C:\\mwa-support\\mwa-details\\30 enlarged fp"
";C:\\mwa-support\\mwa-details\\40 roof"
";C:\\mwa-support\\mwa-details\\50 exterior"
";C:\\mwa-support\\mwa-details\\60 clgs-sections"
";C:\\mwa-support\\mwa-details\\70 door_window"
";C:\\mwa-support\\mwa-details\\80 interiors"
";C:\\Users\\Owner\\desktop")
)
(setq files (vla-get-files
(vla-get-preferences
(vlax-get-acad-object)
)
)
)
(setq pathlist (vla-get-supportpath files))
(if (not (vl-string-search path pathlist))
(vla-put-supportpath files (strcat "C:\\mwa-support\\bin\\resources;" pathlist path))
)
(princ)
);end DO_AddSupportPath