[Yuriy-I]

Здравствуйте.
Имеется функция отключения видимости выбранного объекта.
Но она не работает с подобъектами блока или внешней ссылки.
Не подскажете, как откорректировать функцию, чтобы видимость отключалась и у подобъектов?

Код:

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

 (defun c:HO ()
  (setq _e (car(nentsel)))
  (princ(assoc 0 (entget _e)))
  (redraw _e 2)
(princ))

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

Лень вспоминать DXF...

Код:

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

 (vl-load-com)

(defun c:ho (/ _e)
  (if (setq _e (car (nentsel)))
    (progn
      (princ (assoc 0 (entget _e)))
      (vla-put-visible (vlax-ename->vla-object _e) :vlax-false)
      (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
  ) ;_ end of defun

[Yuriy-I]

Сработало!
Спасибо!!!
А возможно ли вместо регенерации всего видового экрана
(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
отрегенерировать только объект, который указал?

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

(vla-update (vlax-ename->vla-object _e))

----- добавлено через 32 сек. -----
Но я не уверен, что это сработает. Может быть, потребуется определять владельца _e и обновлять уже его.

[Yuriy-I]

так и есть
при обновлении владельца все работает

Код:

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

 (defun c:ho (/ _e _nen)
  (if
    (setq _nen (nentsel))
    (progn
      (setq _e (car _nen))
      (princ (assoc 0 (entget _e)))
      (vla-put-visible (vlax-ename->vla-object _e) :vlax-false)
      ;(vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
      (vla-update (vlax-ename->vla-object (if (=(type(car(last _nen)))'ENAME)(car(last _nen))_e)))
      ) ;_ end of progn
    ) ;_ end of if
  (princ)
) ;_ end of defun

Алексей, СПАСИБО!!!

[Александр Ривилис]

А если таких блоков вставлено несколько?

[Yuriy-I]

Опробовал ...
Видимость подобъекта отключается только у одного блока, у остальных видимость не отключается.
(может быть где нибудь и пригодится... )

Мне управлять видимостью нужно больше не для блоков, а для внешних ссылок.
Часто использую команды управления видимостью на уровне объектов а не слоев :
Command: _.ISOLATEOBJECTS
Command: _.UNISOLATEOBJECTS
Command: _hideobjects
но они не работают с подобъектами блоков и ссылок.

Жаль все таки что ф-ция "redraw" не работает с подобъектами.
Мне обычно требуется только временное отключение видимости мешающих в данный момент подобъектов, позднее необходимо все включить.
Если видимость отключить "redraw" то после регенерации она включится автоматически.
А применяя "vla-put-visible" потребуется дополнительная ф-ция включения.

Вот еще, что интересно - если вдруг случайно забуду включить видимость объектов в чужом чертеже то его без наличия програмки и включить будет невозможно?.

[Александр Ривилис]

Сообщение от Yuriy-I Видимость подобъекта отключается только у одного блока, у остальных видимость не отключается. (может быть где нибудь и пригодится... )

Отключается у всех, но видишь ты только у одного пока не выполнишь регенерацию или обновление всех вставок блока.

[Yuriy-I]

Да, так и есть )))