[zmaximus]

Добрый день.

Есть динамический блок со свойством Visibility внутри. Окна по типам, с возможностью выбора. Проблема в том, что значение свойства для конкретного экземпляра блока хранится в текстовом виде, и если в редакторе блока нужно переименовать конкретный тип, то все экземпляры, которым он был присвоен, слетают на самый первый. Решение напрашивается простое - создать лисп, которым выбирать блок, нужное название VisibilityState, запоминать все блоки с выбранным значением, переименовывать его в свойствах объекта, и выбранным объектам присваивать новое название. Споткнулся на том, что функция

(vlax-put-property my_Obj 'AllowedValues my_Values)

всегда выдает ошибку "ошибка: ActiveX Server возвратил ошибку: Несовпадение типов". Даже если прямо перед ней выполнить

(setq my_Values (vlax-get-property my_Obj 'AllowedValues))

то выдает ту же ошибку. Пробовал вместо vlax-get-property делать vlax-get. Не помогает. Причём для 'Value всё работает прекрасно. Перерыл весь интернет, решения не нашел.
Подскажите, плиз, в чем проблема?

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

Я б проверял последовательно:
1. my_Obj - это вообще что? Указатель на описание блока?
2. доступность allowedvalues на запись. Может, оно вообще ReadOnly

И что по этому поводу говорит справка VBA?

[zmaximus]

Сообщение от Кулик Алексей aka kpblc Я б проверял последовательно: 1. my_Obj - это вообще что? Указатель на описание блока?

Тут всё ок, поскольку со свойством 'Value всё работает. Ну и получение 'AllowedValues по нему вполне происходит.

Сообщение от Кулик Алексей aka kpblc 2. доступность allowedvalues на запись. Может, оно вообще ReadOnly И что по этому поводу говорит справка VBA?

В Гугле я никакой информации не нашел. Что такое справка VBA?

[zmaximus]

Немного разобрался.

Тип объекта #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 0000023822d5d508>

Да, vlax-dump-Object показывает, что ридонли.

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

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

Насколько я знаю, никакой официальной документации по поводу создания и редактирования описаний дин.блоков не существует. Вхождения - добро пожаловать.
А так, если выполняется переименование видимости, я б делал, наверное, по-другому. Получить описание блока, получить список видимостей, для каждого вхождения создать списки / точечные пары типа "ename (или handle, что больше нравится)"-"Порядок активной видимости в списке видимостей", запомнить все это богатство в глобальной переменной, зайти в редактор блока, руками поменять названия видимостей, выйти из редактора блока, вызвать команду восстановления: опять же для того же блока получаем список видимостей, проходим по списку, для каждого ename-handle-vla-указателя устанавливаем тот номер видимости, который был сохранен. Решение геморройное и не сильно красивое, но на бОльшее меня сейчас не хватит.

[trir]

Что такое справка VBA?

https://help.autodesk.com/view/OARX/...0-18A565B15A02

[zmaximus]

Сообщение от Кулик Алексей aka kpblc зайти в редактор блока, руками поменять названия видимостей, выйти из редактора блока, вызвать команду восстановления

В принципе, я тоже склоняюсь к чему-то подобному.

А вы не в курсе, через API есть возможность описания дин.блоков редактировать? Я в своё время что-то через Delphi делал, вроде там шире возможности, насколько я помню.

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

Сообщение от Кулик Алексей aka kpblc Насколько я знаю, никакой официальной документации по поводу создания и редактирования описаний дин.блоков не существует

И я сомневаюсь, что через СОМ можно подобные вещи делать.

[zmaximus]

Сообщение от Кулик Алексей aka kpblc И я сомневаюсь, что через СОМ можно подобные вещи делать.

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