Funktion des Andockfenster "Kurven verbinden" für VBA Code
#1
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
Zitieren
#2
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
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  v2021: Andockfenster Verknüpfungen fehlend mtemp 0 217 05.07.2022, 11:36
Letzter Beitrag: mtemp
  Kurven wieder in Text umwandeln Karthagos 18 1.124 30.04.2022, 12:24
Letzter Beitrag: koter
  2018: Knoten verbinden mtemp 6 1.571 26.04.2021, 07:28
Letzter Beitrag: norre
  Funktion "Verknüpfungen und Lesezeichen" Diefa 2 538 16.02.2021, 23:56
Letzter Beitrag: Diefa
  Farbveränderung beim Kurven erstellen Anirbas 1 888 28.01.2020, 13:16
Letzter Beitrag: norre
  Linie mit Objekt verbinden corely 9 1.999 10.07.2019, 17:52
Letzter Beitrag: corely
  Knoten verbinden biedo 10 3.592 30.12.2018, 23:49
Letzter Beitrag: skifan
  welche Funktion beim Farbe ersetzen ? printx 4 1.498 28.11.2018, 10:10
Letzter Beitrag: norre
  Suche Funktion - kenne den Namen nicht Emily2003 13 1.639 17.10.2018, 23:43
Letzter Beitrag: miss_marple
  v2017: QR-Code nicht via Seriendruck erzeugbar, oder? mtemp 7 1.811 02.08.2017, 01:28
Letzter Beitrag: mtemp