
(setq AcadPath (getenv "ACAD"))

(setq AcadPath
	 (strcat
	   "C:\\LUIS+;"
	   "C:\\LUIS+\\BaseLTV001;"
	   "C:\\LUIS+\\BaseLTV002;"
	   "C:\\LUIS+\\BaseLTV003;"
	   "C:\\LUIS+\\BaseLTV004;"
	   "C:\\LUIS+\\BaseLTV005;"
           "C:\\LUIS+\\BaseLTV006;"
           "C:\\LUIS+\\BaseLTV007;" 
           "C:\\LUIS+\\BaseLTV008;"
           "C:\\LUIS+\\BaseLTV009;"
           "C:\\LUIS+\\BaseLTV010;"
           "C:\\LUIS+\\BaseLTV011;"
           "C:\\LUIS+\\BaseLTV012;"
           "C:\\LUIS+\\BaseLTV013;"
           "C:\\LUIS+\\BaseLTV014;"
           "C:\\LUIS+\\BaseLTV015;"
           "C:\\LUIS+\\BaseLTV016;"
	   AcadPath
	  ) ;_ end of strcat
) ;_ end of setq

(setenv "ACAD" AcadPath)