---

Hallo,
ich habe ein kleines Problem bei dem beseitigen eines Fehlers. Wenn ich den unten eingefügten Code ausführe bekomme ich 
immer folgende Fehlermeldung:

Run-time error 438
Object doesn't support this property or method

in folgender Zeile
Set hybridShapeRotate1 = shapes1.Item("Drehen.1")

Wenn ich an den Anfang ein
"On Error Resume Next"
setze läuft der Code durch und macht genau das was er soll, und wie ich es haben will.

Weiß jemand wo mein Fehler liegt? Vielleicht bin aich ja auch nur mit Betriebsblindheit geschlagen.

Kurz zum Makro, es soll ein Part mit bestimmtem Namen (Urmodell, pos oder neg) um einen bestimmten Winkel (intIsAngel) drehen. Die Achse (MAchse) wurde vorher schon erzeugt.

Für jeden Hinweis wäre ich sehr dankbar.

Gruß und Dank
Axel H. N.

----------------------------- Schnipp---------------------------------
Sub rotate_modell()

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body

If frmInput.optUrmodell.Value = True Then
        Set body1 = bodies1.Item("Urmodell")
    ElseIf frmInput.optPos.Value = True Then
        Set body1 = bodies1.Item("pos")
    ElseIf frmInput.optNeg.Value = True Then
        Set body1 = bodies1.Item("neg")
End If

part1.InWorkObject = body1

Dim shapeFactory1 As ShapeFactory
Set shapeFactory1 = part1.ShapeFactory

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Referenz")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapeLinePtDir1 As HybridShapeLinePtDir
Set hybridShapeLinePtDir1 = hybridShapes1.Item("MAchse")

Dim reference1 As Reference
Set reference1 = part1.CreateReferenceFromObject(hybridShapeLinePtDir1)

Dim rotate1 As Rotate
Set rotate1 = shapeFactory1.AddNewRotate2(reference1, intIsAngel)

Dim shapes1 As Shapes
Set shapes1 = body1.Shapes

Dim hybridShapeRotate1 As HybridShapeRotate
Set hybridShapeRotate1 = shapes1.Item("Drehen.1")  < -- -- -- hier hält das Programm an

part1.InWorkObject = hybridShapeRotate1

part1.Update

End Sub
---------------------------- Schnapp ---------------------------------

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