Hallo zusammen,
wie bekomme ich o.g. Problem mit ilogic gelöst. (möchte Bilder aber ohne diesen 3D-Ursprungsanzeige, Bild1 / Bild2)
Als User erstellte XYZ-Anzeige (UCSTriads) werden mit diesem Code auch unterdrückt, nicht aber das Original.
Muss ich dann immer von Hand machen.
'****************************************************
' Make sure a part of assembly is active.
If ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Or _
ThisApplication.ActiveDocumentType = kPartDocumentObject Then
Dim doc As Document
doc = ThisApplication.ActiveDocument
Dim objVis As ObjectVisibility
objVis = doc.ObjectVisibility
objVis.AllWorkFeatures = False
objVis.Sketches = False
objVis.Sketches3D = False
objVis.UCSTriads = False 'selbst hinzugefügt
Else
MsgBox ("A part of assembly must be active.")
End If
'******************************************************
Vielen Dank für Eure Hilfe
gladi71
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP