---

Bild1.jpg Bild2.jpg

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