---

Hello,

Ich moechte via VBA den "defer update" schalter fuer Zeichnungen legen. Das ganze sollte im batch moeglich sein. Hat jemand von
euch ein macro das dies macht? Waere dankbar fuer jede hilfe.

Thanks E.

------------------
XP Pro, Inventor 2009 & SW 08, Grafic Quadro 750XL, Ram 1500,CPU 3.0

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

---

Hi

Das wird dir keiner proggen.

1. Weil das vermutlich nicht in VBA, sondern besser per Apprentice laufen müßte.

2. Weil der Aufgabenplaner von Inventor meines Wissens das von Haus aus schon kann. Schau mal im Aufgabenplaner in die Optionen der Aufgabe "Konstruktion aktualisieren".

------------------
MfG
RK

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

---

Hallo,

Danke fuer den Hinweis. Wir waere schon geholfen wenn ich ein macro code haette den ich in mein default.ivb kopieren kann der den hacken "defer update" in einer zeichnung setzt.

Falls jemand das hat, waere gut, ansonsten werd ich halt weiter mit der inventor eingabe kaempfen...

Danke E.

------------------
XP Pro, Inventor 2009 & SW 08, Grafic Quadro 750XL, Ram 1500,CPU 3.0

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

---

Äääähhhh 

Meine Antwort bis zum Ende gelesen? Schau unter Start/Programme/Autodesk/Autodesk Inventor 2009/Werkzeuge/Aufgabenplanung. Erstell dort eine Aufgabe "Konstruktion aktualisieren" und stell in den Optionen "Aktualisierung aufschieben" ein.

Code:

---

private Sub defer_update()
Dim oDrawDoc as DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument

oDrawDoc.DrawingSettings.DeferUpdates = True
oDrawDoc.Save

End Sub

---

Funktioniert (hoffentlich, hab's aus dem Kopf geschrieben) nur mit aktuell geöffneter Zeichnung, nicht im Batchlauf und wie du dir dazu einen Button bastelst findest du in der Suche.

------------------
MfG
RK

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

---

Hallo RK,

Das hat riesig geholfen. Danke viel mals. Ich moechte auch etwas beitragen und habe hier ein macro das die Material definition auf
Mild, Steel aendert. Man kann natuerlich Mild, Steel mit jedem anderen Material typ der vordefiniert ist ersetzen. Ich moechte ja nicht unhoeflich sein, aber womoeglich hat jemand einen macro code der all vorselektierten componenten & assemblies unterdrueckt.

Vielen dank fuer die hilfe.

E.

Public Sub NewChangeMaterial()
    Dim doc As PartDocument
    Dim partdefinition As PartComponentDefinition
   
    Set doc = ThisApplication.ActiveDocument
    Set partdefinition = doc.ComponentDefinition
    partdefinition.Material = doc.Materials.Item("Steel, Mild")
    partdefinition.Material.RenderStyle = doc.RenderStyles.Item("Metal-Steel")

   
End Sub

------------------
XP Pro, Inventor 2009 & SW 08, Grafic Quadro 750XL, Ram 1500,CPU 3.0

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

---

Hallo,

das geht folgendermassen:

Private Sub SuppressOccs()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As AssemblyDocument
  Set oDoc = oApp.ActiveDocument
 
  Dim oOccs() As ComponentOccurrence
  ReDim oOccs(oDoc.SelectSet.count)
 
 
  For i = 0 To oDoc.SelectSet.count - 1 Step 1
    Set oOccs(i) = oDoc.SelectSet(i + 1)
  Next i
 
 
  For i = 1 To oDoc.SelectSet.count
    Call oOccs(i - 1).Suppress(True)
  Next i

End Sub

Grüsse auf die andere Seite des Rheins...

------------------
Grüsse, Paul

Inventor-Programmierung, Inventor-Tools und Inventor API-Schulung

Meine Tochter auf Youtube

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

---

Danke Paul,

Das hat geholfen.

E.

------------------
XP Pro, Inventor 2009 & SW 08, Grafic Quadro 750XL, Ram 1500,CPU 3.0

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