Dimensions d\'un block

[Roland_9]

Bonjour,

 

Je commence en VBA pour Autocad.

 

Mon but est de récupérer des attributs de textes sur des blocks d'un plan A0 à A4.

 

Je veux également connaître la position de chaque block sur le plan dont la mise en page (Traits périphériques, cartouche, etc..) est elle aussi un block.

 

Pour cela j'ai donc extrait l'ensemble des blocks qui m'intéressaient et récupéré les textes.

 

Mon problème est le suivant :

 

Comment trouver les dimensions du block qui sert de mise en page au plan ?

 

Car dans les propriétés des blocks seules les coordonnées du point d'insertion et les facteurs d'échelles sont accessibles.

 

Merci d'avance pour votre aide.

[eagle4]

Salut Roland_9

 

ThisDrawing.Application.ZoomExtents

Ptmin = ThisDrawing.GetVariable("EXTMIN") ' Ptmin = l'extrémité inférieur gauche

 

Ptmax = ThisDrawing.GetVariable("EXTMAX") ' Ptmax = extrémité supérieur droite

 

@+

 

Eagle4

 

 

:yltype:

[Roland_9]

Merci eagle4

 

Ces fonctions me permettent de connaître les coordonnées des blocks sur mon plan.

 

Mais cette solution ne donne pas exactement les dimensions des blocks. Si un petit futé pace quelques blocks en attente hors du block du plan, je pense que les dimensions seront fausses.

 

Est-ce vraiment irréalisable de connaître les dimensions de blocks ?

 

Précision oubliée j'utilise AutoCAD 14. Hé oui !!

 

 

[Serge]

Roland 9

 

En présumant que tu as un bloc nommé "test", voici en quelques lignes comment connaitre les limites de ce bloc. Valable en R14.01

 

Dim blockRefObj As AcadBlockReference

Dim minExt As Variant

Dim maxExt As Variant

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "test", 1#, 1#, 0)

blockRefObj .GetBoundingBox minExt, maxExt

 

Serge

 

[Roland_9]

Bonjour Serge,

 

En effet la bonne fonction est "GetBoundingBox minExt, maxExt".

 

Je récupère bien les dimensions min et max des blocks que je traite.

 

Merci à tous les deux