demande d\'aide pour Getboundingbox

[LUDWIG]

Bonjour,

 

Je fais un lisp pour redéfinir correctement les points d'insertion des blocs (qui n'a jamais été embêté par un bloc dont le point d'insertion est à 100 kilomètres ?).

 

Je pense "scanner" les blocs de la table et vérifier que le point d'insertion se trouve dans l'emprise du bloc... Si ce n'est pas le cas, je le rédéfinit au centre de l'emprise du bloc.

 

Et là, magie, la méthode [surligneur] GETBOUNDINGBOX [/surligneur]est là pour m'aider !

 

Sauf que je n'arrive absolument pas à la faire fonctionner...

 

Une ceinture noire pourrait-elle m'aider à comprendre (par exemple, via un programme qui demande de sélectionner un bloc à l'écran et place un point sur le mini et un point sur le maxi).

 

Merci à vous !

[Tramber]

(setq fir (cdr(assoc -2 (tblsearch "block" "nombloc"))) )
(vla-GetBoundingBox (vlax-ename->vla-object fir) 'minpoint 'maxpoint)

(vlax-safearray->list minpoint)
(vlax-safearray->list maxpoint)

 

Je sais faire un bounding entité par entité (contenues dans le bloc), ici, c'est la première entité.

 

[Edité le 23/3/2005 par Tramber]

[LUDWIG]

OK parfait !

 

Je vois que les coordonneés sont données par rapport au point d'insertion (normal puisque le bloc n'est pas forcement inséré dans le dessin).

 

Merci Tramber !

 

Et pour avoir le bloc entier :

 

 (setq fir (car(entsel)))

 

[Edité le 24/3/2005 par LUDWIG]