Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Toggle Viewport lock
0 views
Skip to first unread message
Pierre Marcotte
Aug 28, 2003, 1:31:08 PM8/28/03
to
Hi y'alls...
I wrote this simple thing (see below) in order to automate the locking of
all viewports in a drawing. I now need to be able to toggle them on and off
with the same button. Is there a lisp way to check if a viewport is locked
or not ? I looked in the DXF reference but found nothing suitable.
I wrote this simple thing (see below) in order to automate the locking of
all viewports in a drawing. I now need to be able to toggle them on and off
with the same button. Is there a lisp way to check if a viewport is locked
or not ? I looked in the DXF reference but found nothing suitable.
Thanx a bunch
Pierre
(DEFUN c:mvlock (/ mvss)
(setvar "cmdecho" 0)
;; Gets all VIEWPORT entities
(SETQ mvss (SSGET "X" '((0 . "VIEWPORT"))))
;; Locks them
(COMMAND "_.vports" "L" "ON" mvss "")
(PRINC)
) ;_ end DEFUN
0 new messages