Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  Elemente in Muster

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:  Elemente in Muster (1180 mal gelesen)
Jojo27
Mitglied


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

Beiträge: 5
Registriert: 06.08.2012

erstellt am: 15. Mrz. 2013 13:38    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 zusammen,
ich komme seit 2 Stunden nicht wirklich weiter.

Es geht um folgendes:
Ich arbeite mit Inventor 2011 und bin in der Hauptbaugruppe, in der u.a. ein Muster mit 20 Elementen ist.

Sieht so ähnlich aus in meinem Baum:

Hauptbaugruppe
+Regal                (Mustername)
  +Element:1
      Schublade:1    (Komponente)
    Element:2
    Element:3
        .
        .
    Element:20
   

Nun möchte ich über eine Regel die einzelnen Elemente ausblenden oder einblenden.
Eigentlich mehr nicht aber es klappt nicht.

Ich dachte u.a.
Feature.IsActive("Regal", "Element:9")=True
wäre richtig aber leider wars nicht.

Ich hoffe Ihr könnt mich von meinem Leiden erlösen.

Gruß Timm

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: 2166
Registriert: 15.11.2006

Windows 10 x64, AIP 2022

erstellt am: 15. Mrz. 2013 14:43    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 Jojo27 10 Unities + Antwort hilfreich

Hi

Probier mal:

Code:
doc = ThisDoc.Document
If doc.ComponentDefinition.RepresentationsManager.ActiveLevelOfDetailRepresentation.LevelOfDetail <> kCustomLevelOfDetail Then
oAsmCompDef = doc.ComponentDefinition
oLOD = oAsmCompDef.RepresentationsManager.LevelOfDetailRepresentations.Item("Custom")
oLOD.Activate(True)
End If

'Für jedes Element die folgenden Zeilen einfügen
'für Schublade 1
If Component.IsActive("Schublade:1") = True Then
Component.IsActive("Schublade:1") = False
Else
Component.IsActive("Schublade:1") = True
End If

'für Schublade 2
If Component.IsActive("Schublade:2") = True Then
Component.IsActive("Schublade:2") = False
Else
Component.IsActive("Schublade:2") = True
End If

'usw. usw.


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

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

Jojo27
Mitglied


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

Beiträge: 5
Registriert: 06.08.2012

erstellt am: 19. Mrz. 2013 13:55    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 für deine rasche Antwort leider hat dies nicht funktioniert.
(Konnte leider erst gestern wirder an unseren PC)

Fehlermeldung:
Component: Die Komponente mit dem Namen "Schublade:3" wurde nicht gefunden.

Was allerdings funktioniert hatte ist die suppressed Methode.
Code:
Dim oADoc As AssemblyDocument
oADoc = ThisApplication.ActiveDocument
Dim oPattern As OccurrencePattern
Dim oElement As OccurrencePatternElement

oPattern = oADoc.ComponentDefinition.OccurrencePatterns.Item("Regal")
oElement = oPattern.OccurrencePatternElements.Item(i)
oElement.suppressed=False

Trotzdem vielen Dank...

Gruß Timm

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