Rotation complexe

[wericx]

Bonjour,

sauriez-vous comment réaliser la rotation d'un dessin tout en gardant les textes avec leurs orientation d'origine.

 

merci d'avance

[bonuscad]

Bonjour,

 

Tourne ton dessin normalement sans te préoccupé des textes. (Note ton angle de rotation que tu as appliqué)

 

Ensuite essayes la routine suivante en fournissant l'angle précédent en changeant simplement le signe.

 

Voilà j'espère que cela fonctionnera pour toi.

(defun c:pivotext (/ jsel angplus nboucl txtmod nbelem ent rot nrot)
(prompt "\nSélectionner les textes à faire pivoter sur leur point d'insertion: ")
(setq jsel (ssget '((0 . "*TEXT"))))
(if jsel
 (progn
  (initget 1)
  (setq angplus (getangle "\nAngle à rajouter pour faire pivoter les textes selectionnés: ")
        nbrtxtmod 0
        nbrelemjs (sslength jsel)
  )
  (while (< nbrtxtmod nbrelemjs)
   (setq ent (entget (ssname jsel nbrtxtmod))
         rot (cdr(assoc 50 ent))
         nrot (rem (+ rot angplus) (* 2 pi))
         ent (subst (cons 50 nrot) (assoc 50 ent) ent)
   )
   (entmod ent)
   (setq nbrtxtmod (1+ nbrtxtmod))
  )
  (terpri)
  (princ nbrtxtmod)
  (princ " ligne(s) de texte a (ont) tourné à ")
  (princ (angtos angplus))
 )
)
(princ)
)

[DenisHen]

Ou alors, tu tourne ton dessin comme tu le veux, tu note l'angle, tu sélectionne QUE LES TEXTES (ou alors tu sélectionne tout le dessin, puis tu filtre les textes ) puis, dans la propriété des textes, tu y colle ton angle...

 

Sans le lisp, c'est une solution...

 

Denis...