Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  eigenschaften für alle Komponenten der Baugruppe ändern

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:  eigenschaften für alle Komponenten der Baugruppe ändern (1804 mal gelesen)
Alcom
Mitglied



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

Beiträge: 191
Registriert: 07.05.2008

GPU: Nvidia 8800 GTS
CPU: Intel Core 2 Duo E6850 @ 3.00 GHZ
RAM: 3GB
OS: WIN XP

erstellt am: 28. Jul. 2009 10:17    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!

Ich möchte eine eine Eigenschaft (part Number) für alle Komponenten einer Baugruppe ändern. Mein Problem ist dass ich nicht weiß wie ich ein "loop" durch alle Komponenten aller Baugruppen und Unterbaugruppen machen kann. Einige Tipps oder Stichwörter?

Danke

Alcom

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

daywa1k3r
Moderator
Softwareentwickler




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

Beiträge: 3497
Registriert: 01.08.2002

Alienware m17x, Win7, Inventor2012

erstellt am: 28. Jul. 2009 10:31    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 Alcom 10 Unities + Antwort hilfreich

Zitat:
Original erstellt von Alcom:
Einige Tipps oder Stichwörter?

SubOccurrences

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

Alcom
Mitglied



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

Beiträge: 191
Registriert: 07.05.2008

GPU: Nvidia 8800 GTS
CPU: Intel Core 2 Duo E6850 @ 3.00 GHZ
RAM: 3GB
OS: WIN XP

erstellt am: 28. Jul. 2009 11:08    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!

Danke für die Hilfe!

Hab was zusammenbekommen, Funktioniert aber nicht. ich habs geschaft die Daten in die Dokumenteniprops zu schreiben, aber nicht für die Komponenten der Baugruppen.


-----------------

Public Sub setprop()
    ' Set reference to active document.
    ' This assumes the active document is an assembly
    Dim oDoc As Inventor.AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument
   
    ' Get assembly component definition
    Dim oCompDef As Inventor.ComponentDefinition
    Set oCompDef = oDoc.ComponentDefinition


   
    ' Get all occurrences from component definition for Assembly document
    Dim oCompOcc As ComponentOccurrence
    For Each oCompOcc In oCompDef.Occurrences

            Dim invcustompropertyset As PropertySet
            Set invcustompropertyset = oCompOcc.PropertySets.Item("Design Tracking Properties")
            invcustompropertyset.Item("part number").Value = oCompOcc.Name

   
    Next
   
End Sub

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

Alcom
Mitglied



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

Beiträge: 191
Registriert: 07.05.2008

GPU: Nvidia 8800 GTS
CPU: Intel Core 2 Duo E6850 @ 3.00 GHZ
RAM: 3GB
OS: WIN XP

erstellt am: 28. Jul. 2009 11: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

problem gelöst, für die die es evt brauchen:


-------------------------

Public Sub Bauteilnummeraktualisieren()
    ' Get the active assembly.
    Dim oAsmDoc As AssemblyDocument
    Set oAsmDoc = ThisApplication.ActiveDocument

    ' Get all of the referenced documents.
    Dim oRefDocs As DocumentsEnumerator
    Set oRefDocs = oAsmDoc.AllReferencedDocuments

    ' Iterate through the list of documents.
    Dim oRefDoc As Document
    For Each oRefDoc In oRefDocs
        Dim invcustompropertyset As PropertySet
            Set invcustompropertyset = oRefDoc.PropertySets.Item("design tracking properties")
            invcustompropertyset.Item("part number").Value = oRefDoc.DisplayName
        Debug.Print oRefDoc.DisplayName
    Next
End Sub

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