RotateObject [ROB] |
Top Previous Next |
|
Drehen des identifizierten Objekts. Vor Aufruf dieser Prozedur muß das Objekt, welches gedreht werden soll, identifiziert werden. Es muß dabei mit dem Punkt identifiziert werden, der Drehpunkt werden soll. Die Prozedur fragt als erstes einen zweiten Punkt in diesem Objekt ab, der als Basis beim Drehen fungiert. Als weiterer Punkt wird dann die neue Richtung digitalisiert. Wird hier mit CON digitalisiert, so wird das Objekt ohne weitere Rückfragen mit der Basis parallel zum Horizont ausgerichtet. Ansonsten wird ein weiterer Punkt abgefragt. Wird dieser mit CON beantwortet, so wird das Objekt so gedreht, daß der letzte digitalisierte Punkt auf der Basis liegt. Wird die letzte Abfrage mit einer Koordinate beantwortet, so wird die Basis des Objekts parallel zu den letzten beiden Punkten ausgerichtet. Voraussetzung Das Objekt muß geöffnet sein. Parameter NAM/1 /HOR Diese beiden Parameter verhalten sich gleich. Das Objekt wird auf den Horizont ausgerichtet. Als Achse wird die Gerade aus den beiden ersten identifizierten Punkten verwendet. /SELECTIONLIST Es werden auch alle anderen Objekte der Selektionsliste mitrotiert. /RUBBERBAND zeigt beim Positionieren den Umriss an. /H Mit diesem Schalter wird ein Hilfetext und die Aufrufkonvention angezeigt. Rückgabewert
Dialog Beispiel Aussprung aus der Prozedur ohne Änderungen Befehl eingeben: IOB Punkt digitalisieren: #P 500 1100 Befehl eingeben: ROB Identifizieren des zweiten BasisPunktes: #CON Das Objekt wird mit der durch (500,1100) und (1000,1000) identifizierten Basis parallel zum Horizont gelegt. Befehl eingeben: IOB Punkt digitalisieren: #P 500 1100 Befehl eingeben: ROB Identifizieren des zweiten BasisPunktes: #P 1000 1000 Identifizieren des ersten Richtungspunktes: #CON Das Objekt wird mit der durch (500,1100) und (1000,1000) identifizierten Basis so gedreht, das der Punkt (500,1200) auf dieser Basis liegt. In diesem Fall wird das Objekt also um etwas mehr als 90 Grad gedreht. Befehl eingeben: IOB Punkt digitalisieren: #P 500 1100 Befehl eingeben: ROB Identifizieren des zweiten BasisPunktes: #P 1000 1000 Identifizieren des ersten Richtungspunktes: #P 500 1200 Identifizieren des zweiten Richtungspunktes: #CON Das Objekt wird mit der durch (500,1100) und (1000,1000) identifizierten Basis so gedreht, das die Linie (500,1200)-(1000,1200) parallel zu dieser Basis liegt. In diesem Fall wird das Objekt also um etwas mehr als -20 Grad gedreht, sodaß die Basis parallel zur X-Achse liegt. Befehl eingeben: IOB Punkt digitalisieren: #P 500 1100 Befehl eingeben: ROB Identifizieren des zweiten BasisPunktes: #P 1000 1000 Identifizieren des ersten Richtungspunktes: #P 500 1200 Identifizieren des zweiten Richtungspunktes: #P 1000 1200 Bemerkung Siehe auch
|