trouver le centre d'un groupe d'objet

[juju]

J’aimerais en vb de préférence.

 

1) faire un zoom étendu

 

2) puis trouver les coordonnées du point central de l'ensemble des objets affichés.

 

merci!

[Invité Pat35]

En vb, je ne sais pas, mais voici un exemple en lisp

 

(setq pt1 (getvar "extmin")) ; point inférieur gauche du dessin

(setq pt2 (getvar "extmax")) ; point supérieur droit du dessin

(setq x (+ (/ (- (car pt2) (car pt1)) 2) (car pt1)))

(setq y (+ (/ (- (cadr pt2) (cadr pt1)) 2) (cadr pt1)))

 

 

voir aussi pour les variables limmax,limmin,vsmax et vsmin selon les

besoins

______________________________________________________________________

Ce message et toutes les pièces jointes (ci-après le "message")

sont confidentiels et établis à l'intention exclusive de ses destinataires.

Toute modification, édition, utilisation ou diffusion non autorisée

est interdite.

Tout message électronique est susceptible d'altération.

La société et ses filiales déclinent toute responsabilité

au titre de ce message s'il a été altéré, déformé, falsifié,

édité ou diffusé sans autorisation.

 

This message and any attachments (the "message")

are confidential and intended solely for the addressees.

Any unauthorised alteration , printing , use or dissemination

is prohibited.

E-mails are susceptible to alteration.

Neither company nor any of its subsidiaries or affiliates

shall be liable for the message if altered, changed, falsified,

printed or disseminated without authorisation.

______________________________________________________________________