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
  Corel Draw - Schrift Quicksand nach Umwandeln in Kurven nicht plottbar annalotta 1 79 15.02.2024, 13:57
Letzter Beitrag: Piet
  Objekte und Punkte verbinden Herbert_M 2 129 05.02.2024, 20:17
Letzter Beitrag: norre
  Doppelte Kurven (Linien) Boerni 1 177 20.12.2023, 14:00
Letzter Beitrag: norre
  Graphics Suite 2022/2023 Andockfenster Corel Connect Lenka 2 289 13.12.2023, 09:26
Letzter Beitrag: Lenka
  Andockfenster Boerni 3 261 03.11.2023, 20:28
Letzter Beitrag: Piet
Question Andockfenster Boerni 2 296 13.09.2023, 20:31
Letzter Beitrag: Boerni
  Enter-Taste führt nicht aus Dialog-/Andockfenster? mtemp 3 405 30.03.2023, 11:09
Letzter Beitrag: mtemp
  Corel Draw Problem - Funktion Kontur Boshi 11 3.751 10.01.2023, 13:37
Letzter Beitrag: Boerni
  v2021: Andockfenster Verknüpfungen fehlend mtemp 0 450 05.07.2022, 11:36
Letzter Beitrag: mtemp
  Kurven wieder in Text umwandeln Karthagos 18 2.613 30.04.2022, 12:24
Letzter Beitrag: koter