---

Hallo all
ich habe bei meiner 2D Ableitung (*.idw) Elemente die ich ausblenden möchte per VBA. Also das geht ohne VBA über Inhalt einblenden und dann die Komponente die man möchte ausblenden oder einblenden.
Aber wie mache ich das mit VBA???

Habe folgendes versucht:

Public Sub updateDrawing()
Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.Documents(1)
Dim view As DrawingView
For Each view In oDoc.Sheets(1).DrawingViews
  Debug.Print view.name
  Dim doc As Document
  Set doc = view.ReferencedFile.ReferencedDocument
  Dim oCompDef As Inventor.ComponentDefinition
  Set oCompDef = doc.ComponentDefinition
  Dim oCompOcc As ComponentOccurrence
  For Each oCompOcc In oCompDef.Occurrences
    If (oCompOcc.name = "swb_nz_r3") Then
    oCompOcc.Visible = True
    End If
  Next
Next
End Sub

Leider funktionierts nicht, es ändert eher das 3D Model als die 2D Ableitung. Weiss einer eine lösung?

Thx

Sascha

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sascha,

wenn ich Dich richtig verstehe, dann moechtest Du Assy-Komponenten ausblenden ??

Du solltest auf jeden Fall deine Zeichnung nach dem Ausblenden aktualisieren.
oDoc.Update

Schon versucht ?

Gruesse,

Paul

www.morecam.ch/cad.htm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi

Ja hab ich schon das problem ist, dass er die Komponenten die ich im 3D Model ausgeblendet habe in der 2D Drawing nich ausblendet, ich muss alle von hand ausblenden.
Anscheinend bedeuted visible im 3D Model nicht gleich visible im 2D.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP