Отключение всех видовых экранов в файле

kp+ · 24.01.2019, 19:57

Приходится работать с чертежами стороннего разработчика, в которых аффтар (иначе не сказать) сделал в одном листе множество узлов (полтора десятка и более) видовыми экранами довольно тяжелой модели (2D, генплан).
Соответственно, при переключении на лист происходит многократная регенерация модели, Акад (2010, х86) долго думает, а чаще жалуется на нехватку памяти, просит отменить операцию и вообще вешается. Немного спасает autoregenmode 0, но не всегда.

Решил поискать лисп для автоматического отключения всех ВЭ, нашел такое: https://forums.autodesk.com/t5/visua...g/td-p/6390402

Код:

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

 (vl-load-com)
(defun C:viewvis (/ vlist yesno targetvp i)
   (setq i 0)
   (initget "ON OFF")
   (setq yesno (cond ((getkword "\nTurn all viewports on or off? [ON/OFF] <ON>: ")) ("ON")))
   (while (and (/= i (length (layoutlist))) (/= (getvar "dwgname") drawingrefresh))
      (setvar "ctab" (nth i (layoutlist)))
      (setq i (1+ i))
   )
   (setq drawingrefresh (getvar "dwgname"))
   (setq vlist (ssget "x" (list '(0 . "viewport") '(-4 . "/=") '(69 . 1))))
   (while (/= 0 (sslength vlist))
      (setq targetvp (vlax-ename->vla-object (ssname vlist 0)))
      (if (= yesno "ON")
         (vla-display targetvp :vlax-true)
         (vla-display targetvp :vlax-false)
      )
      (ssdel (ssname vlist 0) vlist)
   )
)

Этот лисп нормально работает, но только из того листа, на котором надо погасить все ВЭ, что в моем клиническом случае не подходит

Попробовал пойти своим путем:

Код:

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

 (defun c:kpvpoff (/ ent)
  (setq ent (entnext))
  (while ent
    (if (= (vla-get-ObjectName (vlax-ename->vla-object ent)) "AcDbViewport")
      (if (= (vla-get-ViewportOn (vlax-ename->vla-object ent)) :vlax-true)
	(vla-display  (vlax-ename->vla-object ent) :vlax-false)
      )	
	
    )
    (setq ent (entnext ent))
  )
)

Запускаю из модели (напоминаю, перейти на лист нет возможности), на строке, выделенной красным, выдает ошибку:

Код:

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

Команда: KPVPOFF
; ошибка: Ошибка Automation. Неприменимо
; сброс после ошибки

Инспектор переменных показывает, что переменная в этот момент ent ссылается на включенный видовой экран, со всеми нужными свойствами. И почему метод vla-display применим к ВЭ из пространства "своего" листа, но не из пространства модели - непонятно.

Попробовал без VLA, с dxf-кодами (группа 68 отвечает за включенное состояние ВЭ, если 0, то выкл.)

Код:

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

 (defun c:kpvpoff (/ ent vs_dxf)
  (setq ent (entnext))
  (while ent
    (if (= (vla-get-ObjectName (vlax-ename->vla-object ent)) "AcDbViewport")
      (if (= (vla-get-ViewportOn (vlax-ename->vla-object ent)) :vlax-true)
	(progn
		(setq vs_dxf (entget ent))
	  	(setq vs_dxf (subst (cons 68 0) (assoc 68 vs_dxf) vs_dxf))
	        (entmod vs_dxf)
	        (entupd ent)
        )
      )	
	
    )
    (setq ent (entnext ent))
  )
)

Ошибок нет, но эффекта тоже никакого - ВЭ остаются включены.

Приложить рабочий чертеж не имею возможности, но лисп ведет себя одинаково на любых чертежах, даже на тестовом, где нет ничего, кроме одного ВЭ на одном листе.

Прошу гуру программирования подсказать, что надо добавить в первый или второй лисп, чтобы выключать ВЭ, не переходя на их лист. А если все уже написано - поделитесь ссылкой, пожалуйста.

PS Т.к. чертежи не мои, очевидный вариант создания ВЭ заново в более вменяемой конфигурации или вынесения узлов в пространство листа / в отдельный файл / фтопку рассматриваю в последнюю очередь.
Заменить комп, перейти на версии Винды и Акада х64, добавить памяти - прошу не предлагать

Кулик Алексей aka kpblc · 24.01.2019, 21:00

Тестируй. Я особо не проверял:

Код:

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

 (vl-load-com)

(defun c:vp-off (/ adoc err)
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (vlax-for lay (vla-get-layouts adoc)
    (if (not (equal lay (vla-get-modelspace adoc)))
      (progn
        (vlax-for ent (vla-get-block lay)
          (if (= (vla-get-objectname ent) "AcDbViewport")
            (if (vl-catch-all-error-p
                  (setq err (vl-catch-all-apply (function (lambda () (vla-put-viewporton ent :vlax-false) (vla-update ent)))))
                  ) ;_ end of vl-catch-all-error-p
              (princ (strcat "\nLayout "
                             (vla-get-name lay)
                             ", VP with center on '"
                             (vl-princ-to-string (vlax-safearray->list (vlax-variant-value (vla-get-center ent))))
                             " not turned off"
                             ) ;_ end of strcat
                     ) ;_ end of princ
              ) ;_ end of if
            ) ;_ end of if
          ) ;_ end of vlax-for
        ) ;_ end of progn
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

(princ "\nType \"vp-off\" to start lisp")

maratovich · 24.01.2019, 21:30

Ну и как вариант №2 , если лисп сложен для понимания (картинка) :

koMon · 25.01.2019, 08:45

Цитата:

Сообщение от maratovich

Ну и как вариант №2

maratovich, что это за приблуда?

baksconstructor · 25.01.2019, 09:13

Цитата:

Сообщение от koMon

что это за приблуда?

Да этож Реверс

http://www.kdmsoft.ru/revers.html

kp+ · 25.01.2019, 13:25

Цитата:

Сообщение от Кулик Алексей aka kpblc

Тестируй. Я особо не проверял:

проверил. Ошибок нет ("ловушка" срабатывает), эффекта тоже:

Код:

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

Layout Лист1, VP with center on '(128.5 97.5 0.0) not turned off

Видимо, запрет работы с ВЭ не из "своего" пространства прописан где-то в глубинах глубин ядра Акада и для решения вопроса, нужна "тяжелая артиллерия" - хотя бы DBX, а может даже .NET или даже ARX.

Кулик Алексей aka kpblc · 25.01.2019, 13:32

Я у себя тестировал - у меня срабатывало на всех листах и на всех ВЭ. Можешь выложить файл (содержимое можешь удалить, если оно секретно)?

doctorraz · 25.01.2019, 13:57

Цитата:

Сообщение от Кулик Алексей aka kpblc

Тестируй. Я особо не проверял:

АК2018х64
при запуске из модели свойство включен - нет, по факту вэ включен
запуск из листа крашит АК
-----------------

Цитата:

Сообщение от maratovich

Ну и как вариант №2

аналогичная фигня, без краша, но еще и лист какой то левый создает
-------------
СПДС CS умеет делать выбор по всему документу, т.е. выбрать ВЭ на разных листах, через свойства дает отключить... но по факту ВЭ не отключаются

kp+ · 25.01.2019, 14:05

Содержимое файла, с которым работаю, не то чтобы секретно, просто оно не мое, а одобрит ли автор выкладывание в сеть - не хочу даже спрашивать.
Но я тестировал прогу из #2 даже на пустом файле, который создается из стандартного шаблона acadiso.dwt по команде _qnew. В нем нет ничего кроме двух листов с одним ВЭ на каждом. Запускал прогу из модели. Результат - такой как в #6.

Вот только что попробовал запустить из листа в новом пустом файле (в некоторых из рабочих файлов так бы не получилось, там просто не зайти в лист). Акад молча "вывалился"

Что-то не то с этим свойством Viewporton ... мистика какая-то ...

baksconstructor · 25.01.2019, 14:10

Цитата:

Сообщение от doctorraz

но еще и лист какой то левый создает

Всё верно, чтобы при включении всех ВЭ не ждать регенерацию листа в котором сидите. В листе есть много ВЭ они при включении регенятся и это много времени, а тут один вэ.

Цитата:

Сообщение от kp+

Что-то не то с этим свойством Viewporton ... мистика какая-то

А что говорит из #3 ?

VVA · 25.01.2019, 14:17

Мой вариант

Код:

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

(defun C:vp-off  (/ lay obj id1)
  (vl-load-com)
(setvar "LAYOUTREGENCTL" 0) ;;; Кэширование ВЭ отключено
  (vlax-for lay (vla-get-layouts
                  (vla-get-activedocument (vlax-get-acad-object))
                ) ;_ end of vla-get-layouts
    (setq id1 nil);_ ignore the first vp Пропускаем первый ВЭ
    (if (eq :vlax-false (vla-get-modeltype lay))
      (progn
        (princ (strcat "\n*** Лист - " (vla-get-name lay) "  ***"))
        (vlax-for obj (vla-get-block lay)         ; for each obj in layout
          (if (and (= (vla-get-objectname obj) "AcDbViewport")
                   (vlax-write-enabled-p obj)
                   id1 ;_Пропускаем первый ВЭ
              ) ;_ end of and
            (progn
              (vla-put-viewporton obj :vlax-false)
            ) ;_ end of progn
          ) ;_ end of if
          (setq id1 t) ;_Пропускаем первый ВЭ
        ) ;_ end of vlax-for
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of vlax-for
  (princ)
)

PS: Первый видовой экран в листе надо пропускать

doctorraz · 25.01.2019, 14:27

Цитата:

Сообщение от baksconstructor

А что говорит из #3 ?

свойство выкл, но по факту ВЭ вкл (((
----------

Цитата:

Сообщение от VVA

Мой вариант

те же яйца, только в профиль и без краша..
если запускать с листа, то на этом листе ВЭ гасит, на остальных выкл, но как на картинке выше.
---------
ЗЫ у мну спортивный интерес....

----- добавлено через 51 сек. -----
а вот если файл после выключения ВЭ сохранить закрыть открыть... все нормуль...
реген не помогает... чет там не обновляет походу

baksconstructor · 25.01.2019, 14:31

Цитата:

Сообщение от doctorraz

свойство выкл, но по факту ВЭ вкл (((

По факту - всё выключено.
У меня всё работает нормально. Акад 2015.
Вы на чём экспериментируете ? какой КАД ? файл давайте.

doctorraz · 25.01.2019, 14:36

Цитата:

Сообщение от baksconstructor

Вы на чём экспериментируете ? какой КАД ? файл давайте.

Цитата:

Сообщение от doctorraz

АК2018х64

из ейного шаблона пустой файл... ВЭ сам наделаешь...
Выше писал, даж СПДС CS выбрать на всех листах ВЭ дает, и через свойства выключить, только вот по факту ВЭ не выключаются.
-------
ХЕХ а если выбрать выключенные ВЭ на разных листах, то включить их получается...
Дома на АК2016 еще проверю....

baksconstructor · 25.01.2019, 14:57

Цитата:

Сообщение от doctorraz

из ейного шаблона пустой файл... ВЭ сам наделаешь...

Ну так правильно всё.
Offtop: Вы не любите кошек ? Вы просто не умеете их готовить

1. Если открыть новый файл и ни разу не зайти в лист то он не инициализорован и нет там ничего, даже ВЭ нет, акад не воспринимает лист к обработке.
2. Лист должен быть хотя бы раз открыт.
3. Видео на работе нет, поэтому принтскрины для 2018.

doctorraz · 25.01.2019, 14:58

Цитата:

Сообщение от baksconstructor

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

как думаешь я туда ВЭ добавил??

baksconstructor · 25.01.2019, 15:01

Цитата:

Сообщение от doctorraz

как думаешь я туда ВЭ добавил??

Может ещё кто отпишется, а ?

koMon · 25.01.2019, 15:11

Цитата:

Сообщение от kp+

проверил. Ошибок нет ("ловушка" срабатывает), эффекта тоже:

попробуй после лиспа сохранить файл, не переходя в бумагу и снова его открыть после сохранения.

----- добавлено через ~4 мин. -----

Цитата:

Сообщение от baksconstructor

Да этож Реверс

понято

kp+ · 25.01.2019, 15:30

Цитата:

Сообщение от koMon

попробуй после лиспа сохранить файл, не переходя в бумагу и снова его открыть после сохранения.

работает...чокнуться можно. Интересно, какие ритуалы проделывает команда сохранения, что оно так получается? Команда REGENALL, например, точно не помогала.
Всем спасибо!

doctorraz · 25.01.2019, 16:07

короч докладываю
лисп от VVA на АК2016х64 работает четко
на АК2018х64 хоть у ВЭ и становится свойство вкл в нет, но сами ВЭ не выключаются, сохранение чертежа не помогает. Помогает закрыть открыть файл.
думаю с РЕВЕРСОМ будет аналогично, потом проверю.
т.е. это АК2018 теперь так работает (((

koMon · 25.01.2019, 16:53

Цитата:

Сообщение от kp+

какие ритуалы проделывает команда сохранения

сохранение закрепляет статус в VP. Повторное открытие восстанивливает status quo, который по ходу нельзя обновить не находясь в нужном лейауте.

maratovich · 25.01.2019, 17:08

Цитата:

Сообщение от doctorraz

т.е. это АК2018 теперь так работает

На работе 2018 без проблем.
Дома 2018 eng - глюки.
Походу от сборки зависит.

VVA · 25.01.2019, 17:21

2018 нет.
Автокад 2019.1.2 x64 работает без проблем

doctorraz · 25.01.2019, 18:28

Цитата:

Сообщение от maratovich

На работе 2018 без проблем.
Дома 2018 eng - глюки.

тут возможно от видимости ленты и положения луны в сатурне
с 2018 похоже косяк, но других установленных у мну нет, а иные ставить лениво..
вроде разобрались.. было весело

Кулик Алексей aka kpblc · 25.01.2019, 18:34

Попытка решения на C#: http://adn-cis.org/forum/index.php?t...36660#msg36660

doctorraz · 25.01.2019, 18:53

Цитата:

Сообщение от Кулик Алексей aka kpblc

Попытка решения на C#:

чтото мне подсказывает, что коль в Ак 2016 и 2019 вышеприведенные лиспы работают, а в АК 2018 нет.. проблема не в коде..
то что видовых экранов больше на количество листов уже поняли
вангую этот код на ак2018 ру даст тот же результат

----- добавлено через ~2 мин. -----
в принципе и на vb выбрать селсетом, а потом проходом по коллекции (исключая вэ листа) должно получиться, но не в ак2018((

Сергей812 · 25.01.2019, 19:18

Цитата:

Сообщение от Кулик Алексей aka kpblc

Попытка решения на C#: http://adn-cis.org/forum/index.php?t...36660#msg36660

если итоговый код запустить на листе, то что будет при попытке выключить первый viewport c настройками листа?

Кулик Алексей aka kpblc · 25.01.2019, 19:31

Ну, свой код я как раз на 2018 и рисовал...

Цитата:

Сообщение от Сергей812

если итоговый код запустить на листе

А я откуда знаю? У меня в C# познаний хватает только понять, что это именно C#, а не С++

Сергей812 · 25.01.2019, 19:37

Цитата:

Сообщение от Кулик Алексей aka kpblc

А я откуда знаю? У меня в C# познаний хватает только понять, что это именно C#, а не С++

Ну я там просто не зареган, а автор той ветки сюда смотрит явно

doctorraz · 25.01.2019, 19:44

Цитата:

Сообщение от Сергей812

если итоговый код запустить на листе, то что будет при попытке выключить первый viewport c настройками листа?

каду это не нравится.. падает

Сергей812 · 25.01.2019, 20:08

Цитата:

Сообщение от doctorraz

каду это не нравится.. падает

угу.. акад нервно реагирует на попытки модификации ВЭ самого листа.

Offtop: Поэтому возможные варианты (по простоте реализации):

1. Добавить флаг

Код:

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

[Rtm.CommandMethod("TurnedOffAllViewport", Rtm.Modal | Rtm.NoPaperSpace)]

для запрета вызова команды из пространства листа.
2. Сохранить значение TileMode и принудительно переключиться в пространство модели на время обработки.
3. При значении системной переменной TileMode=0 получить ссылку на менеджер листов

Код:

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

LayoutManager lLayoutManager = LayoutManager.Current;

и в цикле проверять - не совпадает ли обрабатываемый лист по имени с lLayoutManager.CurrentLayout. При совпадении корректировать границы цикла для пропуска первого ВЭ.

doctorraz · 25.01.2019, 20:35

выше VVA лисп дал, там все чотко..

Boxa · 25.01.2019, 20:45

Сергей812, простите, но Вы ерунду написали. Приведенному по ссылке коду пофигу откуда его запускают, все ВЭ в любом случае будут выключены.
Даже если в момент запуска кода был выполнен вход в ВЭ.
Тестировал Акад 2017х64 Win7
update:
ХМ... там пары строчек не хватает... и из-за этих строчек код на 2016 и ниже нормально работать не будет... в любом случае коду пофигу откуда его стартуют

Сергей812 · 25.01.2019, 21:09

Цитата:

Сообщение от Boxa

Сергей812, простите, но Вы ерунду написали. Приведенному по ссылке коду пофигу откуда его запускают, все ВЭ в любом случае будут выключены.
Даже если в момент запуска кода был выполнен вход в ВЭ.
Тестировал Акад 2017х64 Win7

Акад 2018х64 Win7
При попытке запуске вашего кода как из пространства модели, так из пространства листа - на строчке "vp.On = false;" вылетает исключение "eNotInPaperspace". А в других версиях акада и лисп работает, судя по ветке.

Сергей812 · 26.01.2019, 00:52

Цитата:

Сообщение от Boxa

Сергей812, простите, но Вы ерунду написали.

Действительно, немного куда то не туда занесло - приношу свои извинения) Самое парадоксальное, что ваш код заработал и на 2018 с какой то попытки - но не совсем корректно: ВЭ отключает - а содержимое продолжает стабильно показывать на всех вкладках листов, что были неактивны. И регенерация не помогает. Мой вариант кода вроде стабильнее работает:

Код:

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

// Autocad
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;


/// <summary>
/// Включение / выключение показа содержимого видовых экранов
/// </summary>
namespace SetVisibleContentVPorts
{
    public class CommandsClass
    {
        /// <summary>
        /// Вспомогательная функция установки статуса видимости содержимого ВЭ
        /// </summary>
        /// <param name="aOnState">Статус видимости содержимого ВЭ</param>
        private void SetVPState(bool aOnState)
        {
            // Получаем текущий документ и его БД
            Document lAcadDoc = Application.DocumentManager.MdiActiveDocument;
            Database lAcadDb = lAcadDoc.Database;
            // Сохраняем предыдущую рабочую БД
            Database lOldWorkDatabase = HostApplicationServices.WorkingDatabase;
            // И задаем БД нашего чертежа
            HostApplicationServices.WorkingDatabase = lAcadDb;
            // Общий обработчик ошибок
            try
            {
                // Открываем транзакцию
                using (Transaction lAcadTr = lAcadDb.TransactionManager.StartTransaction())
                {
                    // Получаем таблицу пространства модели
                    BlockTable lBlockTable = lAcadTr.GetObject(
                        lAcadDb.BlockTableId, OpenMode.ForRead) as BlockTable;
                    BlockTableRecord lModelSpace = lAcadTr.GetObject(
                        lBlockTable[BlockTableRecord.ModelSpace],
                            OpenMode.ForRead) as BlockTableRecord;
                    // Получаем словарь листов (включая модель)
                    DBDictionary lDict = lAcadTr.GetObject(
                        lAcadDb.LayoutDictionaryId, OpenMode.ForRead) as DBDictionary;
                    // В цикле по полученному словарю
                    foreach (DBDictionaryEntry lEntry in lDict)
                    {
                        // Если это не пространство модели
                        if (!lEntry.Value.Equals(lModelSpace.LayoutId))
                        {
                            // Получаем лист
                            Layout lLayout = lAcadTr.GetObject(
                                lEntry.Value, OpenMode.ForRead) as Layout;
                            // Получаем коллекцию видовых экранов
                            ObjectIdCollection lColVPIds = lLayout.GetViewports();
                            // Если у листа нет ни одного ВЭ - требуется инициализировать
                            if (lColVPIds.Count == 0)
                            {
                                lLayout.UpgradeOpen();
                                lLayout.Initialize();
                                lLayout.DowngradeOpen();
                                lColVPIds = lLayout.GetViewports();
                            }
                            // Если на листе есть ВЭ
                            if (lColVPIds.Count > 1)
                            {
                                // Начиная со второго ВЭ
                                for (int i = 1; i < lColVPIds.Count; i++)
                                {
                                    // Получаем ВЭ
                                    Viewport lViewport = lAcadTr.GetObject(
                                        lColVPIds[i], OpenMode.ForWrite) as Viewport;
                                    // Ставим статус видимости содержимого
                                    lViewport.On = aOnState;
                                    // Обновляем ВЭ
                                    lViewport.UpdateDisplay();
                                }
                            }
                        }
                    }
                    // Подтверждаем транзакцию
                    lAcadTr.Commit();
                }
            }
            catch (System.Exception ex)
            {
                // Сообщение об ошибке
                lAcadDoc.Editor.WriteMessage("\nПроизошла ошибка: [{0}]", ex.Message);
            }
            finally
            {
                // Восстанавливаем предыдущую рабочую БД
                HostApplicationServices.WorkingDatabase = lOldWorkDatabase;
            }
        }


        /// <summary>
        /// Команда включения всех видовых экранов листов
        /// </summary>
        [CommandMethod("VP_On", CommandFlags.Modal)]
        public void VP_On()
        {
            SetVPState(true);
        }


        /// <summary>
        /// Команда выключения всех видовых экранов листов
        /// </summary>
        [CommandMethod("VP_Off", CommandFlags.Modal)]
        public void VP_Off()
        {
            SetVPState(false);
        }

    }
}

Ну и прикрепляю сборку под 2018х64 для теста. Не забывайте в свойствах скаченного файла снимать "Файл был получен с другого компьютера..." - чтобы акад при загрузке не ругался.
Команды: VP_On и VP_Off - включение/отключение показа содержимого ВЭ.

----- добавлено через ~1 ч. -----
2018 работает очень своебразно и в .Net:
1. Если после открытие чертежа не переключишь хоть раз между лейаутами для регенерации (TileMode не прокатывает) - стабильно выдает исключение "eNotInPaperspace".
2. Визуально результат выключения ВЭ 100% виден при случае активного листа, как и на лиспе. На неактивных - результат или при повторном вызове команды, или при переоткрывании чертежа. Хотя порою и на неактивных листах отображается выключение ВЭ нормально - связи никакой не заметил.
3. А вот включает ВЭ на всех листах спокойно, как и выше писали - в СПДС.
4. И насколько заметил, при изменении количества ВЭ на листах начинает игнорировать команды моей надстройки на неактивных листах вплоть до переоткрытия чертежа.

Boxa · 26.01.2019, 09:22

Я же написал, что там пары строчек не хватает...
"eNotInPaperspace" лечится просто оберткой в try (на 2017 эта ошибка так же бывает... на разных компах)
Для того, что бы визуально был виден результат для неактивных листов, нужно принудительно обновить графику каждого ВЭ (acdbEntUpd или что то подобное)

В любом случае развивать эту тему в рамках раздела Lisp не очень хорошо, да и обсуждать там по большому счету нечего, т.к. приведенный по ссылке код, не более чем набросок, написанный просто для понимания и отработки основной идеи и понятно, что там много чего не хватает для полноценного приложения.

Сергей812 · 26.01.2019, 10:37

Цитата:

Сообщение от Boxa

"eNotInPaperspace" лечится просто оберткой в try (на 2017 эта ошибка так же бывает... на разных компах)

и толку - пока не переключишь вкладки для регенерации, так и будет:

Цитата:

Команда: VP_ON
Произошла ошибка: [eNotInPaperspace]
Команда: VP_ON
Произошла ошибка: [eNotInPaperspace]
Команда: VP_ON
Произошла ошибка: [eNotInPaperspace]
Команда: VP_ON
Произошла ошибка: [eNotInPaperspace]

т.е. оберткой в обработчик просто неработающий код получите и все.

Цитата:

Сообщение от Boxa

нужно принудительно обновить графику каждого ВЭ (acdbEntUpd или что то подобное)

Ну так UpdateDisplay(); - This function updates the onscreen display to reflect any changes made to the viewport's view parameters (Эта функция обновляет экранный дисплей, отражая любые изменения параметров представления видового экрана.). Но здесь есть подводный камень - is not onscreen, then this function does nothing (не находится на экране, то эта функция ничего не делает). Поэтому только активный лист и обновляет.

Boxa · 26.01.2019, 13:10

Сергей812, есть разница между acdbEntUpd и UpdateDisplay, а по поводу eNotInPaperspace, ничего сказать не могу, на 2017 такую ошибку удалось сделать, но все решилось через try, после обертки ошибка перестала влиять на выполнение и ВЭ выключались.

ЗЫ. ИМХО, обсуждать в ветке LISP код на C#, к тому же размещенный не тут - неуважение к автору топика. Если есть желание продолжить копаться, рекомендую зарегистрироваться на том сайте и продолжить дискуссию там.

Сергей812 · 27.01.2019, 11:33

Offtop:

Цитата:

Сообщение от Boxa

к тому же размещенный не тут. Если есть желание продолжить копаться, рекомендую зарегистрироваться на том сайте и продолжить дискуссию там.

Ну свой под катом выложил, только сам 2018 недоработан и не во всех локальных апдейтах подправлен, похоже) Понимаю, здесь плюсики в карму не идут) И посмотрите в отладчике на строчку кода " if (item.Key != Db.BlockTableRecord.ModelSpace)" - будет ли вообще когданибудь работать это условие..

Boxa · 27.01.2019, 18:02

Offtop:

Цитата:

Сообщение от Сергей812

Понимаю, здесь плюсики в карму не идут

я мальчик взрослый, меня эта фигня с плюсиками, ачивками и прочей фигней мало интересует.

Цитата:

Сообщение от Сергей812

И посмотрите в отладчике на строчку кода " if (item.Key != Db.BlockTableRecord.ModelSpace)" - будет ли вообще когданибудь работать это условие..

Доберусь до компа со студией и посмотрю.

Do$ · 28.01.2019, 16:17

Цитата:

Сообщение от doctorraz

АК2018х64
при запуске из модели свойство включен - нет, по факту вэ включен

Причину этого мы уже выяснили в параллельной теме на другом ресурсе: http://adn-cis.org/forum/index.php?topic=9050.0. Сообщение #28, #30 и #32.
Зависит от переменной LAYOUTREGENCTL. Если установить её значение в 0 (не кэшировать состояния вкладок), то такие "выключенные но по факту включенные" ВЭ не будут появляться.
По умолчанию её значение в последних версиях - 2.

VVA · 28.01.2019, 17:42

Цитата:

Сообщение от Do$

Причину этого мы уже выяснили в параллельной теме на другом ресурсе: http://adn-cis.org/forum/index.php?topic=9050.0. Сообщение #28, #30 и #32.
Зависит от переменной LAYOUTREGENCTL. Если установить её значение в 0 (не кэшировать состояния вкладок), то такие "выключенные но по факту включенные" ВЭ не будут появляться.
По умолчанию её значение в последних версиях - 2.

Обновил #11

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
LISP. Создание листов и видовых экранов на них	Andrey_13	Готовые программы	423	03.04.2024 21:27
Как выключить "Показ блокированного/Display locked" на всех видовых экранах на всех листах сразу?	UnAtom	AutoCAD	2	25.08.2017 16:38
Лисп для блокировки видовых экранов	posetitel	LISP	5	28.04.2017 09:09
AutoCAD 2011. Проблема с заданием масштабов видовых экранов.	Demyan	AutoCAD	1	28.11.2010 10:42
Как слой включить сразу во всех видовых экранах	ilka_t	AutoCAD	4	26.04.2004 11:20