---

Hallo allerseits!
muss einen 2D-Konfigurator im SE erstellen (nur 2D-Darstellung).
Möchte dazu Bauteile, welche ich alternativ darstelle, auf unterschiedliche Layer legen, die automatisch bspw. vom Excel aus ein- und ausgeblendet werden sollen. Einen großen Teil der Darstellung steurere ich über Verknüpfung von Zellwerten aus dem Excel heraus (bspw. Glasstärken, und Positionen bzw. Größen von Bauteilen).
Einen Teil dessen aber wollte ich einfach über Ein- und Ausblenden verschiedener Layer steuern. Wenn bspw. der Benutzer ein Kunststofffenster auswählt, sollten die Kunststoff-spezifischen Layer eingeblendet, und alle Holzspezifischen Layer ausgeblendet werden.
Das wird nur funktionieren, wenn ich dem Benutzer ein manuelles ein- u. Ausblenden von Layern ersparen kann. Es sollte sich also auf die Benutzereingabe beschränken "Kunststofffenster" oder "Holzfenster" oder "Holz-Alu...." usw. (tatsächlich steckt da natürlich noch wesentlich mehr dahinter).
Muss ich dazu programmieren? Womit könnte ich programmieren? Im Excel hab ich mit VBA schon gearbeitet, da möchte ich natürlich nichts völlig neues lernen.
Ob mir jemand ein Beispiel-Code geben könnte, wie ich einen Layer in Solid Edge ein- oder ausblende?
Was für ein Programm müssten mir meine Admins installieren? (möglichst eines, wo ich nicht zur Geschäftsführung gehen und um Geld ansuchen müsste... ;-)
Sehr dankbar für jede Hilfe!
Thomas

[Diese Nachricht wurde von simsalabim am 29. Apr. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,

VBA ist hier sicher das richtige Werkzeug, schau mal ob Dir das hilft:

'Wir holen uns SE und das Aktive Dokument
    Set objSEApp = GetObject(, "SolidEdge.Application")
    Set objActDoc = objSEApp.ActiveDocument
   
    If objActDoc.Type = igDraftDocument Then
        'Es ist eine Zeichnung
        Set objDraftDoc = objActDoc
        'Set objActSheet = objDraftDoc.ActiveSheet
        On Error Resume Next
        Set objInitActSheet = objDraftDoc.ActiveSheet
        For Each objActSheet In objDraftDoc.Sheets
            blSheetVis = objActSheet.Visible
            objActSheet.Activate    'Jetzt machen wir es auch zum aktiven
            Set objLayers = objActSheet.Layers
            'Den aktuellen Layerstatus sichern
            intNumLayers = 0
            ReDim blLayVis(objLayers.Count) 'Das Array auf die aktuelle Layeranzahl setzen und leeren
            For Each objLayer In objLayers
                blLayVis(intNumLayers) = objLayer.Show
                intNumLayers = intNumLayers + 1
                objLayer.Show = False
            Next objLayer
            Set objSelSet = objDraftDoc.SelectSet
            For Each objLayer In objLayers
                blLayerVis = objLayer.Show  'Wir merken uns ob der Layer sichtbar ist für später.
                objLayer.Show = True
                Call objSelSet.AddAll
                'Jetzt haben wir alles auf dem aktiven Blatt und dem aktiven Layer

---------------> Hier passiert dann irgendwas
               
               Call objSelSet.RemoveAll
                objLayer.Show = blLayerVis  'Alten Zustand wieder herstellen
            Next objLayer
----->      'Die Layeranzeige wieder herstellen
            intNumLayers = 0
            For Each objLayer In objLayers
----->          objLayer.Show = blLayVis(intNumLayers)
                intNumLayers = intNumLayers + 1
            Next objLayer
            objActSheet.Visible = False ' blSheetVis
           
        Next objActSheet
        objInitActSheet.Activate
        With objSEApp.ActiveWindow
            .DisplayBackgroundSheetTabs = False
            .Display2DModelSheetTab = False
        End With
       
    Else
        'Es ist keine Zeichnung
        MsgBox "Kein Draft Dokument aktiv", vbOKOnly, "Layerinhalte auflisten"
   
    End If

Als Verweise mußt Du natürlich diverse Solid Edge TLBs einbinden.

------------------
Gruß
Markus Gras
Unitec Informationssysteme GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke!!!
und: phhuhhh, jetzt sagt er mir dass kei Objekt aktiv wäre (hab's SE aber offen, inkl. einer geöffneten Draft-Datei....)

Hm, tja, und was könnte das wohl heissen? So fit bin ich wohl doch noch nicht ;-)

Zitat:

---

Als Verweise mußt Du natürlich diverse Solid Edge TLBs einbinden.

---

Aber immerhin: ich kann aus Excel und dem mir bereits etwas vertrauten VBA-Editor mal auch im SE arbeiten. Der Anfang ist also gemacht, super. Es wird aber etwas zach, die Beispiele, dich ich in der SE-Hilfe gefunden haben, waren VB.NET-Beispiele und tun hier nicht (jedenfalls nicht auf Anhieb)... Es hat nicht vielleicht jemand einen Tipp, wo ich VBA-Beispiel-Code finden könnte? ODer eine Beschreibung dieser Methoden etc.?

Danke! Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP