|
MicroStation/PowerDraft (J, V8, XM, V8i) : RasterVBA drehen verschieben skalieren
HeyJo am 20.01.2012 um 16:33 Uhr (0)
Hi,Ich versuche gerade eine komplette Zeichnung mittels Drehwinkel, Verschiebevektor und Massstab zu Modifizieren, bei den Zeichenelementen war das auch kein Problem, da lief das über eine Transformationsmatrix und der anschließenden Anwendung der Methode Element.transform,Aber bei Raster funktioniert nur eine Drehung, aber ich konte keine Befehle finden zum skalieren und verschieben.Vielleicht hat ja einer das schon mal gemachthier jedenfalls der Status Quo:Sub test_Raster_Drehen_Skalieren_Verschieben(Dre ...
| | In das Form MicroStation/PowerDraft (J, V8, XM, V8i) wechseln |
|
MicroStation/PowerDraft (J, V8, XM, V8i) : RasterVBA drehen verschieben skalieren
HeyJo am 02.02.2012 um 12:29 Uhr (0)
Hallo Franz,Danke für die Antwort,ich hab rumprobiert und es hat geklappt mit den SendCommands, ist nur Schade, dass es für Raster keine VBA-Methode "Transform" gibt, wie bei den restlichen graphischen Elementen.Hier also die Lösung:Sub Raster_Drehen_Skalieren_Verschieben(DrehWinkel_Radiant As Double,Bezugspunkt1 As Point3d,vx as double,vy as double, vz as double, MassStab As Double) Dim theRasters As Rasters Dim oRaster As Raster Dim oEnum As CollectionEnumerator Dim Bezugspunkt2 As Point3d Dim A ...
| | In das Form MicroStation/PowerDraft (J, V8, XM, V8i) wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |