Bonjour, Je n'arrive pas à retourner chaque x,y,z de chaque coin d'un polygone

Merci si quelqu'un voie mon problème, mon code retourne toujours le premier coin gauche

Le voici et merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(defun c:test ()
	(prompt "\nSelectionnez l'élément : ")
	(setq a (ssget))
	(setq c4 0)
	(if (/= a nil) (setq c4 (sslength a)))
	(setq c3 c4)
	(while (> c3 0)
		(setq e3 (ssname a (- c3 1)))
		(setq s (entget e3))
	  	(setq c3 0)
 
	  	(setq xy1 (cdr (assoc 10 s)))
 
	)
	(princ xy1)
  	(princ)
)
PS: créer un rectangle ou bien un polygone fermé