Информационный портал для профессионалов в области САПР
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Форумы CADUser → Программирование → VBA → Выбор направления
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как реализовать такую задачу:
Сначала я запрашиваю первую точку, потом
я прошу указать вторую точку.
После задачи первой точки я хочу чтобы от неё до курсора
тянулась линия и при этом я мог включить орто(т.е. тянулась линия от первой точки параллельно осям координат).
Спасибо
Переведите на VBA:
(vla-GetPoint(vla-get-utility(vla-get-activedocument(vlax-get-acad-object)))(vlax-3d-point(getpoint))"\nPick point")
Точку указываю:
StartPt = ThisDrawing.Utility.GetPoint(, "Pick Point")
А аотом как чтобы от нее линия тянулась до курсора, пока я не укажу вторую точку?
если можно на VBA
startPnt = ThisDrawing.Utility.GetPoint(, vbCr & "Укажите первую точку:") endPnt = ThisDrawing.Utility.GetPoint([b]startPnt[/b], "Укажите вторую точку:")
Справку читайте.
и при этом я мог включить орто
Клавиша F8 или мышкой перключатель ORTHO.
Спасибо за ответ.
А как проверить, что точку указали,
в противном случае end Sub?
Ведь на getPoint нет возращаемого значения(указали или не указали точку)
Ведь на getPoint нет возращаемого значения(указали или не указали точку)
Что, простите? А проанализировать startPnt (endPnt)?
Еще посмотрите здесь.
https://www.caduser.ru/forum/topic6560.html
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Форумы CADUser → Программирование → VBA → Выбор направления
Форум работает на PunBB, при поддержке Informer Technologies, Inc
