texte multiple

[zebulon_]

bonjour,

 

 

lorsque autodesk a inventé les mtext, ça ne m'a pas plu parce qu'il faut d'abord faire une fenêtre dans laquelle le texte est confiné, j'ai trouvé cela gonflant. J'en suis donc resté au textes simples...

 

L'autre jour, en regardant une lrepere d'un peu plus près, je me suis dit que le texte de la ligne de repère est un texte multiple, pourtant il n'y a pas l'air d'y avoir de cadre autour. Effectivement, le texte de la lrepere a une largeur de 0 et, comme tout le monde le sait, 0 = infini.

 

Donc, vous faites

 

 

_mtext

 

puis vous spécifiez le 1er point

 

puis vous tapez _w (ou L) pour la largeur

 

puis 0

 

puis vous rentrez votre texte multi ligne

 

et comme le dit l'aide :

 

Si vous indiquez une largeur de 0, le retour à la ligne automatique est désactivé et la largeur de l'objet texte multiligne dépendra de la ligne de texte la plus longue.

ça permet aussi, je pense, d'utiliser les _mtext plus facilement dans des lisps ?

 

0=infini, oui. Infiniment c.. que je suis. Mettre 6 ans à trouver ça...

 

Isch kennt m'r gràd en de àrch bisse.

 

Amicalement

Zebulon_

 

PS : celui qui arrive à traduire la dernière phrase gagne une visite commentée de la cathédrale de Strasbourg à son prochain passage dans cette ville.

[(gile)]

Super !

 

Çà mérite une petite macro :

^C^C_mtext;\l;0;

[zebulon_]

C'est mieux comme ça. Ce qui est bête, c'est que la commande _mtext ouvre directement l'éditeur de texte après avoir règlé la largeur à 0, de sorte qu'on n'a plus accès aux autres paramètres.

Sauf si on clique à droite dans l'éditeur interne, on peut règler la justification a posteriori. Il y a juste la rotation qu'on n'arrive plus à définir. C'est embêtant...

 

Amicalement

 

Zebulon_

 

[zebulon_]

bon, je me suis fait ma commande mtext pour qu'elle ressemble à la commande texte classique

 

(defun c:mymtext (/ CURTXTST STHT CURHT PDEP TMP)
 (if (not TEXTROT) (setq TEXTROT 0.000))
 (setq CURTXTST (getvar "textstyle"))
 (if (zerop (setq STHT (cdr (assoc 40 (tblsearch "style" CURTXTST)))))
   (setq CURHT (getvar "textsize"))
   (setq CURHT STHT)
 )
 (prompt (strcat "Style de texte courant : \"" CURTXTST "\"  " "Hauteur de texte " (rtos CURHT)))
 (terpri)
 (setq PDEP (getpoint "\nSpécifier le point de départ : "))
 (if (zerop STHT)
   (progn
     (setq TMP (getdist (strcat "\nSpécifier la hauteur <" (rtos CURHT) "> : ")))
     (if TMP
       (progn
         (setq CURHT TMP)
         (setvar "textsize" CURHT)
       )
     )
   )
 )
 (setq TMP (getangle PDEP (strcat "\nSpécifier l'angle de rotation <" (angtos TEXTROT) "> : ")))
 (if TMP (setq TEXTROT TMP))
 (initdia)
 (command "_mtext" PDEP "_h" (rtos CURHT) "_r" (angtos TEXTROT) "_w" "0.00")
 (princ)
)

 

sauf que je n'ai pas trouvé la variable où autocad stocke la rotation du texte. Si quelqu'un a une idée ?

 

Amicalement

 

Zebulon_

[lecrabe]

 

Bonsoir

 

TIP TOP Mr/Mrs Zebulon ... :)

 

Je propose une nouvelle commande: _ZMT :D

 

comme Zebulon Multiple Text

 

Le Decapode "zébuloné"

 

[zebulon_]

Mr Zebulon

 

Le Zebulon "pincé"

[Tramber]

Isch kennt m'r grad en de arch bisse.

.....

PS : celui qui arrive à traduire la dernière phrase gagne une visite commentée de la cathédrale de Strasbourg à son prochain passage dans cette ville.

 

Si tu peux pas te le mordre, tu peux l'embrasser ? (je me suis fait traduire car je ne suis Alsacien que pour les saucisses et pas la langue).

[rebcao]

Oui mais la traduction et un peu SOFT , Bertrand...

 

C'était en fait ... de se mordre les fesses..... ;)

 

Christian

 

 

[zebulon_]

... de se mordre les fesses.....

 

c'est anatomiquement très difficile, mais c'est la bonne traduction.

 

Donc chose promise chose due, Bertrand et Christian ont gagné un visite commentée de la cathédrale de Strasbourg. On pourra attendre qu'il fasse un peu plus chaud, vers le printemps. On pourra observer le rayon vert, s'il n'y a pas de nuages.

 

http://img471.imageshack.us/img471/8590/dscn00095aj.jpg

 

Observez le personnage de droite, il s'agit de Juda (non pas Juda l'apôtre, mais Juda, un des ancêtres du Christ).

Son pied gauche est en verre clair peint en vert et non en verre à vitrail, d'où la naissance du rayon vert.

Il tourne sa tête vers le Sud-Est comme s'il attendait la venue du Soleil

et le vitrail en médaillon au dessus de sa tête représente un soleil.

 

 

http://img530.imageshack.us/img530/6774/dscn00165hv.jpg

 

Et le rayon tombe pile sur le dais au dessus de la tête du Christ en croix de la chaire de Geiler de Kaysersberg,

tous les midis solaire des jours d'équinoxe. C'est trop beau pour être le fruit du hasard.

Cependant, ce phénomène n'a été (re ?) découvert que vers 1980.

 

Amicalement

 

Zebulon_

 

[Edité le 21/12/2005 par zebulon_]

[rebcao]

Si tu veux utiliser la commande Texte Multiple en ligne de commande tu peux utiliser comme pour la plupart des commandes ! le - ( moins )...

 

[surligneur] _-MTEXT [/surligneur]

 

et merci pour la visite je t'envoie l'euro pour le guide...

 

Christian

[zebulon_]

oui, mais dans le lisp, si je n'avais pas mis le (initdia) avant la commande _mtext, elle aurait fonctionné comme _-mtext. Autrement dit, sans le initdia, l'éditeur ne s'ouvre pas et _mtext utilisé à l'intérieur d'une ligne (command "_mtext" ...) fonctionne en ligne de commande. Un peu comme les commandes _plot et _-plot.

 

Amicalement

 

Zebulon_

 

Merci pour l'euro.

[rebcao]

http://perso.wanadoo.fr/rebcao/CADxp/euro01.gif

 

merci pour la visite Monsieur le Guide, ;)

 

Je ne pouvais publier mes fichiers cette après-midi !!!!!!!!! :( :mad:

 

Christian

 

[Edité le 21/12/2005 par rebcao]

[Charon]

Bonjour,

 

Merci Zébulon, tu as au passage résolu un de mes problèmes : Faire en sorte que le masque d'arrière plan (sous 2006), s'adapte au texte dés qu'il est modifié, ce qui n'est pas le cas avec la zone prédéfini....

 

Cordialement,

[zebulon_]

entre temps, j'ai vu que j'avais oublié de traiter les accrochages aux objets

 

 
(defun c:mymtext (/ CURTXTST STHT CURHT PDEP TMP)
(if (not TEXTROT) (setq TEXTROT 0.000))
(setq CURTXTST (getvar "textstyle"))
(if (zerop (setq STHT (cdr (assoc 40 (tblsearch "style" CURTXTST)))))
(setq CURHT (getvar "textsize"))
(setq CURHT STHT)
)
(prompt (strcat "Style de texte courant : \"" CURTXTST "\" " "Hauteur de texte " (rtos CURHT)))
(terpri)
(setq PDEP (getpoint "\nSpécifier le point de départ : "))
(if (zerop STHT)
(progn
(setq TMP (getdist (strcat "\nSpécifier la hauteur <" (rtos CURHT) "> : ")))
(if TMP
(progn
(setq CURHT TMP)
(setvar "textsize" CURHT)
)
)
)
)
(setq TMP (getangle PDEP (strcat "\nSpécifier l'angle de rotation <" (angtos TEXTROT) "> : ")))
(if TMP (setq TEXTROT TMP))
(initdia)
(command "_mtext" "_non" PDEP "_h" (rtos CURHT) "_r" (angtos TEXTROT) "_w" "0.00")
(princ)
)

 

J'ai rajouté un "_non" avant la saisie du point d'insertion du texte pour que l'accroche objet soit inactif à ce moment là.

 

Amicalement

 

Zebulon_

 

[(gile)]

Salut Zebuon_,

 

J'ai complètement adopté ta commande, Texte miultiligne de longueur indéterminée.

 

Je me suis même fait une icone à partir du A de l'icone d'origine auquel j'ai rajouté un z pour Zebulon_ :)

[bonuscad]

Zébulon,

 

Ta démarche (très louable de vouloir améliorer) , comme tu l'as effectué, ne sert à rien.

En effet lors de la saisie du point PDEP avec l'accroche objet actif te retourne déjà le point associé à ce mode.

 

Je pense que tu pouvais laisser comme avant: l'utilisateur voit très bien en dynamique si l'accroche objet est actif pendant la saisie du point et il peut inactiver lui même si ca lui convient pas. (ha!... La liberté de choix) ;)

 

