Autocad LISP (polygone)

Version imprimable

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:

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é

22/07/2010, 11h34
Patrick_35

Salut

Code:

(vl-remove-if-not '(lambda(x)(eq (car x) 10)) (entget (car (entsel))))

Ou encore

Code:

(mapcar 'cdr (vl-remove-if-not '(lambda(x)(eq (car x) 10)) (entget (car (entsel)))))

@+
21/09/2010, 08h17
clovis

(vlax-get(vlax-ename->vla-object(car(entsel)))'coordinates)
21/09/2010, 08h25
Patrick_35

Citation:

Envoyé par clovis

(vlax-get(vlax-ename->vla-object(car(entsel)))'coordinates)

Salut

Oui, mais tu n'as qu'une suite de chiffres et en 2D

@+
21/09/2010, 10h32
clovis

si tu as une 3D poly
(setq a3Dp (vlax-ename->vla-object(car(entsel))))
;;check 3d poly
(=(vlax-get a3Dp 'ObjectName)"AcDb3dPolyline")
;;coordinates
(vlax-get a3Dp 'coordinates)
;;dans mon cas
(88.0423 206.435 0.0 103.656 215.286 100.0 119.27 204.804 200.0 112.045 191.295
300.0)

avec 0.0 100.0 200.0 et 300.0 les valeurs de Z