---

Hallo,

bin Neuling in VBA für Inventor und habe daher schon bei einfachen Dingen meine grossen Probleme.
Um das VBA in Inventor zu verstehen, versuch ich mich grad an ein paar einfachen Beispielen, aber da hängt es leider auch schon.
Ich habe per VBA einen Kreis erstellt, nun will den Radius von diesem Kreis verändern. Ich möchte aber nicht den Kreis löschen und einen neuen mit den neuen Radisu erstellen.
Mein Code lautet folgendermassen:
Also ein Sketch ist bereits geöffnet sonst funktionierts nicht
Public Sub Kreis()

Dim CenterRadius1
   
    CenterRadius1 = 5
   
    Dim oSketch As PlanarSketch
    Set oSketch = ThisApplication.ActiveEditObject

    ' Set a reference to the transient geometry collection.
    Dim oTransGeom As TransientGeometry
    Set oTransGeom = ThisApplication.TransientGeometry

    ' Create the collection that will contain the fit points for the spline.
    Dim oCircle As SketchCircle
    Set oCircle = oSketch.SketchCircles.AddByCenterRadius(oTransGeom.CreatePoint2d(0, 0), CenterRadius1)

    oCircle.Geometry.Radius = 10
   
    R = oCircle.Geometry.Radius
   
    Debug.Print R
   
End Sub

Also er nimmt den neuen Radius von 10 nicht wirklich an da R bei der Print ausgabe immernoch auf 5 ist, der Sketch in Invetor ändert sich auch nicht....

Hoffe auf Hilfe

Gruss Dennis

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

---

wenn ich anstelle von

oCircle.Geometry.Radius = 10

oCircle.Radius = 10

schreib funktionierts.....
Find ich irgendwie seltsam, da er bei dem anderen ja den Radius auch ermittelt aber irgendwie keinen neuen Wert setzen kann....

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