[Bdod]

Всем доброго времени суток!
Нужна помощь, есть 3DГрань и линия проходящая сквозь нее, нужно найти точку пересечения, или привязаться к этой точке... как это можно сделать?
[ATTACH]1171963109.dwg[/ATTACH]

[МишаИнженер]

При решении данной проблемы должны помочь следующие картинки:
https://cf.ppt-online.org/files/slid...S/slide-10.jpg
https://catchsuccess.ru/wp-content/u...be3f94b3e.jpeg
https://s0.showslide.ru/s_slide/0b06...86a607ae7.jpeg
Нажмите в прилагаемом файле последовательно кнопки:
1) "Получить координаты 3 точек" эта команда задает координаты 3 точек плоскости
2) "Получить координаты точек линии" эта команда задает точки линии
Точки пересечения линии и плоскости будут находиться в таблице с названием: "Координаты точки линии на плоскости"
Внизу будет вычислено расстояние от точки до плоскости. Если это расстояние равно 0, значит координаты вычислены правильно.
Программа VBA (Офис 32) настроена на работу с AutoCAD 2013.
Что надо начертить в этой точке? Может какой-то дополнительный объект?

[АлексЮстасу]

Сообщение от МишаИнженер При решении данной проблемы должны помочь следующие картинки: https://cf.ppt-online.org/files/slid...S/slide-10.jpg https://catchsuccess.ru/wp-content/u...be3f94b3e.jpeg https://s0.showslide.ru/s_slide/0b06...86a607ae7.jpeg Нажмите в прилагаемом файле последовательно кнопки: 1) "Получить координаты 3 точек" эта команда задает координаты 3 точек плоскости 2) "Получить координаты точек линии" эта команда задает точки линии Точки пересечения линии и плоскости будут находиться в таблице с названием: "Координаты точки линии на плоскости" Внизу будет вычислено расстояние от точки до плоскости. Если это расстояние равно 0, значит координаты вычислены правильно. Программа VBA (Офис 32) настроена на работу с AutoCAD 2013. Что надо начертить в этой точке? Может какой-то дополнительный объект?

Класс!
1. В каком виде нужно записывать вычисленные координаты точек для вызова калькулятора ilp (cur,cur,cur,cur,cur), если его вызывать в (command ...)?
2. В одной старой теме есть два соответствующих лиспа: от gile - https://forums.autodesk.com/t5/visua...746467#M291429 и от Kent1Cooper - https://forums.autodesk.com/t5/visua...747106#M291440.
С этими лиспами есть проблемы. У gile, похоже, есть ошибки, и точки, попадающие в грани, могут считаться вне. У Kent1Cooper точки на вершинах граней могут считаться не на гранях. (Выяснилось, что у Kent1Cooper делается сравнение без учета погрешностей вычисления).
---
Еще нашел решение на lisp - https://forums.autodesk.com/t5/autoc...28132#M1094570

[виктор ермаков]

Добрый день. Нахождение точки пересечения с помощью лисп:
(command "_.cal" "test210524=1+1"); инициализирует команду кальк, без инициализации дальнейший код может не срабатывать
(setq pt1 (getpoint);первая точка отрезка пересекающего 3д грань
pt2 (getpoint);вторая точка отрезка пересекающего 3д грань
pt3 (getpoint);первая точка 3д грани
pt4 (getpoint);вторая точка 3д грани
pt5 (getpoint);третья точка 3д грани
)
(C:CAL "p6=ilp(pt1,pt2,pt3,pt4,pt5)")
(setq pt_int p6)