texte en colonne

[pointpower]

Bonjour,

 

Comment peut on écrire du texte verticalement avec l'éditeur de texte.

 

Merci

[-Olivier-]

Bonjour Pointpower,

 

Tu as 2 possibilités :

- Pour les polices shx (txt, complex,...) tu as une option direction accessible soit dans les propiétés de l'objet textmult soit directement en style de texte. Malheureusement non disponible pour les polices true type (Arial, Comic, TNR,...). :(

 

- Pour les autres polices, mettre un espace entre chaque caractère puis mettre une largeur de texte suffisament faible. :(

 

Olivier

[-Olivier-]

Bonjour,

 

Voilà un petit lisp fonctionnant sur un texte simple de manière plus rapide :) .

 

;;; Modifie un texte horizontal en un textmult vertical
;;; -Olivier- le 16/06/2012 v1.0
(defun c:texte_col (/ *error* echo ss1 ent listtxt listtxt2 nbtxt)
 (defun *error* (errmsg)
   (setvar "cmdecho" echo)
   (princ errmsg)
   )
 (setq echo (getvar 'cmdecho))
 (setvar "cmdecho" 0)
 (setq ss1 (car (entsel))
ent (entget ss1)
listtxt (cdr (assoc 1 ent))
listtxt2 ""
nbtxt 1
)
 (repeat (strlen listtxt)
   (setq listtxt2 (strcat listtxt2 (substr listtxt nbtxt 1) "\\P")
  nbtxt (+ nbtxt 1)
  )
   )
 (entmod (subst (cons 1 listtxt2) (assoc 1 ent) ent))
 (command "_txt2mtxt" ss1 "")
 (setq ent (entget (entlast)))
 (entmod (subst (cons 41 (/ (cdr (assoc 40 ent)) 2)) (assoc 41 ent) ent))
 (setvar "cmdecho" echo)
 (princ)
 )

 

 

Olivier

[pointpower]

Re,

 

Merci Olivier je vais essayer l'astuce avec l'espace.

 

A+

[TontoCad]

Bonjour,

 

1/ J'ai copié le LISP et je l'ai enregistré dans le répertoire "support" sous le nom : "texte_col"

2/ Sous Autocad, je l'ai chargé de manière à le rendre actif.

3/ lorsque je tape au clavier : " texte_col", la commande est bien reconnue.

4/ il me demande de faire un choix sur l'objet.

5/ Lorsque je clique sur du texte, il se passe que mon texte est complètement illisible et ne correspond pas du tout à ce que j'ai tapé initialement.

 

Ma question, est-ce que cette routine est valable pour tous les types de texte d'AutoCad ?

 

Merci de vos réponses. :)

[-Olivier-]

Bonjour,

Les express Tools sont ils chargés sur ton poste ?

Olivier

[VDH-Bruno]

Salut,

 

Evite également de lancer le lisp sur les textes multiples qui contiennent trop de caractères de pagination, c'est derniers n'étant pas exclut du traitement dans la routine, ils seront traité comme du texte et apparaitrons dans l'écriture en colonne de ce dernier.

 

A+

[TontoCad]

Merci de vos réponses :)

 

Bonjour,

Les express Tools sont ils chargés sur ton poste ?

Olivier

Oui, ils le sont :)

 

Salut,

 

Evite également de lancer le lisp sur les textes multiples qui contiennent trop de caractères de pagination, c'est derniers n'étant pas exclut du traitement dans la routine, ils seront traité comme du texte et apparaitrons dans l'écriture en colonne de ce dernier.

 

A+

Je tape seulement la commande "texte", je ne me suis pas servi de "TextMult". :)

[-Olivier-]

Cette routine est largement perfective mais comme elle était restée sans suite.

Je n'arrive pas à la faire bugger comme tu le mentionne TontoCad. Si tu as une idée Bruno...

 

Olivier

[VDH-Bruno]

Re,

 

Cette routine est largement perfective mais comme elle était restée sans suite.

Je n'arrive pas à la faire bugger comme tu le mentionne TontoCad. Si tu as une idée Bruno...

Olivier pour moi le code est bon.

 

Je tape seulement la commande "texte", je ne me suis pas servi de "TextMult". :)

Même avec la commande texte tu peux avoir des surprises, par exemple en insérant des codes ASCII pour avoir acces à des caractères spéciaux, les codes %%U (souligné), %%P, %%C ect….

Ce qu’il faut nous dire c’est ce qu’il y a dans ton texte, avec un extrait de dwg ou y verrais certainement plus clair.

A+ Bruno

[TontoCad]

Voici des images de la manière dont je procède et voyez plutôt le résultat :

 

http://imagizer.imageshack.us/v2/150x100q90/850/oqcth.jpg

http://imagizer.imageshack.us/v2/150x100q90/856/iiax.jpg

[-Olivier-]

Je regarderais chez moi car les images sont bloquées par la boite.

Olivier

[TontoCad]

Je regarderais chez moi car les images sont bloquées par la boite.

Olivier

 

Merci Olivier ;) et bon week-end à lundi

[VDH-Bruno]

Re,

 

Le texte résultant n'est pas un texte multiple?

 

Problème avec la commande convert Text to Mtext des Express Tools qui ne se lance pas, je pense..

 

Execute _txt2mtxt sur la ligne de commande AutoCAD, que ce passe t'il?

 

A+

 

(Ps: idem pour les images miniature trop petite)

[TontoCad]

Il me notifie que la commande est inconnue.:(

[bonuscad]

Pour être sur que la fonction est chargée on peut placer la ligne

(arxload "leaderex.arx")

en tout début de fichier (comme on peut le faire avec "vl-load")

Je pense qu'après cela devrait fonctionner...

[TontoCad]

Non plus :(

[VDH-Bruno]

Re,

 

Regarde si tu ne peux pas réparer/réinstaller les Express Tools sur ton post, le problème vient de là et non du lisp d'Olivier.

 

A+