---

vba-mat-anlegen.jpg

Hallo,

ich muss in den nächsten Tagen einige große Baugruppen als STP-Datei laden. Diese muss ich im IV noch weiter verarbeiten.
Dabei muss ich in jedem Bauteil das richtige Material anlegen und aktiv setzen. Dazu habe ich schon ein klasse Prog gefunden. Und zwar das "Copy and Set Material" auf http://www.kwikmcad.com/icode/macros.asp. Nun haben aber nicht alle Teile das gleiche Material. Hierzu habe ich mir mit Hilfe des Forums ein kleines Macro gebaut, mit dem ich dann die paar Abweichler definieren kann. Doch leider bekomme ich einen Fehler, den ich nicht verstehe. Im Anhang findet ihr einen Bild. Da ist der Fehler zu sehen.

Könnt ihr damit was anfangen?

Gruß
SKYSURFER

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

---

Hallo,

könnte es sein, dass Dein VB-Projekt 'Material' heisst ?

Nur so eine Vermutung: versuch die Deklaration mal mit Inventor.Material

------------------
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

---

MatAnlegen-fehler.txt

Guten Morgen,

vielen Dank für den Tip. Hat super funktioniert.

Doch nun habe ich schon wieder ein Problem, aber eine Idee warum das nicht funktioniert habe ich nicht.
Ich hab nur soviel mitbekommen, dass kein Material bei

Code:

---

Select Case CB_MATERIAL

---

ausgewertet wird, da bei

Code:

---

MsgBox (Matname)

---

nichts zurückgegeben wird.

Ich habe keinen Plan was das jetzt schon wieder ist.

Gruß
SKYSURFER

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

---

Hallo,

dann ist dein Material in der Liste aus:

1.0037
1.4301
AlSiMg 0,5

nicht dabei. Ich sehe sowieso nicht wo das CB_MATERIAL her kommt. 

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

vba-mat-anlegen-2.jpg

Zitat:

---

Original erstellt von daywa1k3r:
Hallo,

dann ist dein Material in der Liste aus:

1.0037
1.4301
AlSiMg 0,5

nicht dabei. Ich sehe sowieso nicht wo das CB_MATERIAL her kommt. 

---

Das konnest du auch noch nicht.
Aber jetzt.

Code:

---

Private Sub CB_UEBERNEHMEN_Click()
MatAnlegen.NEWMAT

End Sub

Private Sub UserForm_Activate()
CB_MATERIAL.Clear
Dim oDoc As PartDocument
If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
    Set oDoc = ThisApplication.ActiveDocument
      CB_MATERIAL.AddItem "1.0037", 0
      CB_MATERIAL.AddItem "1.4301", 1
      CB_MATERIAL.AddItem "AlMgSi 0,5", 2
  End If
 
  Set oDoc = Nothing

End Sub

---

Gruß
SKYSURFER

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