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

[Sfassbender]

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

[koter]

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:

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