Échelle du dessin

[DenisHen]

Bonjour à la communauté.

 

Voilà, j'ai écris, il y a quelques temps, un petit bout de code dont je me sers tout le temps.

 

Je me dis aujourd'hui : Ben pourquoi tu ne l'as jamais partagé ?

 

Je corrige donc cet oubli...

 

Ce code enregistre dans le dessin une échelle saisie. Pas celle de Covadis ou autre, mais bien une échelle qui me sert lorsque j'écris un texte ou insert un bloc... Le voici :

  (setq ech (vlax-ldata-get "DenisH" "Ech"))
 (if ech
   (princ (strcat "\t\tEchelle : 1/" (rtos ech 2 0)))
   (progn (setq ech (getreal "\t\tÉchelle du dessin  1/"))
          (vlax-ldata-put "DenisH" "Ech" ech)
   ) ;_ Fin de progn
 ) ;_ Fin:if

 

Lorsque je lance un Lisp qui écrit un texte, ou qui insert un bloc, je place ce code en début de Lisp...

 

J'utilise ensuite l'échelle stockée pour définir la taille de ce texte, ou l'échelle d'insertion d'un bloc...

 

J'ai aussi cette commande qui demande de saisir l'échelle. Pratique lorsqu'on veut la changer :

(defun c:ChangEchelle (/ ech)
 (setq ech (vlax-ldata-get "DenisH" "Ech"))
 (if ech
   (princ (strcat "\n\tÉchelle : 1/" (rtos ech 2 0)))
 ) ;_ Fin de if
 (setq ech (getreal "\tÉchelle du dessin  1/"))
 (if (= ech "")
   (princ "\nÉchelle inchangée...")
   (vlax-ldata-put "DenisH" "Ech" ech)
 ) ;_ Fin de if
 (princ)
) ;_ Fin de defun

Voilà, j'espère que ça profitera à d'autre...

 

Denis...