Comment fixer l'échelle d'une fenêtre

[DenisHen]

Bonjour à tous.

 

Voilà, je cherche à fixer (ou attribuer) une échelle à une fenêtre de l'EP.

 

Je n'ai rien trouvé dans les Xdata (Ouf, je ne les comprend pas toujours).

 

Y-a-t'il une solution en Lisp (ou VLisp) bien-sur...

[Patrick_35]

Salut

 

En vlisp avec la propriété CustomScale

 

Pour le dxf, extrait de l'aide

Le facteur ZOOM XP est calculé à l'aide de la formule suivante : groupe_41 / groupe_45 (ou hauteur_espacepapier / hauteur_espaceobjet)

 

@+

[DenisHen]

Salut Patrick_35, et merci pour cette réponse. Je n'avais pas trouvé ça...

 

Ça veux dire que, si mon code 41 est à 1, le code 45 sera celui de l'échelle (5 pour du 200, 4 pour du 250...) ?

 

Mais est-il possible de faire un (entmod sur un viewport ?

[Patrick_35]

Ça veux dire que, si mon code 41 est à 1, le code 45 sera celui de l'échelle (5 pour du 200, 4 pour du 250...) ?

Oui

Mais est-il possible de faire un (entmod sur un viewport ?

Toujours extrait de l'aide

You cannot use the entmod function to modify a viewport entity.

 

@+

[DenisHen]

You cannot use the entmod function to modify a viewport entity.

Ben alors comment faire pour changer ces codes sans (entmod ? Car là, je vois pas...

[Patrick_35]

Je t'ai indiqué la propriété en vlisp

 

Ou sinon, avec la commande zoom --> ...xp

 

@+

[DenisHen]

J'avais pas compris... Désolé, j'ai donc fais un petit test et ça fonctionne...

 

Le voici :

(defun c:test_PropVal ()
 (setq ent_bloc (entsel "\nSélectionnez le fenêtre : "))
 (setq ent_bloc (car ent_bloc))
 (vl-catch-all-apply 'setpropertyvalue (list ent_bloc "CustomScale" 4))
) ;_ Fin de defun

Encore merci Patrick...