Hi daywa1k3r
!
Zitat :
"oder aber über
ApprenticeServerDocument.ComponentDefinition.Type [Type() As ObjectTypeEnum]
an unter vielen anderen, auch an:
Part Factory Object"
Das funzt leider so net, bei einem iPartMember oder einer Factory kommt einfach
"83886592" raus, un das is das enum für "kPartComponentDefinitionObject"
Schade, hat jemand vielleicht sonst noch eine Idee ?
Mein Code :
Public Function IstiPart(ComponentenFullFileName As String) As ObjectTypeEnum
Dim ApprSrvComAnalyse As New InventorApprentice.ApprenticeServerComponent
Dim AnalysedDoc As InventorApprentice.ApprenticeServerDocument
Set AnalysedDoc = ASrvDoc
Dim AnalysedDocPartCompDef As InventorApprentice.ComponentDefinition
Set AnalysedDocPartCompDef = AnalysedDoc.ComponentDefinition
IstiPart = AnalysedDocPartCompDef.Type '[Type() As ObjectTypeEnum]
MsgBox "Typ : " & IstiPart
End Function
@daywa1k3r : Trotzdem Danke für den Versuch!
Schönes WE !
Thomas
------------------
Thomas Sch
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP