ETH Zuerich - Startseite
Professur für CAAD

 


caad d-arch


Caad Teaching
 

 
Bachelor of Architecture: CAAD II ss07

 
Master of Advanced Studies
in Architecture, CAAD


 
DWF-Processing
Programmieren statt Zeichnen


 
Graustufen - Ein Atlas
Schweizer Wohngebäude als XML Daten


 
DWF- Denken in Systemen:
In Collaboration with the Technical University Vienna


 
Seminarwoche:
BlowUp


 
Archiv

 
Caad Projects
 

 
Theory
 
Design
 
Building
 
Practice

 
Related pages
 

 
Swiss Federal Institute of Technology Zurich
 
Institute of Building Technology
 
Faculty of Architecture

 
Other pages

 










hbt d-arch

MAS ETH ARCH/CAAD - 2005/06 - STUDENT PAGES
Master of Advanced Studies in Architecture, Specialization in Computer Aided Architectural Design | 065-0005/6
Supervision: Prof. Dr. Ludger Hovestadt, Philipp Schaerer
Chair of CAAD, ETH Zurich







mini-assignment 2

vectorscript





Screenshotmove.jpg creating a move tool for vectorworks

skript 01

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

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);









-- NDSMartinTann - 09 Nov 2005

Revision r1.3 - 17 Nov 2005 - 18:08 - NDSMartinTann
Parents: WebHome > NDSMartinTann > Martinmodule01
Copyright © 1999-2003 by the contributing authors. All material on this collaboration platform is the property of the contributing authors.

This website has been archived and is no longer maintained.