De quel cote de la droite ?

[Julian-Nihon]

Bonsoir

 

Je clique deux points pt1 et pt2 déterminant une droite / segment.

Je clique ensuite un troisième point pt3.

 

Problème : Comment déterminer en autolisp de quel cote de la ligne le point pt3 se situe ?

[bonuscad]

Bonjour,

 

J'avais donnée un exemple ICI

[Titifonky]

Bonjour,

 

Sur le site de Lee Mac http://www.lee-mac.com/clockwisep.html

 

Ou sur celui de (Gile) http://gile.pagesperso-orange.fr/LISP/Vecteurs&Matrices.lsp

[zebulon_]

Bonjour,

 

une fonction avec 3 points en arguments, dont je revendique un peu la paternité également.

;;; Clockwise-p
;;; Retourne T si les points p1 p2 et p3 tournent dans le sens horaire

(defun clockwise-p (p1 p2 p3)
(< (sin (- (angle p1 p3) (angle p1 p2))) -1e-14)
)

 

 

une autre avec un objet et un point en argument

(defun PTaDroiteObj (obj pt / PTN PM fder PT1DERIV)
 (if (= (type Obj) 'ENAME)
   (setq Obj (vlax-ename->vla-object Obj))
 )
 (setq PTN (vlax-curve-GetClosestPointTo obj PT))
 (setq PM (vlax-curve-GetParamAtPoint obj PTN))
 (setq fder (vlax-curve-getfirstderiv obj PM))
 (setq PT1DERIV (mapcar '+ PTN fder))
 (< (sin (- (angle PTN PT) (angle PTN PT1DERIV))) -1e-14)
)

 

Amicalement

Vincent