Déterminer le point d'intersection de 2 segments

Soumis par Anonyme le ven, 13/03/2009 - 10:54

Voici un programme en lisp permettant de déterminer le point d'intersection de 2 segments

(setq l1 (car (entsel "\nSélectionnez le 1er segment")))
(setq l2 (car (entsel "\nSélectionnez le 2e segment")))
(setq data1 (entget l1))
(setq data2 (entget l2))
(setq pt1 (cdr (assoc 10 data1)))
(setq pt2 (cdr (assoc 11 data1)))
(setq pt3 (cdr (assoc 10 data2)))
(setq pt4 (cdr (assoc 11 data2)))
(setq int (inters pt1 pt2 pt3 pt4))
(if (= int nil)
(alert "Les segments ne se coupent pas"))
(princ int)

AutoLISP

Poster un nouveau commentaire

Votre nom :

E-mail :

Le contenu de ce champ ne sera pas montré publiquement. If you have a Gravatar account, used to display your avatar.

Page d'accueil :

Commentaire : *

Les adresses de pages web et de messagerie électronique sont transformées en liens automatiquement.
Allowed HTML tags: <a> <em> <strong> <cite> <code> <ul> <ol> <li> <dl> <dt> <dd>
Les lignes et les paragraphes vont à la ligne automatiquement.
You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>. The supported tag styles are: <foo>, [foo].

Plus d'informations sur les options de formatage

CAPTCHA

La vérification ne tient pas compte des minuscules ou des majuscules.