[sdv79]

Подскажите как реализовать .redrawall через ActivX для модели.
В справке для Document object нашел только Regen Method. Это не устраивает.

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

(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acallviewports)

[sdv79]

Разве (vla-regen (vla-get-act ... не тоже самое что (command "_regen")?

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

Не совсем - смотри последний аргумент.

[sdv79]

Смотрел, только активное окно и все окна. Поэтому и сразу откинул посчитал ресурсоемкое, redrawall работает мгновенно. Что делать?

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

"Подумал" что ресурсоемкое или "доказал"?

[sdv79]

)) Увидел в справке, подумал-откинул. Увидел Ваше сообщение и написал, проверил и удостоверился. Машина зависает.
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)

[skkkk]

А функция (redraw) чем не подходит?

[sdv79]

Работа с ком. строкой не нравится. Нравятся тихие команды, например, предпочту (vla-insertblock вместо (command "_.insert".
Поэтому ищу альтернативу _redraw в ActivX. Кто знает, помогите.

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

Из описания команды _.redrawall:

Refreshes the display of all viewports

Обрати внимание - ВСЕХ видовых экранов.

Сообщение от sdv79 Машина зависает

Файл в студию. И код, который приводит к "зависанию".

[sdv79]

Факт 100%, тормозит (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)

Код:

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

 
(defun c:reg ()
 (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
)
(defun c:red ()
 (command "_.redrawall")
)

[skkkk]

Сообщение от sdv79 Работа с ком. строкой не нравится.

Я имею в виду функцию (redraw) , а не команду _redraw
Из описания функции redraw у Полещука:

Если опущены оба аргумента, то перерисовываются все объекты, видимые в текущем видовом экране.

[sdv79]

skkkk (redraw) спасибо, но не подходит для работы с окнами.
Возможно в другой связке все будет ок. У меня окно, когда нажимаю на кнопку обновить, старые блоки+мвыноска удаляются. При (redraw) команде экран не обновляется.

Заметил, что данные для командной строки тоже не обновляются пока работаешь с окном, как с эти справится?

skkkk Вставленную цитату набирали или есть возможность скопировать с электронной версии
(у меня есть книга-бумага и в элект. версии как картинка. Часто не хватает возможности сразу выделить и применить. Если у вас таковая, поделитесь экземпляром)

Код:

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

 
 ((= Return# 4) ; нажата кнопка ОБНОВИТЬ

 (cond ; избавляемся от предыдущей расстановки светильников и выноски, дублирую в обновить
  ((and
    (=(type selection_set) (function pickset)) 
    (>= (sslength selection_set) 1)
;;;    (or
;;;     (= _button 4)
;;;     (= _button 5) ; расставить СП
;;;    ) ;/ or
    ) ;/ and
    (foreach a (mapcar(function vlax-ename->vla-object)(mapcar(function cadr)(ssnamex selection_set)))
;;;     (setq a (car (mapcar(function vlax-ename->vla-object)(vl-remove-if(function listp)(mapcar(function cadr)(ssnamex selection_good))))) )
     (vla-delete  a)
  ) ;/ foreach
 ))
 (setq selection_set nil)
 (redraw)
 ; (command "_.redrawall")
 (terpri) ; поднимаю сообщение вверх по ком. строке
  
  (if(null side_X)
;|1|; (alert "Укажите помещение")
;|2|; (c:Return#_4)
  ) ;/ if
  (princ "Данные обновлены") ; вот это не попадает в ком строку, а надо 
; причем после закрытия окна, в ком. строке запись появляется, столько,
; сколько раз нажали кнопку обновить.
 ) ;/ (= Return# 4)

[skkkk]

Offtop:

Сообщение от sdv79 Вставленную цитату набирали или есть возможность скопировать с электронной версии

набирал...благо десятипалый метод рулит
P.S. Но есть же еще диск с листингами.

[sdv79]

skkkk Понятно.