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
  Linseneffekt auf Kurven Godschan 0 29 04.12.2024, 16:02
Letzter Beitrag: Godschan
  Form mit Linien verbinden (füllbar) Maxit 1 332 21.06.2024, 17:18
Letzter Beitrag: norre
  EAN 13 Code und Zeilenabstände peterjaeckel 18 1.781 19.06.2024, 16:27
Letzter Beitrag: koter
  Draw 2021 - Funktion Platzhaltertext Herbertchen 0 657 28.05.2024, 13:01
Letzter Beitrag: Herbertchen
  Corel Draw - Schrift Quicksand nach Umwandeln in Kurven nicht plottbar annalotta 1 1.591 15.02.2024, 13:57
Letzter Beitrag: Piet
  Objekte und Punkte verbinden Herbert_M 2 550 05.02.2024, 20:17
Letzter Beitrag: norre
  Doppelte Kurven (Linien) Boerni 1 455 20.12.2023, 14:00
Letzter Beitrag: norre
  Graphics Suite 2022/2023 Andockfenster Corel Connect Lenka 2 1.349 13.12.2023, 09:26
Letzter Beitrag: Lenka
  Andockfenster Boerni 3 549 03.11.2023, 20:28
Letzter Beitrag: Piet
Question Andockfenster Boerni 2 490 13.09.2023, 20:31
Letzter Beitrag: Boerni