;; | ----------------------------------------------------------------------------
;; | MI_GetWorkspacesLst 
;; | ----------------------------------------------------------------------------
;; | Function  : Returns the list of workspaces defined in the current AutoCAD
;; |             setup
;; | Arguments : (none)
;; | Return    :
;; | Updated   : April 14, 2009
;; | Comments  :
;; | e-mail    : rakesh.rao@4d-technologies.com 
;; | Web       : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_GetWorkspacesLst ( / lf itm Lst wsLst wsFound )

(setq lf (getvar "LOGFILENAME"))
(setvar "LOGFILEMODE" 0)
(dos_delete lf)
(setvar "LOGFILEMODE" 1)
(command "._Workspace" "?")
(setvar "LOGFILEMODE" 0)
(setq
	wsLst '()
	Lst   (TX_File2Lst lf)
)
(if Lst
(progn
	(setq wsFound nil)
	(foreach itm Lst
		(if wsFound
		(progn
			(setq itm (ST_Strip itm "\""))
			(if (and
					(/= itm "")
					(/= (ST_Strip itm "-") "")
				)
				(setq wsLst (cons itm wsLst))
			)
		)
		(progn
			(if (ST_FindPattern (strcase itm) "WORKSPACE NAME")
				(setq wsFound T)
			)
		))
	)
))
(reverse wsLst)
)