---

Hallo Leute

Komme leider nicht weiter. Ich versuche alle linien des Drawings um bestimmte Koordinaten zu verschieben deshalb versuche ich einen Punkt als Bezugspunkt einzufangen und seine Koordinaten auslesen. Klappt leider nicht...

Sub CATNormzeichnung_Schriftkopf_Verschieben()
On Error Resume Next
Dim RootName As String
Dim RootNameLength As Integer

Dim oPoint(2)
Dim Origin(2)
Dim Direction(2)

Set Point = GeomElems.GetItem("Referenzpunkt") 'Der Punkt trägt den Namen Referenzpunkt
Point.GetCoordinates(oPoint)

TranslationX = Width - oPoint(0)
TranslationY = 0

RootName      = "Zeichnungskopf_"
RootNameLength = Len(RootName)

For i = 1 To GeomElems.Count
Set Line = GeomElems.Item(i)
If  (Left(Line.Name, RootNameLength) = RootName) Then
On Error Resume Next
Line.GetOrigin(Origin)
Line.GetDirection(Direction)
Line.SetData Origin(0)+TranslationX, Origin(1)+TranslationY, Direction(0), Direction(1)
On Error Goto 0 
End If
Next
End Sub

Liebe Grüße
Liebmer

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

---

Wäre zumindestens dankbar wenn mir jemand erklären könnte wie ich die Koordinaten eines Pinktes herauslesen könnte.

Liebe Grüße

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