PS:

Ta démarche aurait été logique si le point PDEP avait été calculé ou modifié

 

[Edité le 20/1/2006 par bonuscad]

[zebulon_]

Je pense au contraire qu'elle sert à quelque chose.

 

Disons que le paramètre d'accroche objet est seulement activé sur extrémité et que, au moment où je fais le getpoint, je prend le milieu d'un segment avec le menu contextuel d'accroche objet (ou en tapant mil). Dans la variable PDEP, j'ai les coordonées du milieu du segment.

 

Lorsqu'on arrive à la ligne (command "_mtext" PDEP ...), le texte va s'attacher à l'extrémité du segment à cause des paramètres d'accroche objet extrémité et non pas au milieu (qui n'était activé que localement).

 

Chose qui ne se produit pas quand je fais (command "_mtext" "_non" PDEP ...)

 

Ce n'est pas la liberté de l'utilisateur qui m'intéresse dans le cas présent, mais il me semble qu'il vaut toujours mieux inactiver les paramètres d'accrochages aux objets, lorsqu'on utilise des commandes autocad, à l'intérieur d'un lisp, auquelles on injecte des coordonnées saisies au prélable ou des coordonnées calculées.

 

Il m'arrive aussi de faire, dans le même ordre d'idée :

 

 

(setq OLDOS (getvar "OSMODE"))
(setvar "OSMODE" 0)

(command ...)
(command ...)
(command ...)

(setvar "OSMODE" OLDOS)

 

pour ne pas être pollué par des accrochages aux objets au moment où les commandes s'exécutent toutes seules et ne requièrent pas l'intervention d'un opérateur.

 

Ou me trompe-je ?

 

Amicalement

 

Zebulon_

 

 

 

 

 

[bonuscad]

Ou me trompe-je ?

 

Où est le Calimero avec sa coquille sur la tête? :P

 

Tu as entièrement raison, remarque impertinente de ma part. J'ai "zappé" le mode ponctuel lors de la saisie du point. :(

 

Je complète: SEULE (entmake) échappe à cette précaution à prendre sur OSMODE ;)

[bonuscad]

Où est le Calimero avec sa coquille sur la tête?

 

Patrick (the wouaibmasteur), pourrait-on avoir un smiley avec un bonnet d'âne?

 

Histoire de se remettre en place sur nos propos. ;)

[zebulon_]

Même les plus grands font des erreurs. On t'aime bien quand même, va.

 

Amicalement

 

Zebulon_

[bonuscad]

les plus grands

 

Ben là je m'sens plutôt petit :cool:

 

J'essayerais de tourner 7 fois mon clavier avant de taper :exclam:

[Steven]

Mortel ce lisp de Zebulon,

Je ne suis plus obligé de mettre la largeur définie à 0 dans la fenêtre de proriétés.

En plus, le texte se met dans le sens du réticule si on est dans un snapang quelconque. Très utile.

 

:D

[zebulon_]

Mortel... c'est la 1ère fois qu'on qualifie mon boulot de mortel :) J'ai déjà tout eu, depuis "nul" jusqu'à "très bien", mais jamais "mortel".

Je kiffe trop "mortel".

 

Amicalement

Vincent