selection d\'objet juste crée ou rotation de ce dernier

[sechanbask]

Bonsoir, j'aimerai faire pivoter un Mtext que je viens juste de créer ou alors lui indiquer la direction (pas très facile car avant, je lui fait quelques modifications du point de base.

 

 

'point d'insertion

pins = ThisDrawing.Utility.GetPoint(, vbCrLf & "Veuillez choisir un point pour insérer le texte...")

 

 

 

'Création du text multiligne

taille = CSng(TextBox4.text)

decalage = (2 / 3 * taille) * 0.5 + taille

'Centrer en Y le texte

pins(1) = pins(1) + decalage

Set MTextObj = ThisDrawing.ModelSpace.AddMText(pins, width, texte)

MTextObj.Height = taille

MTextObj.Update

 

 

 

 

Bien sur, je serais pencher de préférence sur une méthode VBA mais si on me dit comment faire pour réaliser mon souhait, je suis pas contre le lancement de Lisp dans mon code. D'ailleurs vu mon envie de me mettre sérieusement à la programmation quelqu'elle soit... je suis près à presque tout. C'est tellement agréable de créer !!

[Bred]

Salut,

L'outil de rotation ne te convient pas ? (mais je n'ai pas dû comprendre.)

[sechanbask]

non j'aimerai que ça soit automatique

 

en fait je rentre le débit dans mon programme et il inscrit le débit avec la taille de la gaine mais comme les gaines ne sont pas toutes horizontales...

[Patrick_35]

non j'aimerai que ça soit automatique

Ca me parait difficile vu que tes gaines doivent être des traits et qu'il n'y a aucune intelligence, donc il est quasiment impossible d'associer le texte à la gaine et de là de définir son angle

Ce que tu peux faire, C'est de créer ton texte, puis lancer la commande rotation, d pour dernier

 

@+

[Bred]

Pour récupérer en lisp une entité venant juste d'être créer, c'est :

 

(setq ent (entlast))

... et tu as l'objet dans ent...

 

Par contre :

La gaine est une ligne, une polyligne ?

parcequ'on peut directement l'aligner sur l'objet.... sans rotation manuel....

 

[Edité le 15/12/2006 par Bred]

[sechanbask]

La gaine est une gaine bifilaire si elle est rectangulaire et trifilaire si circulaire. Le plus simple pour moi ça serait de faire un trait pour désigner le point du départ du texte et la direction du texte...

[sechanbask]

en fait c'est pour écrire le texte sur l'axe des gaine avant de les passer en bi et tri filaire... ça fait le dimensionnement de manière plus rapide.

[Bred]

Re,

j'ai vraiment du mal à comprendre quel est ton problème.

 

- Si tu veux aligner un texte déjà écris à une polyligne ou autre, il y a ce Lisp qui est déjà proposé. (pas de multiligne, mais si tu demandes gentiment je suis persuadé que l'auteur se fera un plaisir de l'adapter... ) ;)

 

- si tu veux diriger ton scu par rapport à un objet, tu as la commande autocad "SCU selon OBJET"

en lisp : (command "_ucs" "_ob" pause)

 

:casstet:

[sechanbask]

Merci Bred pour le coup de main mais Didier m'a répondu pour le faire en VBA... voilà le lien

 

http://www.cadxp.com/sujetXForum-13094.htm

 

Désolé j'ai pas réussi à te faire comprendre ce que je cherchais... je suis un piètre expéditeur :mad: