Обсуждение видеоуроков AutoCAD VBA

[Максим Маркевич]

Да, но Props = как задать? это же не переменная. то есть я пробовала задать i, j, index, но этого оказалось мало.

А что это, если не переменная?
Очень легко
Вот здесь почитай про типы данных внимательно и все сразу станет ясно. А то ты совсем уже начинаешь бездумно спрашивать. Разбаловал я тебя! 

[qaaz07]

Ну чтож, добавила и эти переменные, действительно все сработало. Правда поставила Variant.(а это не очень четко)).
Еще вместо умножения на единицу поставила Cdbl, так будет правильнее.

[qaaz07]

Извините, вам запрещён просмотр содержимого спойлеров.

[FocusNIK]

Добрый день. Начинаю изучение VBA AutoCAD. Хотел адаптировать Ваш код для своих нужд и столкнулся с проблемой. Не могу получить свойства InsertionPoint (GetConstantAttributes). Хочу проверить ширину атрибута, что бы она не вылезала за рамки, и если вылезает уменьшить масштаб текста.

[Владимир П]

А зачем же Вы исправили строку из примера в предыдущем сообщении
att = blockRef.GetAttributes       ?
надо вернуть как было... вернее, у Вас будет:
att=elem.GetAttributes
а уже получать свойства InsertionPoint (GetConstantAttributes)? (или какие еще) будете внутри цикла

[FocusNIK]

А зачем же Вы исправили строку из примера в предыдущем сообщении
att = blockRef.GetAttributes       ?

Я выбираю атрибут постоянный, а это требует записи ".GetConstantAttributes". Но даже в непостоянных атрибутах данная запись выдает ошибку. С обычным текстом проходит. С атрибутом не проходит. Если вы считаете иначе, можете предложить корректировки в коде. Вставлю, покажу результат.

[FocusNIK]

Код в работе, поэтому прошу не ругать за мусор.

Извините, вам запрещён просмотр содержимого спойлеров.

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

Хочу проверить ширину атрибута, что бы она не вылезала за рамки, и если вылезает уменьшить масштаб текста.

Зачем для такого обращаться к InsertionPoint? Разве нет такого, как GetBoundnigBox? Ну, нечто типа

Код - Visual Basic [Выбрать]

1.   Dim ent As AcadEntity
2.   Dim minp As Variant, maxp As Variant, pickpt As Variant
3.   ThisDrawing.Utility.GetEntity ent, pickpt
4.   ent.GetBoundingBox minp, maxp

[FocusNIK]

Зачем для такого обращаться к InsertionPoint? Разве нет такого, как GetBoundnigBox? Ну, нечто типа

Именно такой оператор ничего не выдает. Или я что неправильно понимаю?

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

Посмотри на разницу в определении переменных minp (у тебя LB)

[FocusNIK]

Большое спасибо. Получилось решить проблему. Буду продолжать изучать

[Владимир П]

Я выбираю атрибут постоянный, а это требует записи ".GetConstantAttributes".   

Но проверку
83.    If elem.HasAttributes = True Then
84.        att = elem.GetConstantAttributes
делаете на ВСЕ атрибуты... а если у Вас постоянных нет в блоке?

Но даже в непостоянных атрибутах данная запись выдает ошибку. С обычным текстом проходит. С атрибутом не проходит.

Непонятно, так на каком месте все-таки происходит ошибка? Какая "данная запись"? В куске где про ConstantAttributes, или там где про "непостоянные"?

Если вы считаете иначе, можете предложить корректировки в коде.    

Я бы предложил убрать совсем кусок со строки 82. до 97., а строки 86, 87, 95 перенес бы в верхний цикл
Делать еще один цикл отдельно по постоянным атрибутам не вижу смысла, если уже есть первый.
А att(i).TagString = "ШИФР" сделать редактируемым, зачем он нужен постоянный?

[Владимир П]

Получилось решить проблему.

А с нами поделиться?

[FocusNIK]

Вот что получилось из рабочего, но не оформленного.
" If elem.HasAttributes = True Then" так, что бы можно было блочно скопировать из одного проекта без переписывания блока.
Понимаю, что правильнее переписать в один, но по первости так проще воспринимается.

Ошибку выдавала строка :LB(0)=att(i).InsertionPoint(0
с чем связана незнаю. Не удалось понять

Так же не получилось получить значения .TextAligmentPoint. Тоже ошибка была.

Извините, вам запрещён просмотр содержимого спойлеров.

[Владимир П]

Ошибку выдавала строка :LB(0)=att(i).InsertionPoint(0 с чем связана незнаю. Не удалось понятьТак же не получилось получить значения .TextAligmentPoint. Тоже ошибка была.

1.
GetAttributes Method (ActiveX)
Gets the attributes in the block reference.
RetVal = object.GetAttributes
Return Value (RetVal)
The array of AttributeReference objects.
2.
GetConstantAttributes Method (ActiveX)
Gets the constant attributes in the block or external reference.
RetVal = object.GetConstantAttributes
Return Value (RetVal)
The array of Attribute objects that are constant for the block reference.

При внимательном рассмотрении между двумя этими методами есть различия.
Возвращаемые объекты:
1. AttributeReference objects
и
2. Attribute objects