[Spirt]

Доброго времени суток!!! Не кидайте камни. Начинаю осваивать азы программирования VBA в Аutocad.
Подскажите как сделать динамический блок,чтобы его о размеры менялись по данным из Excel на примере обычного прямоугольника. Пробовал сделать по видео

[Boxa]

По какому видео? Что подразумевается под словом "связь"? Что подразумевается под "менялись по данным из Excel"?
Покажите тот код который у Вас есть, и расскажите что именно в нем не получается, приложите файлы екселя и динамического блока, тогда , м.б., Вам и помогут, а так непонятно что вы хотите и что уже сделали.

Менялись по данным из Екселя... менялись после запуска VBA скрипта в автокаде? после запуска VBA скрипта в екселе? реактор на обновление данных в екселе? , реактор со стороны автокада или екселя? Вариантов масса, а что Вы хотите непонятно.

[MCAD]

Сообщение от Boxa По какому видео?

Думаю, что не ошибусь.

[Spirt]

https://m.youtube.com/watch?v=eeygUY...0LrQsNC00LU%3D.
Код прикреплю чуть позже. У меня почемуто блок вставляется но пытаюсь поменять длину либо ширину. Блок вставляется без изминений

https://m.youtube.com/watch?v=eeygUY...0LrQsNC00LU%3D.
У меня блок вставляется но динамические свойства не меняются. Свой код сброшу чуть позже.

MCAD, да это видео

Мой код. Вставляю блок. Меняю свойства они остаются без изменений
свойства меняю в строках
If prop.PropertyName = "Длина" Then
prop.Value = #
ElseIf prop.PropertyName = "Ширина" Then
prop.Value = #

[Сергей812]

А доходит до выполнения условий то? Точки отладки в редакторе VBA поставить на эти строки и посмотреть - дойдет ли вообще до них.

[MCAD]

Сообщение от Spirt MCAD, да это видео

Я даже не сомневался. Очень хороший, наглядный, познавательный сериал. Мне его часто присылают.
Приходится делать и показывать аналоги

Нажмите для просмотра

http://www.youtube.com/watch?v=tzy7__1D0Oc

[name02]

Код рабочий - я проверял на Autocad 2018.
Сделал дин.блок с указанным именем и параметрами - все вставляется куда укажешь и значения параметров как в макросе.
У тебя может дин.блок неправильно сделан - приложи его тоже.

Что касаемо задачи связать блок и Excel, то на мой взгляд, надо писать vba-макрос для работы из-под Excel.
Все равно источником/приемником данных будет Excel.

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


Сам я для себя сделал надстройку в Excel для работы с блоками:


Еще есть такие решения:
Только для атрибутов - https://forum.dwg.ru/showthread.php?t=121361
https://antondevyatov.blogspot.com/2017/11/cadex.html

[Spirt]

name02,
Надстройка неплохая идея. Спасибо, но до такой конструкции еще не дорос. Чертеж с дин.блоком выложу вечером. Возможно я дин.блок создаю неправильно.

[Boxa]

На всякий случай: https://forum.dwg.ru/showthread.php?t=145333 ,
Код открыт, может и не надо ничего писать?

[Spirt]

Boxa.хочу просто сам научится писать макросы на vba хотя бы простые. В общем на форуме много ребята программ выкладывают. Если нужно было бы для работы скачал и пользуйся. Хочу разобраться как все это создаеться. Читаю книги в них много не понятного. С справкой в автокаде по vba тоже пока не в дружбе

[Сергей812]

полезная книга из даунлоад. И учитесь пользоваться отладчиком - т.е. поставили точки остановки на операции присвоения (что там ссылка для офиса - так редактор VBA в акаде от MS), проверили по факту остановки - что по условию попадаете на операцию присвоения

Сообщение от Spirt prop.Value = #

и тогда уже проблема явно в самом блоке. Или не попадаете - тогда искать пошаговой отладкой, что там вообще появляется в prop.PropertyName.

[Spirt]

Доброго время суток. Вот чертеж с блоком и VBA

[Spirt]

. А получилось. Нашел ошибку. Ошибка была в дин. блоке. Название параметров в свойствах нужно было переименовать на "Длину" и "Ширину". Спасибо всем за помощь, за отладчик, литературу и идею с надстройкой. Буду учится дальше