CHANGER HAUTEUR DE TEXTE

[PHILPHIL]

bonjour

 

pour ne plus avoir des textes avec des hauteurs non juste ( plein de chiffre apres la virgule )

et ne plus avoir a passer par la fenetre des propriétés.

 

voici un petit lisp pour changer la hauteur de : TEXTE MTEXT et ATTRIBUT.

 

appel de commande : TAA

 

il suffit d'appuyer sur les touches "+" "-" pour changer la hauteur des textes a 0.1 pres

ou resté appuyer

et "0" pour sortir du lisp

 

bon week end

 

;;; de gile
;;; ROUND-PREC Arrondit à la valeur la plus proche en fonction de prec
;;; (round pi 2) -> 3.14
;;; (round pi 5) ->3.14159
;;; (round 5456.50 0) -> 5457
;;; (round 5456.50 -1) -> 5460

(defun round-prec (num prec /)
 (setq rslt (/ (fix (+ (* num (expt 10.0 prec)) (/ (abs num) (* 2 num)))) (expt 10.0 prec)))
 (if (< 0 prec)
   rslt
   (fix rslt)
 )
)


;;;------------------------------------------------------------------
;;;CHANGE LA HAUTEUR DES TEXTES AVEC LES TOUCHES + OU -  EJECT AVEC 0
;;;  +  = touche N°43
;;;  -  = touche N°45
;;;  0  = touche N°48
;;;  enter  = touche N°13
;;;------------------------------------------------------------------

