Recuperer objet selectionne

[lenoil]

bonjour à tous,

 

je souhaite récupérer sous autocad Map les coordonnées x et y maximales et minimales

 

 

Comment puis je faire ceci en lisp?

Avez vous un exemple?

 

Merci car je suis perdu

[(gile)]

Salut,

 

pt_lst est la liste de coordonnées,

minpt le point avec les x y et z minimums de la liste

maxpt le point avec les x y et z maximums de la liste

Nota : minpt et maxpt n'appartiennent pas forcément à ma liste, c'est l'équivalent des points retournés par (vla-get-boundingbox ...) sur une polyligne dont pt_lst serait la liste des coordonnées.

 

(setq minpt (apply 'mapcar (cons 'min pt_lst)))
(setq maxpt (apply 'mapcar (cons 'max pt_lst))) 

 

Exemple :

 

(setq pt_lst '((1 4) (3 2) (5 0)))

 

minpt : (1 0)

maxpt : (5 4)

 

J'espère que ça correspond à ta demande.

 

[Edité le 15/11/2006 par (gile)]

[(gile)]

Comme j'ai vu que tu postais aussi à propos des BoundingBox :

 

obj : le vla-object dont on veux trouver la BoundingBox

 

(vla-getBoundingBox obj 'minpt 'maxpt)
(setq minpt (vlax-safearray->list minpt))
(setq maxpt (vlax-safearray->list maxpt))