Funktion des Andockfenster "Kurven verbinden" für VBA Code

Funktion des Andockfenster "Kurven verbinden" für VBA Code - Druckversion

+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Funktion des Andockfenster "Kurven verbinden" für VBA Code (/showthread.php?tid=36928)

Funktion des Andockfenster "Kurven verbinden" für VBA Code - Sfassbender - 09.06.2016

Hallo,

ich würde gerne die Funktion des Andockfenster "Kurven verbinden" - Erweitern - Spalttoleranz 0,1mm in ein Makro mit aufnehmen. Leider lässt sich der Code nicht aufzeichnen.
Hoffe, es kann mir jemand weiterhelfen.

Stefan
CDR X7 - 64bit

Funktion des Andockfenster "Kurven verbinden" für VBA Code - koter - 10.06.2016

Hallo Stefan,

willkommen im Forum!

Ich befürchte die Funktion des Andockfensters ist mit VBA nicht erreichbar.

Du kannst aber mit GetDistanceFrom den Abstand zweier Knoten messen und abhängig davon die Knoten verbinden:

[Bild: abstandj9x4m.gif]

Code:
Sub Verbinden1()

    ActiveDocument.Unit = cdrMillimeter

    Dim s1 As Shape, s2 As Shape

    Dim n1 As Node, n2 As Node

    Set s1 = ActiveSelection.Shapes(1)

    Set s2 = ActiveSelection.Shapes(2)

    Set n1 = s1.Curve.Nodes.First

    Set n2 = s2.Curve.Nodes.First

    abstand = n1.GetDistanceFrom(n2)

    If abstand <= 1 Then

        ActiveSelection.Combine

        ActiveShape.Curve.SubPaths(1).Nodes.First.JoinWith _

        ActiveShape.Curve.SubPaths(2).Nodes.First

    Else

        MsgBox "Abstand zu groß!"

    End If

End Sub

Im Beispiel werden die Startknoten zweier Kurven verbunden, wenn deren Abstand kleiner oder gleich 1 mm ist.
Ist der Abstand größer, wird eine Fehlermeldung ausgegeben.

Gruß

Koter