OpenEdge per Mausklick

Einstellungen

06.02.2014, 19:36 Uhr

L-Noerber

Level 1 = Community-Lehrling

Gruppe: Mitglied
Mitglied seit: 16.01.2012
Beiträge: 11

Hier mal ein kleines Makro um per Mausklick Konturzüge zu öffnen . Die Funktion zum öffnen von Konturzügen per Mausklick wurde ja leider entfernt.

CODE
Public Sub OpenEdge()
    Dim FC As Esprit.FeatureChain, EleNum As Long

    Do
    On Error GoTo ErrorHandler

    Set FC = Document.GetAnyElementItem("wähle zu öffnende Kante, wenn Auswahl abgeschlossen ESC drücken", EleNum, espFeatureChain)

    On Error GoTo 0

    Dim ComFC As EspritFeatures.ComFeature, CustomProps As EspritProperties.CustomProperties
    Set ComFC = FC
    Set CustomProps = ComFC.Item(EleNum).CustomProperties

    FC.Color = vbYellow
    FC.LineType = espSolid
    FC.LineWeight = espLineWeightMedium
    Call CustomProps.AssignByEnumeration(espFeatureItemOpenEdgeProperty, True)
    Loop

ErrorHandler:

End Sub

Public Sub ClosedEdge()
    Dim FC As Esprit.FeatureChain, EleNum As Long

    Do
    On Error GoTo ErrorHandler

    Set FC = Document.GetAnyElementItem("wähle zu schließende Kante, wenn Auswahl abgeschlossen ESC drücken", EleNum, espFeatureChain)

    On Error GoTo 0

    Dim ComFC As EspritFeatures.ComFeature, CustomProps As EspritProperties.CustomProperties
    Set ComFC = FC
    Set CustomProps = ComFC.Item(EleNum).CustomProperties

    FC.Color = vbYellow
    FC.LineType = espSolid
    FC.LineWeight = espLineWeightMedium
    Call CustomProps.AssignByEnumeration(espFeatureItemOpenEdgeProperty, False)
    Loop

ErrorHandler:

End Sub

Der Beitrag wurde von L-Noerber bearbeitet: 06.02.2014, 19:38 Uhr

TOP

Antworten

06.02.2014, 22:46 Uhr

cnc-olaf

Level 3 = Community-Techniker

Gruppe: Mitglied
Mitglied seit: 24.03.2004
Beiträge: 199

sag bitte wie wende ich das an,

ich hab noch nichts mit makros zu tun gehabt aber das hört sich viel versprechend an..

lg
olaf

TOP

Antworten

07.02.2014, 13:47 Uhr

Simon_BA

Level 1 = Community-Lehrling

Gruppe: Mitglied
Mitglied seit: 07.12.2009
Beiträge: 8

Guten Tag,

das AddIn zum Öffnen von Kanten wurde entfernt.
Die Funktion zum Öffnen von einer oder mehrere Kanten gleichzeitig ist jedoch direkt in das UserInterface gebracht worden.
Hierzu am besten die ESPRIT Hilfe öffnen und nach dem Begriff "offene Tasche" suchen.
Dort findet man alle Notwendigen Info's zu diesem Thema.

Schöne Grüße

TOP

Antworten

07.02.2014, 22:15 Uhr

L-Noerber

Level 1 = Community-Lehrling

Gruppe: Mitglied
Mitglied seit: 16.01.2012
Beiträge: 11

QUOTE (Simon Jakubka @ 07.02.2014, 13:47 Uhr)