[alexmntmnk]

У меня есть блок в котором три атрибута
attr1, attr2, attr3

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

Код:

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

(setq obj (car (entsel "\nВыберите блок: ")))
  (progn
    (if (not (= obj nil)) 
    (setq vla_obj (vlax-ename->vla-object obj)) ; переводим в vla-object
    (foreach vla_atr (vlax-safearray->list (vlax-variant-value (vla-getattributes vla_obj)))
      (setq cur_atr (vla-get-TextString vla_atr));получить значение атрибута
      (vla-put-TextString vla_atr "new_value");установим новое значение
    )
  );end progn 
); end if

[Сергей812]

там же в цикле получить тэг функцией vla-get-TagString, если совпал с искомым - задать новое значение.. только перебором есть доступ к атрибутам вставки блока