[allrather]

Доброго времени суток. Ребзя, необходимо решить конкретную задачу при помощи VBA, за которой последуют великие открытия, и я захвачу мир.
Итак, суть..
Имеем 2 блока (см. скрин 1). 1-й блок – динамический (с двумя простыми операциями изменения длины и ширины). 2-й блок – просто блок, думаю, позже придется и его сделать динамическим, но, пока что, не суть.
Так вот, допустим 1-й наш блок имеет размеры 100х50, 2-й – абсолютно рандомный.
Хочу, чтобы размеры 2-го блока зависели от размеров 1-го.
Например,
1-й блок: L1=100, B1=50.
2-й блок: L2=2*L1=200, B2=3*B1=150.
Соответственно, при изменении 1-го, менялся бы и второй.
Что сделано? При помощи VBA я научился читать атрибуты указанного блока и выводить их в MsgBox или листбокс, или записывать куда-нибудь. На этом, пока что все.
Представляю, что 2-й блок можно бы было сделать через координаты точек, которые были бы завязаны с атрибутами 1-го блока, затем построить прямоугольник из четырех линий.. И было бы норм (только для прямоугольников). Но мне кажется, что должен быть вариант попроще.

Буду очень признателен за помощь. :*

[swell{d}]

второй блок можно сделать в виде квадрата со стороной 1 и 1 и программно задавать ему масштаб по разным осям, например =)

[allrather]

swell{d}, можно. Но, как только захочется делать подобные вещи с элементами типа тавр, Ваш метод исчерпает себя. )

[swell{d}]

ну блин, между прямоугольником и тавром две большие разницы. тогда тупо построения.
там на видео, все мелкие каркасики (плоские/пространственные) у меня сначала строятся внутри блока, а затем эти блоки просто вставляются на чертёж в нужных местах.

[allrather]

Сообщение от swell{d} ну блин, между прямоугольником и тавром две большие разницы. тогда тупо построения. там на видео, все мелкие каркасики (плоские/пространственные) у меня сначала строятся внутри блока, а затем эти блоки просто вставляются на чертёж в нужных местах.

swell{d},
Видео просматривал уже не раз (Лайк ставил ). Но неужели все строится через примитивы?
Схема получается совсем не гибкая!
В моем случае тогда уж проще уповать на связь динамики с параметрикой и надеяться, что они сработаются!

Неужели нельзя увязать иначе два блока?

[swell{d}]

сформулируйте задачу конкретнее. пока речь про прямоугольник - всё элементарно. если тавр, то какой? что ещё, кроме тавра может выскочить?

[allrather]

swell{d}, Если сформулировать задачу совсем уж конкретно, то у всех пропадет желание даже читать это.

Попробую пояснить иначе.
Еще раз, значит, есть динамический блок (скрин.1). В виде атрибутов я достаю из него 2 параметра (X и Y - длину и ширину).
И есть второй какой-то динамический блок (с какими-то X1 и Y1). Могу ли я сделать, скажем, второй блок зависимым от первого при помощи VBA нужным мне соотношением.
Например:
X2=2*X1=200, X2=3*X1=150.

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

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

Есть вариант попробовать параметрические зависимости. Без VBA и файл будет тяжеловат, но зато прикольно получится.
А так - устанавливай динамические параметры, взяв значения с первого блока. Потом обновляй вхождение

[allrather]

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

Сообщение от Кулик Алексей aka kpblc А так - устанавливай динамические параметры, взяв значения с первого блока. Потом обновляй вхождение

Звучит просто, не мог бы ты пояснить?

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

Если бы я писал на VBA, я б, наверное, и пример привел. Я общий принцип расписал - см. DynamicProperties, получаешь коллекцию, высчитываешь элементы и т.д.

[allrather]

Кулик Алексей aka kpblc, да, ты был прав, dynamicproperties, затем через propertyname получаешь то, что нужно..

Еще один товарищ направил на путь истинный, денек, и все работает. Сижу на работе - счастливый.
Приду домой, запишу видео и код, может, кому будет интересно.

[v.psk]

Мне интересно. Еще лучше выложи 2 (*.dvb и *.dwg - с этими блоками) файла

[allrather]

Привет. Вот скринкаст по блокам.
https://screencast.autodesk.com/Main...b-2b91bd6b079f

Прикрепляю также акадовский файл и сам код. Надеюсь, кому-то будет полезно.

PS За код строго не судите, первый месяц изучаю VBA.

Тему можно считать закрытой.

[v.psk]

Сообщение от allrather Прикрепляю также адовский файл

еще бы в 2010 сохранил чтобы не конвертить