- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hallo,
Ich habe eine Frage:
Ich möchte gerne in den Unterbaugruppen und deren Bauteile den Inhalt aus dem Property "Projekt - Beschreibung" bzw. "Project - Description" lesen. Leider funktioniert das nicht so , wie ich es unten gemacht habe. Es erscheint die Fehlermeldung das das Property nicht gefunden wird.
"Public member 'iPropertySets' on type 'AssemblyDocument' not found."
In der folgenden Zeile steckt der Wurm drin.
Code:
GeöffnetesObjekt = oSubDoc.iPropertySets("Project").Item("Description").Value
Ich habe schon verschiedene Varianten ausprobiert, aber immer mit dem selben Fehler.
Kann mir jemand sagen, wie die Zeile richtig aussehen muss?
Hier noch ein längerer Ausschnitt aus dem gesamten Code, in dem ich die obige Zeile eingefügt habe.
Code:
'Wenn es sich um eine Baugruppe handelt, iAssemblies ausgelassen
If oAssyDoc.AllReferencedDocuments.Item(iCount).DocumentType = kAssemblyDocumentObject Then
Try
'Wenn das Bauteil ein Inhaltcenter-Bauteil ist, dann überspringe das Bauteil
oCustomPropertySet = oSubDoc.PropertySets.Item("2DB9508F-CBA8-4714-ABE9-1A0EDB5B586C") 'ContentCenter in VBA
Exit Try
Catch
'Wenn es sich um ein iAssembly handelt, dann überspringe die Baugruppe
If oSubDoc.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
Dim oAssDoc As AssemblyDocument = DirectCast(oSubDoc,AssemblyDocument)
If oAssDoc.ComponentDefinition.IsiAssemblyMember= True Then Continue For
If oAssDoc.ComponentDefinition.IsiAssemblyFactory = True Then Continue For
If oAssDoc.IsModifiable = False Then Continue For
End If'Wenn die Bautgruppe eine "normale" Baugruppe ist, dann erstelle die Eigenschaften
oCustomPropertySet = oSubDoc.PropertySets.Item("D5CDD505-2E9C-101B-9397-08002B2CF9AE") 'benutzerdefinierte iProperties'Inhalt aus iPropertie "Projekt - Beschreibung" auslesen, um zu ermitteln, umm welchen Datesatz / Bauteil es sich handelt
' GeöffnetesObjekt = iProperties.Value("Project", "Description")
GeöffnetesObjekt = oSubDoc.iPropertySets("Project").Item("Description").Value
MsgBox("Unterbaugruppe oder Bauteil in Hauptbaugruppe:" & vbCrLf & vbCrLf & "Geöffnetes Objekt: " & GeöffnetesObjekt)
Danke für die Hilfe.
Gruß Stephan
Solved! Go to Solution.