Rotation multiple

Sujets ayant trait au langage de programmation VectorScript et aux Plug-ins
Christian
Messages : 27
Enregistré le : Mar Juin 13, 2006 13:11

Rotation multiple

Messagepar Christian » Lun Avr 14, 2008 11:26

Bonjour,
Est-ce que quelqu'un a déjà écrit un script permettant de faire une rotation d'un sélection d'objets de façon à ce que chaque objet tourne sur son centre, au lieu d'une rotation globale.
Merci de vos réponses, je sèche un peu.

TpF
Messages : 318
Enregistré le : Mer Mar 01, 2006 20:33
Localisation : 45 Montargis
Contact :

Re: Rotation multiple

Messagepar TpF » Ven Avr 18, 2008 19:29

Bsoir à toutes et tous,

dans les archives . . .

Code : Tout sélectionner

PROCEDURE RotateAngle;
{ © Petri Sakkinen 2000 }
{complétée Patrick Forest - Nov. 2006}

VAR
obHd : HANDLE;
x, y,angle : REAL;

BEGIN
   obHd:=FSACTLAYER;
   angle:=AngDialog('Angle de la rotation :','0');
   WHILE obHd<>NIL DO BEGIN
      HCENTER(obHd, x, y);
      HROTATE(obHd, x, y, angle);
      obHd:=NEXTSOBJ(obHd);
   END;
END;

RUN(RotateAngle);



reste à vérifier que ce script roule en VW2008

Faites tourner !
MacPro-VW2018 Designer RenderWorks
-----------------------------------------
Patrick Forest
la Topo et les TP
Maître d'Oeuvre en Travaux Publics

Christian
Messages : 27
Enregistré le : Mar Juin 13, 2006 13:11

Messagepar Christian » Dim Avr 20, 2008 17:38

Un grand merci Patrick.

Ca fonctionne impeccable. Enfin fini les rotations en série ! :D


Retourner vers « VectorScript & Plug-ins »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité