Список форумов Конференция САПР Bentley MicroStation Конференция САПР Bentley MicroStation
www.ustation.ru
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Принадлежит ли точка элементу?

 
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное
Предыдущая тема :: Следующая тема  
Автор Сообщение
Велиал



Зарегистрирован: 04.05.2012
Сообщения: 20

СообщениеДобавлено: Вс Июл 21, 2013 5:57 pm    Заголовок сообщения: Принадлежит ли точка элементу? Ответить с цитатой

Здравствуйте. Получаю точку
Код:

    With CadInputQueue
        Dim message As CadInputMessage
        Do While True
            Set message = .GetInput(msdCadInputTypeDataPoint, msdCadInputTypeReset)
            If message.InputType = msdCadInputTypeDataPoint Then
                      myCol.Add message.point
            ElseIf message.InputType = msdCadInputTypeReset Then Exit Do
            End If
        Loop
    End With

Точка всегда лежит на оси или основании элементов. Можно ли узнать какому элементу она принадлежит? Пытался так (так как при выборе точки выделяется элемент, то думал так)
Код:

If message.InputType = msdCadInputTypeDataPoint Then
       Dim ee As ElementEnumerator
       Dim elem As Element
       Set ee = ActiveModelReference.GetSelectedElements
       Set elem = ee.Current
       Debug.Print "Element: " & elem.Type
End if

Видимо не так. Как правильно? Заранее спасибо
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Leonid
давно здесь сидим


Зарегистрирован: 28.01.2006
Сообщения: 598
Откуда: С.-Петербург

СообщениеДобавлено: Пн Июл 22, 2013 10:24 am    Заголовок сообщения: Ответить с цитатой

Велиал, мы же в предыдущем посте все разжевали - как элементу сделать Locate... Shocked
Стартуешь класс и получаешь элемент по точке Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Конференция САПР Bentley MicroStation -> Прикладное Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group