Скачать NANOCAD Pдгы 8.5
dwg.ru forum rss xml
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Библиотека функций > DwgRuLispLib: Геометрия. Принадлежность точки отрезку

DwgRuLispLib: Геометрия. Принадлежность точки отрезку

Версия для печати
 
Ответ
Опции темы Поиск в этой теме
Непрочитано 07.12.2007, 18:28 #1
DwgRuLispLib: Геометрия. Принадлежность точки отрезку
VVA
 
Инженер LISP
 
Минск
Регистрация: 11.05.2005
Сообщений: 6,542
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™

VVA вне форума Вставить имя

Код:
[Выделить все]
;;; ************************************************************************
;;; * Библиотека DWGruLispLib Copyright ©2007  DWGru Programmers Group
;;; *
;;; * dwgru-geom-point-on-line
;;; *
;;; * 07/12/2007 Версия 0001. Редакция Владимир Азарко (VVA)
;;; ************************************************************************
(defun dwgru-geom-point-on-line (P P1 P2)
;;; Принадлежность точки отрезку
;;;-----------------------------
;;;Параметры:
;;; P — проверяемая точка
;;; P1, P2 — точки отрезка
;;;Возвращает t, если точка лежит на отрезке
  
 (equal (+ (distance P P1) (distance P P2)) (distance P1 P2) 1e-6)
)
__________________
Как использовать код на Лиспе читаем здесь
Просмотров: 6806
 
Автор темы   Непрочитано 07.12.2007, 18:35
#2
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,542
Отправить сообщение для VVA с помощью ICQ Отправить сообщение для VVA с помощью Skype™


Пример
Код:
[Выделить все]
(defun C:TEST()
  (and
   (princ "\nВыберите отрезок ")
   (setq ss nil ss (ssget "_:S:E" '((0 . "LINE"))))
   (setq ent1 (ssname ss 0))
   (setq Pt1 (trans (cdr(assoc 10 (entget ent1))) 0 1)
         Pt2 (trans (cdr(assoc 11 (entget ent1))) 0 1)
         )
   (while (setq Pt (getpoint "\nУкажите точку <выход>: "))
     (if (dwgru-geom-point-on-line Pt Pt1 Pt2)
       (princ " ** на отрезке **")
       (princ " ** мимо **")
       )
     )
   )
  )
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума вставить имя Обратить внимание модератора на это сообщение  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Библиотека функций > DwgRuLispLib: Геометрия. Принадлежность точки отрезку

Инженерные консультации
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DwgRuLispLib: Геометрия. Треугольник VVA Библиотека функций 1 07.12.2007 18:18
Принадлежность точки объекту Тим Боль Программирование 4 19.10.2007 16:59

|| Главная || Каталог САПР || Тендеры || Публикации || Объявления || Биржа труда || Download || Галерея ||
|| Библиотека || Кунсткамера || Каталог предприятий || Контакты || Файлообменник || Блоги ||


Размещение рекламы