---

Guten Morgen,
ich weiß zwar nicht, ob ich mit I-Logic-Fragen hier richtig bin, deshalb versuche ich es einfach mal:
Ich versuche mit folgendem I-Logic Code in einer Baugruppe alle Arbeitselemente und Koordinatensysteme beim speichern auszublenden. Das funktioniert auch soweit bis zum "'----", aber alles was auf der Komponentenebene ist, geht nicht so richtig.
Genauer: Die Objektdeklaration von "ocompOcc.definition" funktioniert nicht.

Kann mir wer helfen?

Dim oasmDoc as assemblydocument
Dim oasmcomdef as assemblycomponentdefinition
Dim osubasmcomdef as assemblycomponentdefinition
Dim oparcomdef As PartComponentDefinition
Dim CompOccs as componentoccurrences
Dim ocompOcc as componentoccurrence
'Dim ocompDoc As Document

Dim ucscol As usercoordinatesystems
Dim waxcol as WorkAxes
Dim wplanescol as workplanes
Dim ucs as UserCoordinateSystem
Dim waxis as workaxis
Dim wplane As WorkPlane

oasmDoc = ThisDoc.Document
oasmcomdef = oasmDoc.ComponentDefinition
ucscol=oasmcomdef.usercoordinatesystems
waxcol=oasmcomdef.WorkAxes
wplanescol=oasmcomdef.workplanes

'Für diese Datei alles ausblenden
'Alle BKS ausblenden
For Each ucs in ucscol
ucs.Visible() =False
Next

'Alle Arbeitsachsen ausblenden
For Each waxis in waxcol
waxis.Visible() =False
Next

'Alle Arbeitsebenen ausblenden
For Each wplane In wplanescol
wplane.Visible() =False
Next

'----
'Für alle verbauten Komponenten auch alle BAE ausblenden
CompOccs=oasmcomdef.occurrences

For Each ocompOcc in CompOccs
If ocompOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
osubasmcomdef = ocompOcc.definition
ucscol=osubasmcomdef.usercoordinatesystems
waxcol=osubasmcomdef.WorkAxes
wplanescol=osubasmcomdef.workplanes
ElseIf ocompOcc.DefinitionDocumentType = kPartDocumentObject Then
oparcomdef = ocompOcc.definition
ucscol=oparcomdef.usercoordinatesystems
waxcol=oparcomdef.WorkAxes
wplanescol=oparcomdef.workplanes
End If

'Alle BKS ausblenden
For Each ucs in ucscol
ucs.Visible() =False
Next

'Alle Arbeitsachsen ausblenden
For Each waxis in waxcol
waxis.Visible() =False
Next

'Alle Arbeitsebenen ausblenden
For Each wplane In wplanescol
wplane.Visible() =False
Next
Next

------------------
Gruß
Michael

--->> Wissen ist Macht. Nichts wissen macht auch nichts. <<---

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

---

Hallo Michael,

bitte nicht persönlich nehmen, aber Dein Code schaut mir etwas abenteuerlich aus...

Ich schätze mal, das was Du haben möchtest, geht mit 2 Zeilen Code:

oDoc.ObjectVisibility.UCSTriads = False
oDoc.ObjectVisibility.AllWorkFeatures = False

wobei 'oDoc' ein Part- oder AssemblyDocument sein kann...

HTH

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung
Online 3D-Ersatzteilkataloge
Kostenmanagement mittels NLPP Analyse

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

---

Hallo Paul,
danke für den Hinweis, aber ich möchte nicht die globale Sichtbarkeit der Arbeitselement ausstellen (könnte ich ja auch unter Menü>> Ansicht >> Objektsichtbarkeit), sondern grundsätzlich bei allen Arbeitselementen den Haken bei "Sichtbarkeit" rausnehmen.
Ziel ist, dass in gespeicherten Dateien keine Arbeitselemente auf "sichtbar" geschaltet sind. Das funktioniert ja auch alles wunderbar mit allen Elementen in der BG, aber an die Elemente in den Komponenten komme ich nicht dran, da irgendetwas mit dem

osubasmcomdef = ocompOcc.definition

nicht passt.

------------------
Gruß
Michael

--->> Wissen ist Macht. Nichts wissen macht auch nichts. <<---

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

---

...versuch's mal mit

osubasmcomdef = ocompOcc.ContextDefinition

BTW: mit Deinem Code (ab -----) greifst Du nur auf die Instanzen im Root-Knoten Deiner BG zu - aber was ist mit allen weiteren Unter-BG's ? Die werden nicht verarbeitet.

Schau Dir dazu mal das Beispiel 'Traverse an Assembly API Sample' in der API-Hilfe an. Dieses Beispiel zeigt Dir, wie Du rekursiv durch die ganze BG durch gehst.

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung
Online 3D-Ersatzteilkataloge
Kostenmanagement mittels NLPP Analyse

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

---

Hallo

