Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Konstruktionsansichtsdarstellungen von UnterBGs aktivieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Konstruktionsansichtsdarstellungen von UnterBGs aktivieren (343 mal gelesen)
iogurt
Mitglied
Konstrukteur


Sehen Sie sich das Profil von iogurt an!   Senden Sie eine Private Message an iogurt  Schreiben Sie einen Gästebucheintrag für iogurt

Beiträge: 242
Registriert: 30.09.2005

Inventor 2021 Professional

erstellt am: 23. Mai. 2023 07:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo! Wir haben eine grosse BG mit vielen UnterBGs. In den UnterBGs haben wir jeweils eine Ansicht erstellt namens "OhneFensterscheiben", die dann alle Fensterscheiben ausgeblendet hat. Nun wollen wir bei allen UnterBGs diese "OhneFensterscheiben" aktivieren, ohne dies bei jeder per RMB->Darstellung->Konstruktionsansichtsdarstellung->Haken bei Assoziativ->OK. Es haben nicht alle UnterBGs diese Ansicht, daher sollte der Code dies einfach ignorieren. Gibt es da einen kleinen iLogic Code für soetwas? Danke

[Diese Nachricht wurde von iogurt am 23. Mai. 2023 editiert.]

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2247
Registriert: 15.11.2006

Windows 10 x64, AIP 2023

erstellt am: 23. Mai. 2023 09:21    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für iogurt 10 Unities + Antwort hilfreich

Moin

Probier mal, ob das funktioniert. Es werden keine Anordnungen von Baugruppen berüksichtigt.

Code:

Sub Main
Dim oAssDoc As AssemblyDocument = ThisDoc.Document
Dim oAssCompDef As AssemblyComponentDefinition = oAssDoc.ComponentDefinition

TraverseOccs(oAssCompDef.Occurrences )
End Sub

Private Sub TraverseOccs(ByVal oOccs As ComponentOccurrences)
Dim oOcc As ComponentOccurrence
For Each oOcc In oOccs
If oOcc.SubOccurrences.Count>0 Then
TraverseOccs(oOcc.SubOccurrences)
End If

Try
If oOcc.DefinitionDocumentType=DocumentTypeEnum.kAssemblyDocumentObject Then
'oOcc.SetDesignViewRepresentation("Standard")
oOcc.SetDesignViewRepresentation("OhneFensterscheiben")
End If
Catch ex As Exception
MsgBox(ex.Message )
End Try
Next

End Sub


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

RKW Solutions GmbH
www.RKW-Solutions.com

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

iogurt
Mitglied
Konstrukteur


Sehen Sie sich das Profil von iogurt an!   Senden Sie eine Private Message an iogurt  Schreiben Sie einen Gästebucheintrag für iogurt

Beiträge: 242
Registriert: 30.09.2005

Inventor 2021 Professional

erstellt am: 23. Mai. 2023 13:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hmm, retourniert unendlich viele "Unbekannter Fehler (Ausnahme von HRESULT: 0x80004005 (E_FAIL))". Muss dann Inventor per Task Manager abwürgen.

Geht der Code in alle UnterBGs von UnterBGs von UnterBGs.... usw? Ich bräuchte nur die erste Stufe, UnterBGs, die direkt in der OberBG sind.

[Diese Nachricht wurde von iogurt am 23. Mai. 2023 editiert.]

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2247
Registriert: 15.11.2006

Windows 10 x64, AIP 2023

erstellt am: 23. Mai. 2023 14:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für iogurt 10 Unities + Antwort hilfreich

Moin

Hups, vergessen die Meldung im Fehlerfall zu deaktivieren. Die war eigentlich nur zum Testen.
neuer Versuch ohne Rekursion:

Code:

Sub Main
Dim oAssDoc As AssemblyDocument = ThisDoc.Document
Dim oAssCompDef As AssemblyComponentDefinition = oAssDoc.ComponentDefinition

Dim oOcc As ComponentOccurrence
For Each oOcc In oAssCompDef.Occurrences
Try
If oOcc.DefinitionDocumentType=DocumentTypeEnum.kAssemblyDocumentObject Then
'Occ.SetDesignViewRepresentation("Standard")
oOcc.SetDesignViewRepresentation("OhneFensterscheiben")
End If
Catch ex As Exception
End Try
Next
End Sub

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

iogurt
Mitglied
Konstrukteur


Sehen Sie sich das Profil von iogurt an!   Senden Sie eine Private Message an iogurt  Schreiben Sie einen Gästebucheintrag für iogurt

Beiträge: 242
Registriert: 30.09.2005

Inventor 2021 Professional

erstellt am: 23. Mai. 2023 14:58    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke Ralf, funktioniert super! Wäre es auf einfache Weise noch möglich, den "Assoziativ" Haken zu setzen? Falls nicht, macht nichts 

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

rkauskh
Moderator
Dipl.-Ing. (FH) Versorgungstechnik




Sehen Sie sich das Profil von rkauskh an!   Senden Sie eine Private Message an rkauskh  Schreiben Sie einen Gästebucheintrag für rkauskh

Beiträge: 2247
Registriert: 15.11.2006

Windows 10 x64, AIP 2023

erstellt am: 23. Mai. 2023 16:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für iogurt 10 Unities + Antwort hilfreich

Moin

Ergänz mal die Zeile so:

Code:

oOcc.SetDesignViewRepresentation("OhneFensterscheiben",,True)

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

RKW Solutions GmbH
www.RKW-Solutions.com

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

iogurt
Mitglied
Konstrukteur


Sehen Sie sich das Profil von iogurt an!   Senden Sie eine Private Message an iogurt  Schreiben Sie einen Gästebucheintrag für iogurt

Beiträge: 242
Registriert: 30.09.2005

Inventor 2021 Professional

erstellt am: 23. Mai. 2023 16:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Perfekt, funktioniert! Danke Ralf 

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz