08-21-2018
08:53 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-21-2018
08:53 AM
Would any of this info help you?
Sub Test()
Dim app As Application
Dim Doc As Document
Dim CompDef As ComponentDefinition
Dim PartType As String
Set app = ThisApplication
Set Doc = app.ActiveDocument
Set CompDef = Doc.ComponentDefinition
iPartFac = CompDef.IsiPartFactory
iPartMem = CompDef.IsiPartMember
Select Case Doc.DocumentType
Case Is = DocumentTypeEnum.kPartDocumentObject
PartType = "Part File"
Case Is = DocumentTypeEnum.kDrawingDocumentObject
PartType = "Drawing File"
'Case Is .... keep going with these
End Select
End SubThose may be easier then what you're doing.
I know you'll have to have some error trapping but that should be a good start.
If I've helped you, please help me by supporting this idea.
Mass Override for Each Model State
Custom Glyph Icon for iMates
Mass Override for Each Model State
Custom Glyph Icon for iMates