---

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

---

da bist du wohl eher im VBA Forum aufgehoben...
http://ww3.cad.de/cgi-bin/ubb/forumdisplay.cgi?action=topics&forum=INVENTOR+VBA&number=258&DaysPrune=1000&LastLogin=&mystyle=AUGCE

------------------
Grüsse
Jürgen
http://www.inventor-faq.de
Dem Inventör ist nichts zu schwör 

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