[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)
)

[VVA]

Пример

Код:

[Выделить все]

(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 " ** мимо **")
       )
     )
   )
  )