[Résolu] (command "txtdyn"... Mais je n'ai pas de texte

[DenisHen]

Bonjour à tous,

 

Voilà, j'ai fais une petite macro comme ça :

(defun c:testeTxtDyn ()
 (setq x_alpha 52.89)
 (setq Texte "TexteAPlacer")
 (setq xy (getpoint "\nSpécifiez un point d'insertion pour le texte : "))
 (command "txtdyn" xy x_alpha Texte "")
 ) ;_ Fin de defun

Pour aller avec la commande "txtdyn" sur AutoCAD qui se fait comme ça :

Commande: TXTDYN
Style de texte courant:  "Standard"  Hauteur de texte:  0.20  Annotatif:  Non  Justifier:  HC
Spécifiez le milieu du texte ou [Justifier/Style]: ;je clique un point
Spécifiez l'angle de rotation du texte <75.1654g>:52.89 ;je rentre l'angle
Et là, je tape le texte

 

Seulement, ma macro attend une saisie "manuelle" du texte...

 

Et je ne sais pas pourquoi...

 

Si quelqu'un a une solution...

 

Denis...

[VDH-Bruno]

Slt,

 

Essaye avec -texte, qui de mémoire correspond à la ligne de texte unique, avant la fusion des commande texte et txtdyn..

 

(defun c:testeTxt ()
 (setq x_alpha 52.89)
 (setq Texte "TexteAPlacer")
 (setq xy (getpoint "\nSpécifiez un point d'insertion pour le texte : "))
 (command "-texte" xy "" x_alpha Texte)
)

 

 

Edit: Si je ne me trompe de mémoire le problème de txtdyn et le même que pour la commande mainlev, ils utilisent le mode dynamique du périphérique de pointage ce qui fait qu'ils ne sont pas "macrotable" sans la validation de l'utilisateur

 

A+

Modifié le 27 avril 2015 par VDH-Bruno

[DenisHen]

Salut Bruno,

 

Ca fonctionne nikel ! !

 

C'était bien "-texte" qu'il fallait écrire et non "txtdyn" ! ! !

 

Encore merci ! !