Ajuster les Poignées des textmult

[yusukens82]

Bonjour

 

ces derniers temps, je passe mon temps à ajuster chaque poignées des TEXTMULT de mes projets 1par 1.

 

ci joint une vidéo de la manipulation que je fais depuis sans arret :

http://yusukens.free.fr/CADXP/Poignee_textmult.zip

 

ma procédure :

double clic sur le texmult,

double clic sur la marche verticale (pour ajuster les poignées)

et double clic sur la marche horizontale (pour ajuster les poingées)

 

Pensez vous qu'il est possible de faire un LISP permettant de :

- sélectionner le(s) texmult(s)

- Lancer l'application LISP pour le(s) ajuster automatiquement

 

 

Sinon avez vous une meilleur méthode pour ajuster les poigner plus rapidement ?

 

Meci

[(gile)]

Salut,

 

Personnellement, je fais tous les mtext en largeur = 0.0 (comme ça pas de soucis de poignées)

Voir dans ce sujet, une macro et un LISP de zebulon_ qui permettent de faire des mtextes de largeur 0.0.

 

Pour mettre tous les mtextes d'un dessin en largeur 0.0 :

 

(defun c:mtxt0	(/ ss n elst)
 (and
   (setq ss (ssget "_X" '((0 . "MTEXT"))))
   (repeat (setq n (sslength ss))
     (setq elst (entget (ssname ss (setq n (1- n)))))
     (entmod (subst '(41 . 0.0) (assoc 41 elst) elst))
   )
 )
 (princ)
)

[bonuscad]

Bonjour,

 

Avec réserve, peut être avec les quelques lignes qui suivent:

 

((lambda ( / js n dxf_ent)
 (setq js (ssget '((0 . "MTEXT"))))
 (cond
   (js
     (repeat (setq n (sslength js))
       (setq
         dxf_ent (entget (ssname js (setq n (1- n))))
         dxf_ent (subst (cons 41 (cdr (assoc 42 dxf_ent))) (assoc 41 dxf_ent) dxf_ent)
         dxf_ent (subst (cons 46 (cdr (assoc 43 dxf_ent))) (assoc 46 dxf_ent) dxf_ent)
       )
       (entmod dxf_ent)
     )
   )
 )
 (prin1)
))

[yusukens82]

Hooooo qu'est ce que je ferai sans le forum CadXp ?

 

Merci beaucoup, je ne savais pas que si on fixé la largeur à du multext à 0 nous pouvons continuer à travailler avec les "masques de texte"

 

 

Je trouve également que le lisp de bonuscad est très intéressant, cela correspond exactement à ce que je demande, je pourrai utiliser les deux lisp selon mes besoin

 

par contre, c'est la première fois que je vois un lips sans :

 

 

defun c:****

 

Ou est ce que je peux ajouter cette fonction dans la lisp pour permettre d'ajouter un raccourci clavier ?

 

Merci encore

 

 

 

 

 

[Edité le 5/2/2009 par yusukens82]

[(gile)]

Salut,

 

Tu supprimes la première parenthèse ouvrante et la dernière fermante puis tu remplaces lambda par defun c:toto

 

Un avantage de la largeur 0.0, c'est que si le texte est modifié, il n'est pas nécessaire de réajuster les poignées et s'il y a un masque d'arrière plan il suit automatiquement les modifications.

[yusukens82]

Tu travailles encore à cette heure-ci ?

Je viens de tester ta manipulation, Bravo et merci

 

La reproche que je fais en fixant la largeur du multitext = 0. et que lorsque nous avons besoin d’agrandir les poigner pour cacher un élément, nous le pouvons plus.

 

Du coup, le faite de fixer l’ensemble des Multitexte avec une largeur = 0 n’est parfois pas pratique.

 

Personnellement je préfère faire une sélection manuellement et fixer à 0 les élément souhaités.