Get First Path Support

[gustavobernardi]

How do I get the first path support via lisp? I want to get it in a String...

TIA

[Ranjit_Singh · Accepted solution]

I am sure there is more than one way to do that

(substr (getenv "ACAD") 1 (vl-string-search ";" (getenv "ACAD")))

[SeeMSixty7 · Accepted solution]

Good Luck

(setq AcadPath (vla-get-SupportPath (vla-get-files (vla-get-preferences (vlax-get-acad-object))))
      FirstAcadPath (substr AcadPath 1 (vl-string-position 59 acadpath))
)

Doh! Or just use @Ranjit_Singh's suggestion.