[sdv79]

Код:

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

(command "_.regen") 
(setq block_selection (ssget '((0 . "INSERT"))))
(foreach s (mapcar'vlax-ename->vla-object
                (vl-remove-if'listp(mapcar'cadr(ssnamex block_selection))))
 (setq blocks_selected    (vla-get-Effectivename s)
     list_of_attributes   (safearray-value (vlax-variant-value (vla-getattributes s)))
     znach_of_attributes (mapcar 'vla-get-TextString list_of_attributes) )
(nth 0 znach_of_attributes) ; если убрать реген вначале кода, 
;то здесь останется старое значение
; как его программно обновить???
)

(command "_.regen") - Информация в атрибуты записываем из полей которые обновляются, очень хочется избавиться от регена всего чертежа, что совсем не удобно при множестве объектов в нем, а обновлять только те что попали в выборку.
Подскажите как это сделать?

[VVA]

Код:

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

(command "_.updatefield <выбрать объекты> ...")

[sdv79]

(command "_.updatefield") не работает. Добавил файл.

[VVA]

Работает. требует выбрать объекты для обновления поля. Для твоего чертежа

Код:

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

(command "_.updatefield" (entlast) "")

[sdv79]

VVA (спасибо) подскажите
1) я беру блок изменяю видимость например на Т-0.66-0.5 300/5
ввожу (command "_.updatefield" (entlast) "") прогоняю цикл и значении (nth 0 znach_of_attributes) остается первоначальным.
2) как обновление полей применить в цикле foreach т.к может быть много блоков в выборке.

[VVA]

(entlast) ссылается на последний примитив в базе рисунка. Тебе нужно сосласться на то, что у тебя находится в переменной s, только в виде ename-примитва, а не vla-объекта. Выделил красным

Код:

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

(setq block_selection (ssget '((0 . "INSERT"))))
(foreach s (mapcar'vlax-ename->vla-object
                (vl-remove-if'listp(mapcar'cadr(ssnamex block_selection))))
  (command "_.updatefield" (vlax-vla-object->ename s) "")(command)
 (setq blocks_selected    (vla-get-Effectivename s)
     list_of_attributes   (safearray-value (vlax-variant-value (vla-getattributes s)))
     znach_of_attributes (mapcar 'vla-get-TextString list_of_attributes) )
(nth 0 znach_of_attributes) ; если убрать реген вначале кода, 
;то здесь останется старое значение
; как его программно обновить???
)

[sdv79]

Все заработало. Спасибо.

[sdv79]

Подскажите после работы команды (command "_.updatefield" (vlax-vla-object->ename s) "")(command) в командную строку выдается вспомогательная информация, как ее отключить. Вначале кода выставляю системные переменные (setvar "cmdecho" 0) (setvar "menuecho" 0) (setvar "nomutt" 1)

[VVA]

Похоже никак.
Как вариант:
1. прогнать строки печатью после команды

Код:

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

(command "_updatefield" (entlast) "")(repeat 5 (princ "\n:"))(princ)

2. Отключить командную строку

[sdv79]

К сожалению не один из предложенных вариантов уважаемого VVA не подходит, работа идет в цикле, при баловстве с Commandlinehide Commandline, начинает мигать.
Что еще можно сделать, не ужели эту чушь нельзя спрятать, РАЗДРАЖАЕТ?!

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

А если сделать набор из примитивов, поля которых нужно обновить и передать этот набор в команду _updatefield? Т.е. обновлять не в цикле, а однократно.

[sdv79]

Если других вариантов нет, то придется так и сделать.

[Олег (jr.)]

Попробуй так:
(command "_updatefield" (entlast) "")(command ^C)

[sdv79]

Не помогло так и продолжает в командной строке писать Найдено полей ... Обновлено полей...
Эх, ЛИСП всемогущий... )))