В GUI вытащили меню блокировать разблокировать ВЭ
это хорошо, но в ком строку забыли добавить подсказку по доступным опциям команд это плохо(
Исправляю
Доступные команды:
LockUnlockAllDocumentViewPorts
LockUnlockAllSpaceViewPorts
LockUnlockSelectedViewPorts
опции:
lock
unlock
иногда удобнее не думать в каком состоянии ВЭ, надо заблокировать все ВЭ в пространстве
(command "LockUnlockAllSpaceViewPorts" "LOCK")
или разблокировать
(command "LockUnlockAllSpaceViewPorts" "UNLOCK")
или обернуть в команду, что б мышой в кнопки не целится и на вопросы GUI не отвечать
; -----------------------------
(defun c:вэб ()
;ВЭ блокируем (листа)
(command "LockUnlockAllSpaceViewPorts" "LOCK")
)
; -----------------------------
(defun c:вэр ()
;ВЭ разблокируем (листа)
(command "LockUnlockAllSpaceViewPorts" "UNLOCK")
)
; -----------------------------
(defun c:вэбд ()
;ВЭ блокируем (документа)
(command "LockUnlockAllDocumentViewPorts" "LOCK")
)
; -----------------------------
аналогично для выбранных ВЭ и всего документа, по необходимости
PS ну и довесок
(defun C:вэв ()
;ВЭ вкл все в документе
(vl-cmdf "drz_vp_on")
(princ)
)
; -----------------------------
(defun C:вэо ()
;ВЭ откл все в документе
(vl-cmdf "drz_vp_off")
(princ)
)
drz_vp_on, drz_vp_off лисп емнип от VOV, включен в пакет drzTools