Tri dans une liste

[chris_mtp]

Bonjour à tous,

 

J'ai une liste de points 3D dans un lisp sous la forme

((x1 y1 z1) (x2 y2 z2) (x3 y3 z3) ....(xi yi zi).......(xj yj zj)....(xn yn zn)).

Dans ce même lisp, je clique deux points (par exemple p(i) et p(j) et je voudrais ensuite faire une fonction qui ne me conserve dans la liste que les points compris entre les deux sommets p(i) et p(j)

de la forme ((xi yi zi).......(xj yj zj))

 

Si vous avez une idée sur la manière dont traiter cette liste ou un exemple, merci par avance de votre aide

 

John

[(gile)]

Salut,

 

une fonction qui ne me conserve dans la liste que les points compris entre les deux sommets

 

S'il s'agit des points "géométriquement" compris entre p(i) et p(j) (autrement dit contenus dans la boite définie par p(i) et p(j)), la routine suivante devrait convenir :

 

(defun InsideBox (p1 p2 lst / x1 x2 y1 y2 z1 z2)
 (mapcar
   (function
     (lambda (c1 c2 n1 n2) (set n1 (min c1 c2)) (set n2 (max c1 c2)))
   )
   p1
   p2
   '(x1 y1 z1)
   '(x2 y2 z2)
 )
 (vl-remove-if-not
   (function
     (lambda (p)
       (and (      )
   )
   lst
 )
)

 

S'il s'agit des points compris entre p(i) et p(j) suivant l'ordre la liste, c'est plutôt ça :

 

(defun range (p1 p2 lst / ind1 ind2)
 (setq ind1 (vl-position p1 lst)
       ind2 (vl-position p2 lst)
 )
 (if (    (member p1 (reverse (member p2 (reverse lst))))
   (member p2 (reverse (member p1 (reverse lst))))
 )
)

[chris_mtp]

Merci Gile,

Les deux fonctions marchent nickel mais la seconde correspond exactement à ma demande.

John.