• Андрей
  • Восстановленный участник
  • На форуме с 4 февраля 2006г.
  • Сообщений: 78
  • Спасибо: 0

Тема: Вставка атрибута

Добрый день.
Я написал программку для Автокада 2006 в которой производиться преобразование выделенного объекта в блок с атрибутом. Мне важно, чтобы при создании блока я мог задать координату атрибута, которые должны совпасть с точкой вставки блока. В 2006 все работает, но в 2007 Автокаде, атрибут перестает воспринимать свою координату относительно нулевой точки блока,  и  перескакивает в начало глобальной системы координат чертежа. Уважаемые знатоки подскажите, что нужно изменить.
Dim t As Variant
Dim aoBlock As AcadBlock
Dim attributeObj As AcadAttribute
Dim Atr(0 To 2) As Double
Atr(0) = 0#: Atr(1) = 0#: Atr(2) = 0#
t = ThisDrawing.Utility.GetPoint(, vbCrLf & "Выберите место для номера >> ")
Set aoBlock = ThisDrawing.Blocks.Add(t, nameblock)
Set attributeObj = aoBlock.AddAttribute(100, acAttributeModePreset, "Nomer", Atr, "#", "0")
Понятно, что если я заменю координату  Atr в относительных значениях, на координату в абсолютную системе, то все заработает, но мне интересно зачем в новой версии внесено это изменение.

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: Вставка атрибута

> Андрей
Причем здесь относительные координаты
Ты просто не туда вставляешь атрибут:

Sub test()
Dim Atr As Variant
Dim aoBlock As AcadBlock
Dim attributeObj As AcadAttribute
Atr = ThisDrawing.Utility.GetPoint(, vbCrLf & "Выберите место для номера >> ")
Set aoBlock = ThisDrawing.Blocks.Add(t, "Mine")
Set attributeObj = aoBlock.AddAttribute(100, acAttributeModePreset, "Nomer", Atr, "#", "0")
End Sub

~'J'~