Ergebnis 1 bis 2 von 2

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

  1. #1
    Neuer Benutzer Newbie
    Registriert seit
    09.06.2016
    Beiträge
    1

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

    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

  2. #2
    Erfahrener Benutzer Profi Member
    Registriert seit
    24.03.2012
    Beiträge
    832

    Standard

    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
    W7pro|Corel X4/X7(64 Bit)

Ähnliche Themen

  1. Photoshop-Funktion "Smart Objects" auch in CPP enthalten?
    Von Trance im Forum Corel Photo Paint
    Antworten: 16
    Letzter Beitrag: 17.08.2012, 12:15
  2. Andockfenster "Änderungen" in CorelDraw X3
    Von datt Niggl im Forum Corel Draw
    Antworten: 5
    Letzter Beitrag: 07.04.2010, 20:42
  3. PI 11 installiert - Funktion "rückwärts" deaktiv
    Von Katrina im Forum PhotoImpact
    Antworten: 5
    Letzter Beitrag: 10.02.2008, 09:22
  4. Code für die Bildvorschau - "Monika"
    Von lebus im Forum Grafik Allgemein
    Antworten: 0
    Letzter Beitrag: 14.09.2006, 10:42
  5. "Zitieren"-Funktion defekt ?
    Von Candyno im Forum Testforum
    Antworten: 7
    Letzter Beitrag: 27.05.2006, 23:34

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •