Lisp routine to Lock / Unlock viewports

[GreyHippo]

I am trying to write a routine that will turn a viewport on or off. I know that the information is stored in xdata under the dotted pair 90 but there are 18 different options for that variable. How would I filter out the other values?

Thanks

[Jeff_M]

A few things......the association group 90 is not a part of the extended data, but is a part of the object's data. Next, those values are bit coded values and to turn off a VP requires the bitcode value of 131072 to be set.

However, you cannot use (entmod) on a paperspace viewport.....

But, using ActiveX you CAN manipulate the Off/On value:
(setq vpObj (vlax-ename->vla-object vpEnt))
(vla-display vpObj :vlax-true);;;turns it on
(vla-display vpObj :vlax-false);;;turns it off

HTH,
Jeff

[GreyHippo]

I realized i made a mistake in my first question and post. I want to know how to LOCK and UNLOCK a viewport not turn on and off. Sorry my mistake.

[GreyHippo]

I found something on theswamp.org to help

http://www.theswamp.org/index.php?topic=7097.0

[CAB2k]

Look at (vla-put-DisplayLocked vpObj [:vlax-true / :vlax-false] )

PS I see you found more info.

[Mike.Perry]

I realized i made a mistake in my first question and post. I want to know how to LOCK and UNLOCK a viewport not turn on and off. Sorry my mistake.

Hi

You may also find the following thread, helpful...

Locking Viewports

Have a good one, Mike

[tedg]

I don't know if this helps but..
Here's a quick routine I wrote a while back to quickly lock (and unlock) several viewports at once.

;;lock selected vports
(defun c:lvp (/ ss)
	(setq ss (ssget))
	(command "mview" "l" "on" ss "")
	(princ)
)
;;unlock selected vports
(defun c:ulvp (/ ss)
	(setq ss (ssget))
	(command "mview" "l" "off" ss "")
	(princ)
)
(princ)
(princ "LVP loaded.")
(princ "\nType LVP, select the viewports you want to lock and then hit ENTER.")
(princ "\nType ULVP, select the viewports you want to unlock and then hit ENTER.")

Ted

[Michael Viscetto]

Ted,
Thanks for the post of the lisp routine.
That is exactly what I was looking for.

Have a great day.

Michael

[BlackBox]

I don't know if this helps but..
Here's a quick routine I wrote a while back to quickly lock (and unlock) several viewports at once.

;;lock selected vports
(defun c:lvp (/ ss)
    (setq ss (ssget))
    (command "mview" "l" "on" ss "")
    (princ)
)
;;unlock selected vports
(defun c:ulvp (/ ss)
    (setq ss (ssget))
    (command "mview" "l" "off" ss "")
    (princ)
)
(princ)
(princ "LVP loaded.")
(princ "\nType LVP, select the viewports you want to lock and then hit ENTER.")
(princ "\nType ULVP, select the viewports you want to unlock and then hit ENTER.")

... ss = nil?

Besides, there's no need to make a(n unfiltered) selection set at all:

(defun c:LVP ()
  (command "._mview" "lock" "on"))
 
(defun c:ULVP ()
  (command "._mview" "lock" "off"))

[svajk394200]

... ss = nil?

Besides, there's no need to make a(n unfiltered) selection set at all:

(defun c:LVP ()
  (command "._mview" "lock" "on"))
 
(defun c:ULVP ()
  (command "._mview" "lock" "off"))

... TILEMODE = 1?

(defun c:LVP ()
	(if (= (getvar 'TILEMODE) 0) ;if you're in paperspace
		(command "._mview" "_lock" "_on" "_all" "")        ;then do it
		(princ "\n** Command not allowed in Model Tab **") ;else, announce failure
	)
(princ);exit cleanly
)
 
(defun c:ULVP ()
	(if (= (getvar 'TILEMODE) 0) ;if you're in paperspace
		(command "._mview" "_lock" "_off" "_all" "")       ;then do it
		(princ "\n** Command not allowed in Model Tab **") ;else, announce failure
	)
(princ);exit cleanly
)