---

Hallo zusammen!

Ich stehe gerade vor einem Problem, das ich trotz intensiver Suche in diesem Forum noch nicht lösen konnte.

Und zwar möchte ich den Durchmesser einer Kugel, die als .ipt abgespeichert ist, per VBA anpassen. Ich habe schon probiert die entsprechende Bemaßung als iProperty zu exportieren und auszulesen. Das funktioniert bisher auch. Allerdings kann ich den Wert dieser benutzerdefinierten iProperty nicht verändern oder speichern, sodass sich die Größe der Kugel ändert.
Ist dies überhaupt möglich, oder gibt es einen Weg Skizzenbemaßungen noch direkter per VBA anzusprechen?

Beste Grüße,
Simon

[Diese Nachricht wurde von simon3 am 16. Feb. 2012 editiert.]

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

---

Hallo Simon,
meinst Du etwas in dieser Art?

Code:

---

Public Sub MaßÄndern()
    Dim oapp As Application
    Set oapp = ThisApplication
    Dim oDoc As Document
    Set oDoc = oapp.ActiveDocument
    Dim oParameters As Parameters
    Set oParameters = oDoc.ComponentDefinition.Parameters
    Dim oDurchmesser As ModelParameter
    Set oDurchmesser = oParameters.Item("d7") 'Musst Du natürlich anpassen
    oDurchmesser.Value = 40 'Neuen Durchmesser setzen(Dran denken dies sind 400mm!)
    oDoc.Update
End Sub

---

Gruß Egbert

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

---

Hallo Egbert!
Vielen Dank für deine Antwort!
Nach weiterem Suchen bin ich irgendwann auch auf diese Möglichkeit gestoßen, Bauteilparameter per VBA anzupassen. Jetzt funktioniert alles!
Beste Grüße, Simon

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

---

Bei mir hängt sich der Code in der 4. Zeile auf :-/

Fehler beim Kompilieren

Benutzerdefinierter Typ nicht definiert.

Woran liegt das? 

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

---

kann ich leider nicht nachvollziehen (bei mir funktioniert es)
Der Fehler ist in dieser Zeile: "Set oDoc = oapp.ActiveDocument"?

Ich kann nur raten. Vielleicht die Zeile ersetzen durch
Set oDoc = ThisApplication.ActiveDocument
Dann werden die ersten beiden Zeilen mit oapp nicht mehr gebraucht, können auskommentiert werden.

Ist ein Part geöffnet, wenn das Makro gestartet wird?
Welche IV-Version?

------------------
Gruß KraBBy

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

---

Danke für Deine Antwort.

Nein schon eine Zeile davor:

Dim oDoc As Document

Ich habe versucht einen Verweis zu setzen auf die "Autodesk Inventor Object Library"
Hier kommt folgende Fehlermeldung -> "Fehler beim Laden einer DLL"

Ja es ist ein Part geöffnet.
Inventor 2018

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

---

reden wir von VBA oder setzt Du das mit .Net in einem AddIn um?

falls .Net
- falsches Forum
- könnte ... As Inventor.Document klappen
  (wobei ich da keine Ahnung habe, wovon ich rede)

falls VBA:
mit Verweis setzen, ist VBA-Editor -> Menü Tools -> References gemeint?
Da sollte der Haken gesetzt sein bei der "Autodesk Inventor Object Library" (das halte ich für ~Standard). Zeigt bei mir auf diese Datei
"C:\Program Files\Autodesk\Inventor 2016\Bin\RxInventor.tlb" (falls das hilft, kA ob für IV2018 analog)

------------------
Gruß KraBBy

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

---

Es ist VBA

der Pfad ist bei mit exakt der selbe wie ich eben sehe.
Daher kann das auch nicht funktionieren!?

Richtig wäre:
C:\Program Files\Autodesk\Inventor 2018\Bin

wie kann ich den Pfad ändern?

[Diese Nachricht wurde von Scoopa am 05. Sep. 2018 editiert.]

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

---

Erscheint mir logisch, dass darin die Ursache liegen könnte.

In dem Dialog gibt es rechts einen Button, über den dann die Datei gewählt werden kann. (Habs gerade nicht zur Hand, deshalb weiß ich nicht wie der Button heißt)

------------------
Gruß KraBBy

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

---

Ja das habe ich schon versucht. Aber die Ursache bleibt komischerweise die selbe.
Gleiche Fehlermeldung. Wollte die RxInventor.tlb einbinden.
Aber vermutlich braucht es eine DLL Datei? Nur welche ist das?

Vielleicht die hier?
https://forums.autodesk.com/t5/inventor-customization/a-reference-to-autodesk-inventor-object-library-could-not-be/td-p/5681019

Autodesk.Inventor.Interop.dll

Der Button heisst "Durchsuchen" ... Dort kann man die Datei einbinden. Also eigentlich  

[Diese Nachricht wurde von Scoopa am 06. Sep. 2018 editiert.]

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

---

Wenn ich den Code direkt in ein Bauteil einbinde, dann funktioniert es! 

Also liegt es offenbar wirklich nur an der Verknüpfung von dem Verweis auf die Datei!?

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

---

Ist es auch möglich in einer Baugruppe einige Bauteile masslich zu verändern?

oder muss man dazu jedes einzelne Bauteil extra ändern?
Also evtl so

-Bauteil öffnen
-Bauteil masslich editieren
-Bauteil speichern
-Bauteil schliessen
-Baugruppe aktualisieren

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

---

Nein, geht auch direkt aus der Baugruppe:

Code:

---

Public Sub MaßBgÄndern()
    Dim oapp As Application
    Set oapp = ThisApplication
    Dim oBgDoc As Document
    Set oBgDoc = oapp.ActiveDocument
    Dim oDoc As PartDocument
    Set oDoc = oBgDoc.ReferencedDocuments.Item(1) 'Hier deine Parts auswählen
    Dim oParameters As Parameters
    Set oParameters = oDoc.ComponentDefinition.Parameters
    Dim oDurchmesser As ModelParameter
    Set oDurchmesser = oParameters.Item("d7") 'Musst Du natürlich anpassen
    oDurchmesser.value = 20 'Neuen Durchmesser setzen(Dran denken dies sind 400mm!)
    oBgDoc.Update
End Sub

---

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

---

Vielen Dank!

Bei Item nehme ich Namen des Bauteils im Strukturbaum?

Set oDoc = oBgDoc.ReferencedDocuments.Item(1) 'Hier deine Parts auswählen

Also

Set oDoc = oBgDoc.ReferencedDocuments.Item(Name des Bauteils) 'Hier deine Parts auswählen

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

---

Geht das ganze auch in einer Unterbaugruppe?
Bzw bei einem Bauteil, dass in der Baugruppe in einer darin enthaltenen Baugruppe auftaucht?

Hauptbaugruppe
|__ Bauteil          'das ist mit Set oDoc = oBgDoc.ReferencedDocuments.Item(1) anzuwählen - soweit verstanden
|__ Unterbaugruppe
      |___Bauteil    'wie kann ich diese Bauteile editieren?
      |___Bauteil    'wie kann ich diese Bauteile editieren?

[Diese Nachricht wurde von Scoopa am 12. Sep. 2018 editiert.]

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