| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Велиал
Зарегистрирован: 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... 
Стартуешь класс и получаешь элемент по точке  |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
