;; | ----------------------------------------------------------------------------
;; | MI_IsActiveViewPortLocked
;; | ----------------------------------------------------------------------------
;; | Function : Returns 'T' or 'nil' if the active viewport is locked or not
;; | Arguments: (none)
;; | Returns  : T or nil
;; | Updated  : July 25, 2006
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun MI_IsActiveViewPortLocked( / Locked )
(setq Locked (vla-get-displaylocked (vla-get-ActiveViewPort (vla-get-ActiveDocument (vlax-get-acad-object)))))
(if (= Locked :vlax-True)
	(setq Locked T)
	(setq Locked nil)
)
Locked
)