(defun C:TAA (/ ENTX)
 (setvar "cmdecho" 0)
 (setq ENTX NIL)
 (prompt "\nSELECTIONNER LE(S) TEXTE(S) MTEXTE(S) A MODIFIER :")
 (while (null ENTX) (setq ENTX (ssget '((0 . "TEXT,MTEXT,ATTDEF")))))
 (setq COM (sslength ENTX))
 (setq BOUCLE1 1)
 (while (= BOUCLE1 1)
   (initget "0 + -")
   (prompt "\nSELECTIONNER LE TYPE D'ACTION DESIRE ( 0 + - ) ")
   (setq ACTION (grread NIL 4 0))
   (if (= (cadr ACTION) 43)
     (progn (setq COMPT 0)
            (while (< COMPT COM)
              (setq HAUTEURTEXTE (vlax-get-property (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname ENTX COMPT))))) 'HEIGHT))
              (vla-put-height (vlax-ename->vla-object (cdr (car (entget (ssname ENTX COMPT)))))
                              (+ (ROUND-PREC HAUTEURTEXTE 1) 0.1)
              )
              (setq COMPT (1+ COMPT))
            )
            (if (= COM 1)
              (prompt
                (strcat "\nLA HAUTEUR DU TEXTE EST DE < " (rtos (+ (ROUND-PREC HAUTEURTEXTE 1) 0.1) 2 1) " >: ")
              )
              (prompt "\nLA HAUTEUR DES TEXTES A AUGMENTEE DE 0.1 :")
            )
     )
   )
   (if (= (cadr ACTION) 45)
     (progn (setq COMPT 0)
            (setq CHANG 0)
            (while (< COMPT COM)
              (setq HAUTEURTEXTE (vlax-get-property (vlax-ename->vla-object (cdr (assoc -1 (entget (ssname ENTX COMPT))))) 'HEIGHT))
              (if (> (- (ROUND-PREC HAUTEURTEXTE 1) 0.1) 0)
                (progn (vla-put-height (vlax-ename->vla-object (cdr (car (entget (ssname ENTX COMPT)))))
                                       (- (ROUND-PREC HAUTEURTEXTE 1) 0.1)
                       )
                       (setq CHANG (1+ CHANG))
                )
                (progn (prompt "\nLA HAUTEUR D'UN TEXTE N'A PAS ETE CHANGE CAR DEVENU NEGATIVE :"))
              )
              (setq COMPT (1+ COMPT))
            )
            (if (> COM 1)
              (progn (if (> CHANG 0)
                       (prompt "\nLA HAUTEUR DES TEXTES A DIMINUEE DE 0.1 :")
                     )
              )
              (progn
                (if (> CHANG 0)
                  (prompt
                    (strcat "\nLA HAUTEUR DU TEXTE EST DE < " (rtos (- (ROUND-PREC HAUTEURTEXTE 1) 0.1) 2 1) " >: ")
                  )
                  (prompt (strcat "\nLA HAUTEUR DU TEXTE EST DE < " (rtos (ROUND-PREC HAUTEURTEXTE 1) 2 1) " >: "))
                )
              )
            )
     )
   )
   (if (= (cadr ACTION) 48)
     (setq BOUCLE1 0)
   )
 )
 (princ)
)

(defun C:TESTTOUCHE ()
 (prompt "\nAPPUYER SUR UNE TOUCHE POUR CONNAITRE SON NUMERO SUR VOTRE CLAVIER ( 0 + - ) OU AUTRE : "
 )
 (setq ACTION (grread NIL 4 0))
 (prompt (strcat "\nLA TOUCHE SUR LAQUELLE VOUS VENEZ D'APPUYER A LE N° : "
                 (RTOS (cadr ACTION) 2 0)
                 " SUR VOTRE CLAVIER: "
         )
 )
   (princ)
)

 

 

phil

[lili2006]

Bonjour à toutes et tous,

Salut PHILPHIL,

Super, merci !

J'ai cependant cette erreur sur mon MAP 2019 :

Commande: TAA
SELECTIONNER LE(S) TEXTE(S) MTEXTE(S) A MODIFIER :
Sélectionner des objets: Spécifiez le coin opposé: 5 trouvé(s)
Sélectionner des objets:
SELECTIONNER LE TYPE D'ACTION DESIRE ( 0 + - )
Impossible d'appeler (command) à partir de *error* sans appeler préalablement (*push-error-using-command*).
Il est recommandé de convertir les appels (command) en (command-s).
Commande:

J'ai donc remplacé les deux occurences concernées depuis notepad + et j'ai maintenant ce message dés le lancement de la routine :

Commande: (LOAD "C:/Users/lili2006/Desktop/TAA.lsp") C:TAA
Commande: Régénération du modèle.
TAA
Impossible d'appeler (command) à partir de *error* sans appeler préalablement (*push-error-using-command*).
Il est recommandé de convertir les appels (command) en (command-s).

Merci d'avance,

[PHILPHIL]

hello lili2006

 

 

retire les lignes

(command-s "scu" "")

et

(command-s "scu" "p")

qui ne servent effectivement a rien dans le lisp

 

tu bosses sur ordi fixe ou un portable ?

 

les numéro de touche ne correspondent peut etre pas aussi

 

UN LISP pour tester les numeros de touche sur vos claviers

 

chez moi

le + = N°43

le - = N°45

le 0 = N°48

 

a remplacer le cas échéant dans le lisp

(if (= (cadr ACTION) 43)

 

(defun C:TESTTOUCHE ()
 (prompt "\nAPPUYER SUR UNE TOUCHE POUR CONNAITRE SON NUMERO SUR VOTRE CLAVIER ( 0 + - ) OU AUTRE : "
 )
 (setq ACTION (grread NIL 4 0))
 (prompt (strcat "\nLA TOUCHE SUR LAQUELLE VOUS VENEZ D'APPUYER A LE N° : "
                 (RTOS (cadr ACTION) 2 0)
                 " SUR VOTRE CLAVIER: "
         )
 )
   (princ)
)

[lili2006]

Re,

chez moi

le + = N°43

le - = N°45

le 0 = N°48

 

Tout pareil chez moi, et je bosse sur un portable.

 

[PHILPHIL]

hello lili2006

 

et ca marche maintenant ?

 

Phil

[lili2006]

Re,

J'ai ça maintenant :

Commande: TAA

Impossible d'appeler (command) à partir de *error* sans appeler préalablement (*push-error-using-command*).

Il est recommandé de convertir les appels (command) en (command-s).

Commande:

 

 

[PHILPHIL]

hello lili

 

tu as copié le lisp de GILE aussi

 

;;; de Gile
;;; ROUND-PREC Arrondit à la valeur la plus proche en fonction de prec
;;; (round pi 2) -> 3.14
;;; (round pi 5) ->3.14159
;;; (round 5456.50 0) -> 5457
;;; (round 5456.50 -1) -> 5460

(defun round-prec (num prec /)
 (setq rslt (/ (fix (+ (* num (expt 10.0 prec)) (/ (abs num) (* 2 num)))) (expt 10.0 prec)))
 (if (< 0 prec)
   rslt
   (fix rslt)
 )
)

 

 

Phil

[lili2006]

Re,

tu as copié le lisp de GILE aussi

Le boulet !

Heu, non,..Tout s'explique alors,..Désolé du dérangement, je testerai à nouveau dés que possible car cet outil me semble bien utile,..

Merci encore de ton sens du partage et de ton aide PHILPHIL,

[lili2006]

Bonjour à toutes et tous,

J'avais vu juste, cet outil est super !!

J'ai collé le code de Gilles à suivre du tien et en effet, la routine fonctionne à merveille !!

 

Merci PHILPHIL

Pour info, sur les textes "normaux" et ceux d'attributs, lorsque l'on arrive à une certaine limite inférieure, j'ai en ligne de commande : (Il ne semble pas y avoir de limite supérieure,...)

 

SELECTIONNER LE TYPE D'ACTION DESIRE ( 0 + - )

LA HAUTEUR DES TEXTES A DIMINUEE DE 0.1 :

SELECTIONNER LE TYPE D'ACTION DESIRE ( 0 + - )

Impossible d'appeler (command) à partir de *error* sans appeler préalablement (*push-error-using-command*).

Il est recommandé de convertir les appels (command) en (command-s).

Commande:

Commande: *Annuler*

[PHILPHIL]

hello lili

 

ca diminue de 0.1 en 0.1 sans tester,

je suppose qu'une fois que le texte fait zero ca bug car une hauteur de texte doit toujours etre positive

 

apres a chacun de voir en quelle unite il bosse et de changer le 0.1 en 0.01

 

Phil

[lili2006]

Re,

Oui, j'ai pensé comme toi !

Super en tout cas, adopter de mon coté !

Merci encore et bonne semaine à tous !!

 

[PHILPHIL]

hello

 

mise a jour et correction du bug si la hauteur du texte descend en dessous de zero

 

LISP dans le message #1

 

Phil

[rebcao]

Bonjour,

 

Et pourquoi ne pas prendre l'habitude d'utiliser tout simplement le mode ANNOTATIF ? Plus besoin de bidouille !

 

Christian

[PHILPHIL]

hello

 

je deteste ce truc, l'ordi a assez de calcul a faire sur les entites en 2d deja

 

le but du lisp n'est pas de remplacer l'annotatif

 

juste quand des fois des textes dans des cartouches sorte des cadres, ou de données une hauteur bien précise a des textes

 

phil