Hallo,
ich habe folgendes Problem:
Ich möchte bei einer Baugruppe oder bei Einzelteilen alle Flächen auswählen um diese anschließend zu messen.
Das Ergebniss wird für die Kalkulation des Lackieraufwands verwendet und auch um die Farben zu ändern.
Bisher habe ich dazu folgendes Makro benutzt:
Public Sub SelectAllFaces()
Dim oPart As Inventor.PartDocument
Set oPart = ThisApplication.ActiveDocument
Dim oFace As Inventor.Face
For Each oFace In oPart.ComponentDefinition.SurfaceBodies(1).Faces
oPart.SelectSet.Select oFace
Next
End Sub
Bei den alten Inventor Versionen hat das einmal funktionert, beim IV2014 leider nicht mehr.
Ich bekomme da dann im VBA die Fehlermeldung:
Run-time error '13':
Type mismatch
Markiert ist dabei die dritte Zeile oben mit "set opart = ..."
Ich kann jetzt leider nicht genau sagen bei welcher Inventor-Version das ganze noch funktioniert hat.
Vorher hatten wir IV2012 installiert.
Vielen Dank
Christian
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP