| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как получить координаты точки вставки атрибута, используя GetAttributes

Как получить координаты точки вставки атрибута, используя GetAttributes

Ответ
Поиск в этой теме
Непрочитано 19.04.2012, 13:07 #1
Как получить координаты точки вставки атрибута, используя GetAttributes
june
 
Регистрация: 04.04.2012
Сообщений: 11

Здравствуйте!
В чертеже есть блоки с атрибутами. Мне нужно найти один конкретный атрибут, и узнать у него Y-координату точки вставки. Мой кусок кода:

Dim varAttributes As Variant
Dim InsertionPoint(0 To 2) As Double
Dim I As Integer

For Each oEntity In ThisDrawing.ModelSpace
If TypeOf oEntity Is AcadBlockReference Then
Set oBlkRef = oEntity
varAttributes = oBlkRef.GetAttributes
For I = 0 To UBound(varAttributes)
If varAttributes(I).TagString = "CMD_TITLE_BLOCK_DEVELOP#FUNCTION" Then
MsgBox varAttributes(I).InsertionPoint(1)
End If
Next
End If
Next

Exit Sub

При выполнении ругается: смотри картинку.
Что я делаю не так?
Спасибо.

РЕШЕНИЕ НАЙДЕНО, ТЕМА ЗАКРЫТА

Миниатюры
Нажмите на изображение для увеличения
Название: 1.JPG
Просмотров: 60
Размер:	14.4 Кб
ID:	78843  


Последний раз редактировалось june, 19.04.2012 в 14:25. Причина: Решение найдено
Просмотров: 2548
 
Непрочитано 20.04.2012, 00:13
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 38,809


Раз найдено, поделись
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 20.04.2012, 06:42
#3
june


 
Регистрация: 04.04.2012
Сообщений: 11


Нужно было дополнительно объявить переменную:
Код:
[Выделить все]
Dim objAttRef As AcadAttributeReference
 
Тогда:
...
varAttributes = oBlkRef.GetAttributes
For I = 0 To UBound(varAttributes)
If varAttributes(I).TagString = "CMD_TITLE_BLOCK_DEVELOP#FUNCTION" Then
Set objAttRef = varAttributes(I) 
MsgBox objAttRef.InsertionPoint(1)
End If
Next
...
PS Жирным выделить получилось, а вот как сделать отступы в коде - не понимаю

Последний раз редактировалось Кулик Алексей aka kpblc, 20.04.2012 в 08:53.
june вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Как получить координаты точки вставки атрибута, используя GetAttributes

Инженерная печать чертежей и проектной документации до А0+
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как получить точки пересечения двух полилиний? Mozgunov Программирование 38 17.06.2013 11:11
Как получить экранные координаты курсора +Alex+ Программирование 12 07.07.2010 17:38
координаты вершин выбранной полилинии на VB? как получить ssv22 Программирование 5 17.07.2008 00:01
Координаты точки пересечения line и pline (LISP) paradoxvaha LISP 3 10.07.2007 13:04
Как получить значение атрибута используя Diesel-выражение? mental Программирование 1 12.04.2007 10:16