---

Hallo liebe Forenmitglieder,

ich bräuchte mal wieder eure Hilfe:
Ich möchte in Civil 3D ein DGM um einen bestimmten Betrag in der Höhe verschieben.
ich habe also bisher:

...
Dim oSurf As AeccSurface
Set oSurf = oAeccDoc.Surfaces.Item(intDGMPos)
...
Dim SurfBase(0 to 2) as Variant
Dim SurfShift(0 to 2) as Variant

SurfBase(0) = 0: SurfBase(1) = 0: SurfBase(2) = 0
SurfShift(0) = 0: SurfShift(1) = 0: SurfShift(2) = 1

oSurf = oSurf.Move(SurfBase, SurfShift)

mit "intDGMPos" wird übrigens ein DGM (sind mehrere in der Zeichnung) bestimmt, dieses DGM möchte ich nun um einen Meter "nach oben" verschieben.
Als Basispunkt (SurfBase) wähle ich mir den Koordinatenursprung aus (0,0,0).
Als Endpunkt der Verschiebung (SurfShift) dann denn Punkt (0,0,1).
Leider funktioniert das nicht, ich bekomme die Meldung "Fehler beim Kompilieren: Function oder Variable erwartet).Kann mir da jemand weiterhelfen?

------------------

http://www.stupidedia.org/stupi/Rechter_Winkel

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich meine, du  müsstest besser die Methode "TransformBy" verwenden, wenn du das ganze DGM schieben willst.
Habe aber gerade kein Codebeispiel zur Hand.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP