sélection de texte par taille

[x_all]

Bonjour

j'ai un archi qui a la salle habitudes de poser tous ses textes dans le même calque. De tous ces textmult je voudrai passer sur un autre calque (Nom-piece) tous les texte ayant la même taille qu'un que je sélectionne.

Quelle est la propriété à interroger?

 

[PHILPHIL]

hello x_all

 

 

essai ca

 

ca devrait redistribuer dans un calque

suivant le type de texte, sa couleur, sa hauteur

 

dit moi si ca marche

 

Phil

 

(defun c:modifier_texte_calque_suivant_hauteur ()
 (vl-load-com)
 (setvar "cmdecho" 0)
 (setvar "dimzin" 0)
 (setvar "osmode" 0)
 (prompt "\nCLIQUER SUR LES OBJETS A DEPLACER DE CALQUE :")
 (setq entites nil)
 (while (null entites) (setq entites (ssget '((0 . "text,mtext")))))
 (setq compt 0)
 (setq com (sslength entites))
 (while (< compt com)
   (progn (setq ent1 (ssname entites compt))
          (setq code1 (cdr (assoc -1 (entget ent1))))
          (setq ena1 (vlax-ename->vla-object code1))
          (setq typeobjet (vla-get-objectname ena1))
          (setq proper1 (vlax-get-property ena1 'truecolor))
          (setq colorr (vlax-get-property proper1 'colorindex))
          (setq ligntype (vla-get-linetype ena1))
          (setq eplign (vla-get-lineweight ena1))
          (setq hautexte (vla-get-height ena1))
          (setq calquenew (strcat "CALQUE " typeobjet " " (rtos hautexte 2 5) " " (rtos colorr 2 0)))
          (if (or (= colorr 256) (= colorr 0))
            (setq colorr 7)
          )
          (if (= (tblsearch "layer" calquenew) nil)
            (vl-cmdf "-calque" "n" calquenew "co"
                     colorr calquenew "in" calquenew "")
          )
          (vla-put-layer ena1 calquenew)
          (vlax-put-property proper1 'colorindex 256)
          (vlax-put-property ena1 'truecolor proper1)
          (vla-put-lineweight ena1 -1)
          (setq compt (1+ compt))
          (prompt (strcat "\rENTITE DEPLACEE : " (rtos compt 2 0) " SUR : " (rtos com 2 0) " "))
   )
 )
)

[GEGEMATIC]

salut,

(ssget "x" '((0 . "MTEXT,TEXT") (40 . 2.5)  (8 . "TonCalque") (7 . "Tonstyle detexte") ))

Par contre, si la taille est forcée dans le mtext, là ça marchera pas, le 2.5 peut en fait s'applique à du texte faisant 1

a+

gégé

[(gile)]

@PHILPHIL,

 

Juste une remarque en passant, au début de ton code tu fais :

  (setvar "cmdecho" 0)
 (setvar "dimzin" 0)
 (setvar "osmode" 0)

Ce qui semble être une habitude (voire un tic) puisque dans la suite du code il n'y a aucun appel à (command ...) qui justifierait de toucher à CMDECHO ni aucune instruction qui pourrait interagir avec OSMODE.

Ça pourrait être juste inutile si tu remettais les variables à leur valeur initiale, mais ce n'est pas le cas, là tu modifies l'environnement de ceux qui utiliseront ta routine et qui s'étonneront par la suite que des variables système "sautent".

 

En règle générale, en programmation, on évite de faire des choses inutiles, mais surtout, quand on modifie l'environnement uniquement pour les besoins de l'exécution de la routine, on s'assure que l'environnement initial est bien restauré, et ce, quoi qu'il advienne. Donc, la bonne habitude ce n'est pas de systématiquement désactiver les accrochages aux objets ou l'écho des invites de commande, mais bien d'avoir une gestion d'erreur qui garantisse que l'environnement initial sera restauré même si une erreur intervient ou que l'utilisateur fait Ecahp (ce qui est traité comme erreur par AutoCAD).

[didier]

Coucou

 

Eh oui !!!

Copier-coller... quand tu nous tiens....tu nous fais faire des bêtises...

 

[PHILPHIL]

HELLO Gile

 

c'est un TOC meme, c'est surtout un copier coller, d'autre lisp

 

je ne suis pas programmeur a la base, puis si ca marche je ne cherche pas non plus a etre hyper puriste sur le code.

tant que ca ne plante pas autocad, je fais avec et je m'énerve sinon, ( ce qui soit dit en passant ne fait pas avancer les choses )

 

puis tu vas me dire y'a plein d'autres lignes dans le code qui ne servent a rien, et que je n'ai pas non plus effacé.

 

bon week end

 

Phil

[(gile)]

@PHILPHIL, si tu lis attentivement mon message, le problème n'est pas tant les expressions inutiles qui ne font qu'alourdir le code (et son exécution) que le fait que tu modifies des variables système : par exemple, exécuter ta routine désactive tous les accrochages aux objets, certes ça ne plante pas AutoCAD mais ce n'est pas vraiment ce qu'est censé faire la routine.