Check this out.
http://www.theswamp.org/index.php?topic=7097.0
[code];;; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;; + Viewport Lock/Unlock +
;;; + Created by C. Alan Butler +
;;; + Copyright 2005-2006 +
;;; + by Precision Drafting & Design All Rights Reserved. +
;;; + Contact at ab2draft@TampaBay.rr.com +
;;; + look for updates in TheSwamp.org +
;;; ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; You are hereby granted permission to use, copy and modify this
;;; software without charge, provided you do so exclusively for
;;; your own use or for use by others in your organization in the
;;; performance of their normal duties, and provided further that
;;; the above copyright notice appears in all copies and both that
;;; copyright notice and the limited warranty and restricted rights
;;; notice below appear in all supporting documentation.
;;;
;;; Version 05.12.07
;;; The following are several routines for locking & unlocking viewports
;;; They are dependent on subroutines vplock & vp_sel
;;;
;;; c:vpunlockall unlock all vp & set color to green
;;; c:vplockall lock all vp and set color to red
;;; c:vplock lock one vp & set color to red
;;; c:vpunlock unlock one vp & set color to green
;;; c:vptogle toggle vp lock & color until ENTER
;;; c:vpl choice to user to lock or unlock, one or all
;;; c:vplockctab lock all vp in ctab, set color to red
;;; c:vpunlockctab UNlock all vp in ctab, set color to green
;;;
;;; vplock sub lock or unlock one or all vp and set color
;;; vp_sel sub user pick vp - return the ename of vp or nil [/code]
