mini-assignment 2

vectorscript

• back to mainpage

creating a move tool for vectorworks

skript 01

• mtMoveStandard.vst:

Procedure mtMoveStandard;

VAR
   px,py : REAL;
   moveDX, moveDY : REAL;
   x1, y1, x2, y2 : INTEGER;

BEGIN;

   REPEAT
   UNTIL MouseDown(x1,y1);
   sysBeep;

   REPEAT
   UNTIL MouseDown(x2,y2);
   sysBeep;

   MoveObjs(x2-x1, y2-y1, TRUE,FALSE);

END;

run (mtMoveStandard);

skript 02

• mtMoveDeluxe.vst:

Procedure mtMoveDeluxe;

VAR
   x1, y1, x2, y2 : INTEGER;
   Sel : LONGINT;
   HandLay : HANDLE;

BEGIN

   HandLay := ActLayer;
   Sel := NumSObj (HandLay);

      IF (Sel = 0) THEN BEGIN
         AlrtDialog('No objects selected!')
         END

      ELSE BEGIN;

      GetLine(x1,y1,x2,y2);

      MoveObjs(x2-x1, y2-y1, TRUE,FALSE);

   END;

END;

run (mtMoveDeluxe);

• top of page