[молодой человек]

Здравствуйте. Не могу найти команду, которая бы обновила только нужный блок, а не все примитивы чертежа.
(setq obj (vlax-ename->vla-object (car(nentsel))))
(vla-put-Color obj 1)
А потом требуется, чтобы изменился цвет на экране.
vla-update- тоже не помагает

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

У тебя запрашивается nentsel, т.е. примитив "самого нижнего уровня вложения". Его обновляй - не обновляй, все едино - работать не будет. Попробуй заменить nentsel на entsel.

[Supermax]

(entmod (entget (car (entsel)))) и ткнуть в блок, где поменяли цвет внутреннего элемента.
Можно усложнить задачу. Надо вычислить родителя элемента полученного через nentsel и ему сделать (entmod (entget ...

Вот так, к примеру.

Код:

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

(setq obj2 (vlax-ename->vla-object (car (setq obj (nentsel)))))
(vla-put-Color obj2 1)
(entmod (entget (caar (reverse obj))))

[Евгений А.]

В справке после entmod всегда рекомендуют entupd, значит entmod - тут бессмысленно, хотя лично не проверял.
Так можно, например:

Код:

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

(and (setq lst (nentsel))
     (or (setq ename (last (cadddr lst))) (setq ename (car lst)))
     (ENTUPD ename)
     )

[Supermax]

Ну, во-первых получив через nentsel указатель на объект, его надо для начала изменить. Во-вторых ни entmod, ни entupd перерисовывать вложенный примитив не собираются. Перерисовывается только весь блок.
При перерисовывании всего блока перерисовывается только то вхождение, которое мы потрошим, другие вхождения остаются неизменными.
Если войти после этого в редактор блока, то мы там увидим старое значение измененного примитива, и если выйти хоть с сохранением, хоть без - измененное вхождение восстановит свое прежнее состояние.
Если сохранить файл и перезагрузить его - все вхождения данного блока примут новое значение.

Код:

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

(setq obj2 (vlax-ename->vla-object (car (setq obj (nentsel))))); записали указатели
(vla-put-Color obj2 1); изменили свойство элементу вхождения блока

(entmod (entget (caar (reverse obj)))); перерисовали вхождение
;или
(ENTUPD (caar (reverse obj)))

[Евгений А.]

Supermax, извини, но ты бредишь.

[Supermax]

Как говорил Жванецкий "Давайте спорить до хрипоты, до драки, о вкусе устриц, с теми, кто их ел"

Возьми и попробуй.

[Евгений А.]

Я не пробуя вижу, что не пойдёт, НО попробовал - не пошло всё равно.
Эта строка -

Код:

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

(entmod (entget (caar (reverse obj)))); перерисовали вхождение

- полный бред! зачем переопределять вхождение блока, когда изменения применяются к примитиву в блоке? Это три разных объекта. Достаточно только обновить вхождение на самый внешний блок с нужным примитивом (о чём Крыс уже написал).
Потом это

Код:

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

(caar (reverse obj))

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

Код:

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

(and (setq lst (nentsel))
       (setq vlo (vlax-ename->vla-object (car lst)))
       (null (vla-put-color vlo 1))
       (or (setq ename (last (cadddr lst))) (setq ename (car lst)))
       (ENTUPD ename)
       )

пробуй