en passant par la fenetre

[capde06]

Help

je voudrais récuperer la valeur echelle d'une fenetre dans l'espace papier

 

le prog commence comme ca

(setq ent (entget(car(entsel "\nChoix de la fenetre :"))))

 

 

je narrive a trouver le code dxf de l'echelle

 

le but est de me faire une macro qui ecrit automatiquement l'echelle "1/200" sachant que mon unité de dessin est le metre

jai essaye avec les champs mais il me donne 5:1

 

D'avance merci

[rebcao]

Ce paramètre n'apparait pas directement !

 

Il faut utiliser la Taille de la fenêtre ( sa HAUTEUR = code DXF 41) puis passer dans la fenêtre en Espace Objet et lire la valeur de la variable système VIEWSIZE...

 

et en principe VIEWSIZE / HAUTEUR = ECHELLE voir ensuite pour les unités si cm, m ou mm

 

Christian

 

[Edité le 1/2/2006 par rebcao]

[capde06]

Jai trouvé une autre solution

dans le menu "format" "liste des echelles"

j'ai redefini une nouvelle echelle 1/200

unités papier 5 = unités dessin 1

 

dans l'espace papier

je regle l'echelle de la fenetre via les propriété "echelle perso" 1/200

 

je creai un Mtext avec un champ qui va chercher l'echelle de la fenetre

resultat

"Echelle 1/200" en automatique

ca marche nickel

 

merci quand meme

Rebcao

 

[Tramber]

Pour les DXF, ca se trouve dans la banque des VIEWPORT, je n'utilise jamais mais je sais que l'on doit passer par tblsearch.

 

Arrêtez-moi si je dis une bétise.

 

Sinon :

 

(vla-get-customscale(vlax-ename->vla-object(car(entsel))))

 

Le Vlisp est au poil pour ça.

[capde06]

merci a vous

ma fonction marche

la petite macro vlisp marche tres bien

je crois que je vais me mettre au vlisp

 

[bonuscad]

Autre voie sans passer par les fonctions (vla-)

 

(setq dxf_vport (entget (ssname (ssget "_:S" '((0 . "VIEWPORT"))) 0)))

(/ (cdr (assoc 41 dxf_vport)) (cdr (assoc 45 dxf_vport)))

[bonuscad]

Encore un autre moyen très concis (vu sur le forum US d'AutoDesk)

 

(last (trans '(0 0 1) 3 2)) 

 

Qui trouvera plus court ? :P