Vielleicht noch ein Tip in Sachen Performance. Prüf die Objekte vorher, ob sie sichtbar geschaltet sind, bevor du visible=false setzt. Viele solcher "Änderungen" veranlassen Inventor zum neu Berechnen des gesamten Modells (auch wenn sich eigentlich nix geändert hat).
Muss in dem Fall nicht sein, könnte aber.

@Paul
Die Regel steckt in der obersten Baugruppe oder? Würde dann ein rekursives Umschalten der Sichtbarkeit beim Speichern der Baugruppe nicht eine Endlosschleife erzeugen? Ich meine, beim normalen Speichern ist die Reihenfolge von unten nach oben in der Struktur. Alle Unterbaugruppen und Bauteile sind bereits gespeichert wenn die Hauptbaugruppe gespeichert wird. Dort wird dann rekursiv durch alle Ebenen eine Änderung im Modell durchgeführt, die Inventor wieder dazu veranlaßt die Dateien speichern zu wollen.

------------------
MfG
Ralf

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

---

Danke für den Tip, habe ich nun auch berücksichtigt.
Zum Test habe ich das ganze jetzt mal als VBA-Makro aufgebaut, damit ich das besser debuggen kann (wenns dann läuft, wird es ein Ilogic-Prog). Dabei konnte ich die oben genannten Probleme lösen, bis auf folgendes:
Wenn ich eine verbaute Komponente habe und dann mit
ucs.Visible() = False
die Sichtbarkeit des BKS ausstelle, wird mir das zwar im Lokalfenster vom VBA-Editor korrekt angezeigt (Eigenschaft visible wird von "wahr" auf "falsch" gesetzt), aber weder im Browser noch im Grafikfenster ändert sich was.
Kann das evtl. daran liegen, dass ich mich in einer Komponente befinde? Wenn ich die komplette Komponente ausblende funktioniert das nämlich auch im Browser und im Grafikfenster sofort.

Hier der aktuell VBA-Code:

Public Sub BAEausblenden()
Dim oapp As Application
Dim oasmDoc As AssemblyDocument
Dim oasmcomdef As AssemblyComponentDefinition
Dim osubasmcomdef As AssemblyComponentDefinition
Dim oparcomdef As PartComponentDefinition
Dim compoccs As ComponentOccurrences
Dim ocompOcc As ComponentOccurrence
'Dim ocompDoc As Document

Dim ucscol As UserCoordinateSystems
Dim waxcol As WorkAxes
Dim wplanescol As WorkPlanes
Dim ucs As UserCoordinateSystem
Dim waxis As WorkAxis
Dim wplane As WorkPlane

Set oasmDoc = ThisDocument
Set oasmcomdef = oasmDoc.ComponentDefinition
Set ucscol = oasmcomdef.UserCoordinateSystems
Set waxcol = oasmcomdef.WorkAxes
Set wplanescol = oasmcomdef.WorkPlanes

'Für diese Datei alles ausblenden
'Alle BKS ausblenden
For Each ucs In ucscol
    ucs.Visible() = False
Next

'Alle Arbeitsachsen ausblenden
For Each waxis In waxcol
    waxis.Visible() = False
Next

'Alle Arbeitsebenen ausblenden
For Each wplane In wplanescol
    wplane.Visible() = False
Next

'Für alle verbauten Komponenten auch alle BAE ausblenden
Set compoccs = oasmcomdef.Occurrences

For Each ocompOcc In compoccs
    MsgBox ocompOcc.Name
    ocompOcc.Visible = True
    If ocompOcc.DefinitionDocumentType = kAssemblyDocumentObject Then
        Set osubasmcomdef = ocompOcc.Definition
        Set ucscol = osubasmcomdef.UserCoordinateSystems
        Set waxcol = osubasmcomdef.WorkAxes
        Set wplanescol = osubasmcomdef.WorkPlanes
    ElseIf ocompOcc.DefinitionDocumentType = kPartDocumentObject Then
        Set oparcomdef = ocompOcc.Definition
        Set ucscol = oparcomdef.UserCoordinateSystems
        Set waxcol = oparcomdef.WorkAxes
        Set wplanescol = oparcomdef.WorkPlanes
    End If
MsgBox ocompOcc.Name 'Nur zum Test
''geht ab hier nicht:
    'Alle BKS ausblenden
    For Each ucs In ucscol
        MsgBox ucs.Name  'Nur zum Test
        If ucs.Visible() = True Then
            ucs.Visible() = False
        End If
    Next

    'Alle Arbeitsachsen ausblenden
    For Each waxis In waxcol
        If waxis.Visible() = True Then
            waxis.Visible() = False
        End If
    Next

    'Alle Arbeitsebenen ausblenden
    For Each wplane In wplanescol
        If wplane.Visible() = True Then
            wplane.Visible() = False
        End If
    Next
    Set oapp = ThisApplication  'Nur zum Test
    oapp.ScreenUpdating = True  'Nur zum Test
Next

End Sub

------------------
Gruß
Michael

--->> Wissen ist Macht. Nichts wissen macht auch nichts. <<---

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