Retournement de tous les textes de 200gr

[Invité Tayou57]

Bonjour,

 

Je dois retourner un plan (retournement de vue dans la fenêtre de l'espace papier).

En utilisant TORIENT, je peux donner un angle unique pour tous les textes sélectionner.

Je voudrais retourner les autres textes (angles différents)de 200 grade chacun.

S'il y a une manip pour retourner tous les textes, je suis preneur.

 

merci de me l'indiquer.

[lecrabe]

Hello

 

Une reponse rapide sans AutoCAD et sans trop reflechir !

 

Il te faut sans doute une routine Lisp/VLisp qui a ete diffusee ici (si je me souviens bien !?)

et qui permet de faire une Rotation relative des Textes/MTextes par rapport a leur point d'Insertion

 

Ou sinon a developper / Re-developper ...

 

lecrabe

[Invité Tayou57]

Hello

 

Une reponse rapide sans AutoCAD et sans trop reflechir !

 

Il te faut sans doute une routine Lisp/VLisp qui a ete diffusee ici (si je me souviens bien !?)

et qui permet de faire une Rotation relative des Textes/MTextes par rapport a leur point d'Insertion

 

Ou sinon a developper / Re-developper ...

 

lecrabe

 

merci lecrab, je vais chercher

[Invité Tayou57]

RE-Bonjour,

 

je n'ai pas trouvé de lisp... :(

[FormaBois]

Salut,

une autre solution avec les outils de bases :

- Geler tous les calques sauf celui des textes

- Orienter un seul texte correctement

- CORRESPROP ('_MATCHPROP) sélectionner le texte correctement orienté

- Faire une sélection globale des autres textes à orienter

[Invité Tayou57]

Merci FormaBois

 

Mais je ne voudrais pas orienter les textes sur un seul angle de rotation, mais chaque texte retourné de 200gr relatif à l'angle de départ (plusieurs textes à angles de rotation différents). Les textes à retourner sont alignés sur des lignes de réseaux électriques. Sinon je suis obligé de les retourner de 200gr un par un.

 

Merci encore

[bryce]

Bonjour,

 

Essaie ce petit Lisp:

(defun C:ROTEXT ( / ss ass rot ) 
 (vl-load-com)
 (if (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
   (progn
     (setq ass (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
           ss nil
           rot (getangle "\nAngle de rotation: ")
     )
     (vlax-for text ass
       (vla-put-Rotation text (+ rot (vla-get-Rotation text)))
     )
     (vla-delete ass)
   ) ; progn
 ) ; if ss
 (princ)
)

[Invité Tayou57]

Merci Bryce

mais ça ne fonctionne pas, voici l'erreur d'autocad:

; erreur: no function definition: VLAX-GET-ACAD-OBJECT

[lecrabe]

Hello

 

Et si ajoutes une nouvelle ligne (Micro Oubli de Bryce) a la fin comme :

 

(vl-load-com)

 

lecrabe

[Steven]

Salut Tayou57.

 

Tu souhaiterais faire faire une rotation à tes textes pourquoi exactement?

Pour qu'ils tous à l'horizontale dans ta présentation?

[FormaBois]

Tu souhaiterais faire faire une rotation à tes textes pourquoi exactement?

Pour qu'ils tous à l'horizontale dans ta présentation?

D'après ce que j'ai compris ... les textes on déjà des orientations différentes en

fonction des réseaux électrique qu'ils suivent.

Comme la vue a tourné, ils doivent tous ensemble subir une

rotation de 200gr pour être à nouveau alignés au réseau

C'est bien ça ?

[Invité Tayou57]

D'après ce que j'ai compris ... les textes on déjà des orientations différentes en

fonction des réseaux électrique qu'ils suivent.

Comme la vue a tourné, ils doivent tous ensemble subir une

rotation de 200gr pour être à nouveau alignés au réseau

C'est bien ça ?

Oui c'est bien ça FormaBois

Le lisp ne fonctionne toujours pas :(

[FormaBois]

Sur le lisp de bryce ajouter la ligne que lecrabe à indiqué : (vl-load-com)

A ajouter sur une ligne au dessus de : (princ)

Chez moi fonctionne bien :)

[Invité Tayou57]

Sur le lisp de bryce ajouter la ligne que lecrabe à indiqué : (vl-load-com)

A ajouter sur une ligne au dessus de : (princ)

Chez moi fonctionne bien :)

Merci les amis

je fait ça Lundi

[bryce]

Oups, désolé pour l'oubli...

J'ai modifié le code dans mon message précédent. ;)