Coordonnées d\'un block

[dfbiagio]

Bonsoir à tous,

Je voudrai extraire le point d'insertion d'un block type (10 -479.394 577.392 0.0) mais pas le point d'inserction avec l'ucsword mais celui avec un ucs personnel.

Merci d'avance

[(gile)]

Salut,

 

Le point d'insertion d'une référence de bloc retourné dans le code DXF 10 est donné en coordonnées dans le SCO (le sytème de coordonnées de l'objet).

 

On peut traduire ces coordonnées dans un autre système de coordonnées avec la fonction trans.

 

Exemple :

 

(setq bl (car (entsel "\nSélectionnez un bloc)))

(setq ins_pt (cdr (assoc 10 (entget bl))))

 

Pour traduire ces coordonnées dans le SCU courant :

(trans ins_pt bl 1)

 

Pour traduire ces coordonnées dans le SCGénéral :

(trans ins_pt bl 0)

 

Tu peux voir la fonction trans dans l'aide aux développeurs >> AutoLISP Refernce >> AutoLISP Functions et ce sujet

 

[Edité le 23/9/2006 par (gile)]

[dfbiagio]

Merci pour ta réponse, mais pourrais tu m'éclairer sur la fonction "trans"

merci

[(gile)]

La fonction trans sert à traduire les coordonnées d'un point d'un système de coordonnées à un autre.

 

(trans pt 1 0) traduit les coordonnées de pt dans le SCU courant (1) en coordonnées dans le SCG (0)

 

inversement, (trans pt 0 1) traduit les coordonnées de pt dans le SCG (0) en coordonnées dans le SCU courant (1)

 

Pour certaines entités (lwpolyline, arc, cercle, blocs...), le code DXF 10 est défini dans le système de coordonnées de l'objet (SCO), dans ces cas l'argument à passer à la fonction trans est soit le nom d'entité (ename) de l'objet (comme dans l'exemple ci-dessus) ou les coordonnées du vecteur d'extrusion de l'objet (code DXF 210 de l'objet).

 

L'exemple ci-dessus aurait pu s'écrire :

 

(trans ins_pt (cdr (assoc 210 (entget bl))) 1)

[dfbiagio]

Ok merci