Две лисповские программки построения овала и линии пересечения двух плоскостей
Презентую две лисповские программки:
1. Построение овала
Фигуру из старых учебников по черчению, которой предлагали заменять эллипс.
Тем не менее, если кому интересно её использовать, программка ставит овал по трём точкам даже в 3D. Может кому захочется начертить овал лица, а не эллипс лица или вдруг ещё что неожиданное.
2. Построение прямой и единичного отрезка не пересечении двух плоскостей.
В качестве плоскостей можно выбрать: отрезок "LINE", прямая "XLINE", окружность "CIRCLE", дуга "ARC", эллипс "ELLIPSE", полилиния (обычная) "LWPOLYLINE", 2d или 3d полилиния "POLYLINE", сплайн "SPLINE", спираль "HELIX".
Предлагается выбрать сначала одну группу объектов, потом другую. Если сразу сделать пустой ввод, то предлагается ввести 6 точек подряд, по три на каждую плоскость. Если выбрать две группы объектов, программа автоматически выберет по три точки с наибольшим вектором векторного умножения. Внимание программа не производит проверку, лежат ли все точки выбранной группы объектов в одной плоскости, это надо обеспечить при вводе.
1. Построение овала
Фигуру из старых учебников по черчению, которой предлагали заменять эллипс.
Тем не менее, если кому интересно её использовать, программка ставит овал по трём точкам даже в 3D. Может кому захочется начертить овал лица, а не эллипс лица или вдруг ещё что неожиданное.
2. Построение прямой и единичного отрезка не пересечении двух плоскостей.
В качестве плоскостей можно выбрать: отрезок "LINE", прямая "XLINE", окружность "CIRCLE", дуга "ARC", эллипс "ELLIPSE", полилиния (обычная) "LWPOLYLINE", 2d или 3d полилиния "POLYLINE", сплайн "SPLINE", спираль "HELIX".
Предлагается выбрать сначала одну группу объектов, потом другую. Если сразу сделать пустой ввод, то предлагается ввести 6 точек подряд, по три на каждую плоскость. Если выбрать две группы объектов, программа автоматически выберет по три точки с наибольшим вектором векторного умножения. Внимание программа не производит проверку, лежат ли все точки выбранной группы объектов в одной плоскости, это надо обеспечить при вводе.
Комментарии
Авторизоваться
(Овал) и (Пересечение_плоскостей)
Можете внести изменения. Первой строки Овал.lsp:
(Defun c:Овал (/ poi1 poi2 poi3 poi4 O OC CE poi1-O poi ;после символа / идёт
и в строку 118 Пересечение_плоскостей.lsp:
(defun c:Пересечение_плоскостей (/ e1 e2 lst1 lst2)
и будет запускаться как обычная команда.
Миль пардон - заработало! Просвети мя темного - а почему наименование команды со с (), а не как обычно с префиксом _?
`((я)(люблю)(лисп)(,поэтому)(обожаю)(слова)(в)(скобках))