Le portail francophone de la géomatique

Bonjour,

Dans un gabarit .dwt  j'ai plusieurs types de blocs différents avec des attributs de type :
ECHELLE_X
ECHELLE_Y
ROTATION
ELEVATION

Je souhaiterai pouvoir alimenter les valeurs géométrie de manière automatique,
cela me permettrait de dimensionner tous mes blocs en une seule fois.
Je pense qu'un Lisp pourrai convenir pour cette opération.
L'inconvénient et que je ne sais pas faire de Lisp.

J'ai trouvé ceci sur http://www.4d-technologies.com/techcenter/ :
;; | ---------------------------------------------------------------------------
;; | BL_GetAttrHgt
;; | ---------------------------------------------------------------------------
;; | Function : Get the height of a block attribute
;; | Argument : 'ename'  - entity name of the block
;; |            'tag'    - tag name of attribute to edit
;; | Returns  : The height of the block attribute text
;; | Updated  : November 5, 2007
;; | e-mail   : rakesh.rao@texte-a-enlever.4d-technologies.com
;; | Web      : www.4d-technologies.com
;; | ---------------------------------------------------------------------------
(defun BL_GetAttrHgt ( ename tag / aname Hgt )
(setq
    aname (BL_FindAttr ename tag)        ; Search for attribute
    Hgt nil
)
(if aname
    (setq Hgt (LI_item 40 (entget aname)))
)
Hgt
)

J'imagine qu'il y a de l'idée. Quelqu'un saurait-il comment faire ?

Cordialement, Merci