[betonolom]

Доброго времени, товарищи!
В конторе постоянно идет борьба двух групп людей. Одна группа состоит из людей, которые никогда не блокируют видовые окна в пространстве листа. Вторая - полная противоположенность, они всегда блокируют все видовые окна. Так как эта борьба никогда не заканчивается, то прошу помочь мне найти на просторах интернета или же написать лисп (я полагаю что это не составит особого труда для здешних гуру) для блокировки ВСЕХ видовых окон на данном листе и для разблокировки ВСЕХ видовых окон на данном листе, для дальнейшего запиливания двух кнопочек.
Благодарю за внимание.

[Кулик Алексей aka kpblc]

Примерно так:

Код:

[Выделить все]

 (vl-load-com)

(defun lockvp (lock / adoc blk)
              ;|
*    Функция [раз]блокировки видовых экранов
*    Параметры вызова:
  lock   логический параметр: t - блокировать ВЭ; nil - разблокировать
*    Примеры вызова:
(lockvp t)   ; заблокировать все ВЭ
(lockvp nil) ; разблокировать все ВЭ
*    Функция не обрабатывает ВЭ, расположенные на заблокированных или замороженных слоях
|;
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (foreach item (mapcar (function vlax-ename->vla-object)
                        ((lambda (/ tab item selset)
                           (setq selset (ssget "_X" '((0 . "VIEWPORT"))))
                           (repeat (setq tab  nil
                                         item (sslength selset)
                                         ) ;_ end setq
                             (setq tab (cons (ssname selset (setq item (1- item))) tab))
                             ) ;_ end of repeat
                           ) ;_ end of lambda
                         )
                        ) ;_ end of mapcar
    (vl-catch-all-apply
      (function
        (lambda ()
          (vla-put-displaylocked item
                                 (if lock
                                   :vlax-true
                                   :vlax-false
                                   ) ;_ end of if
                                 ) ;_ end of vla-put-displaylocked
          ) ;_ end of lambda
        ) ;_ end of function
      ) ;_ end of VL-CATCH-ALL-APPLY
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Nike]

http://forums.augi.com/showthread.ph...ewport-Toggle&

[VVA]

Вот еще пару ссылок

[gest]

Сообщение от Кулик Алексей aka kpblc Примерно так: Код: [Выделить все] (vl-load-com) (defun lockvp (lock / adoc blk) ;| * Функция [раз]блокировки видовых экранов * Параметры вызова: lock логический параметр: t - блокировать ВЭ; nil - разблокировать * Примеры вызова: (lockvp t) ; заблокировать все ВЭ (lockvp nil) ; разблокировать все ВЭ * Функция не обрабатывает ВЭ, расположенные на заблокированных или замороженных слоях |; (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object)))) (foreach item (mapcar (function vlax-ename->vla-object) ((lambda (/ tab item selset) (setq selset (ssget "_X" '((0 . "VIEWPORT")))) (repeat (setq tab nil item (sslength selset) ) ;_ end setq (setq tab (cons (ssname selset (setq item (1- item))) tab)) ) ;_ end of repeat ) ;_ end of lambda ) ) ;_ end of mapcar (vl-catch-all-apply (function (lambda () (vla-put-displaylocked item (if lock :vlax-true :vlax-false ) ;_ end of if ) ;_ end of vla-put-displaylocked ) ;_ end of lambda ) ;_ end of function ) ;_ end of VL-CATCH-ALL-APPLY ) ;_ end of foreach (vla-endundomark adoc) (princ) ) ;_ end of defun

Алексей не подскажешь не работает код в 2019 Автокаде

[Кулик Алексей aka kpblc]

А на каком месте спотык? В файле есть ВЭ?
P.S. код для получения аналога лога ошибок:

Код:

[Выделить все]

 (vl-load-com)

(defun lockvp (lock / adoc blk err)
              ;|
*    Функция [раз]блокировки видовых экранов
*    Параметры вызова:
  lock   логический параметр: t - блокировать ВЭ; nil - разблокировать
*    Примеры вызова:
(lockvp t)   ; заблокировать все ВЭ
(lockvp nil) ; разблокировать все ВЭ
*    Функция не обрабатывает ВЭ, расположенные на заблокированных или замороженных слоях
|;
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (foreach item (mapcar (function vlax-ename->vla-object)
                        ((lambda (/ tab item selset)
                           (setq selset (ssget "_X" '((0 . "VIEWPORT"))))
                           (repeat (setq tab  nil
                                         item (sslength selset)
                                         ) ;_ end setq
                             (setq tab (cons (ssname selset (setq item (1- item))) tab))
                             ) ;_ end of repeat
                           ) ;_ end of lambda
                         )
                        ) ;_ end of mapcar
    (if (vl-catch-all-error-p (setq err (vl-catch-all-apply (function (lambda ()
                                                                        (vla-put-displaylocked item
                                                                                               (if lock
                                                                                                 :vlax-true
                                                                                                 :vlax-false
                                                                                                 ) ;_ end of if
                                                                                               ) ;_ end of vla-put-displaylocked
                                                                        ) ;_ end of lambda
                                                                      ) ;_ end of function
                                                            ) ;_ end of vl-catch-all-apply
                                    ) ;_ end of setq
                              ) ;_ end of vl-catch-all-error-p
      (princ (strcat "\nError : " (vl-catch-all-error-message err) " VP_Handle = " (vla-get-handle item)))
      ) ;_ end of if
    ) ;_ end of foreach
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

----- добавлено через 29 сек. -----
И как вызываешь?

[gest]

Вызываю церез палитру

Команда: (lockvp t) ; ошибка: no function definition: nil

[Кулик Алексей aka kpblc]

Ээээ... А код-то загружен?

[gest]

Скопировал код, создал файл lockvp.lsp, загружаю через автозагрузку

[Кулик Алексей aka kpblc]

Кодировка часом не нарушена? А то там могут быть весьма интересные моменты...

[gest]

Алексей, да нет, кодировка нормальная.

----- добавлено через ~27 мин. -----
Попробовал лисп по ссылке LV блокирует, но не разблокирует экран.

----- добавлено через ~1 ч. -----
Почему то при выполнении других кодов, например ^C^C^P(load "bgtools.LSP");BgColor; пишет ошибку
; ошибка: no function definition: VLAX-ERASED-P

^C^C(_kpblc-autostart-purge 1023);
; ошибка: no function definition: VLAX-VLA-OBJECT->ENAME

Даже не знаю куда копать?

[Кулик Алексей aka kpblc]

Код работает - специально проверил несколько раз. Тот факт, что можно поменять масштаб аннотаций, ничего не означает. Можешь руками поставить заблокированность ВЭ, и это не уберет возможность смены масштаба аннотаций.