Discussion :

[alexhoule]

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é

[Patrick_35]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[clovis]

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

[Patrick_35]

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

Salut

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

@+

[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