Offset Sketch Arc

[danijel.radenkovic]

Hello,

I have found an example which shows how to offset an rectangle by offset using point option.

Here is a code:

' Create a rectangle
Dim oRectangleLines As SketchEntitiesEnumerator
Set oRectangleLines = oSketch.SketchLines.AddAsTwoPointRectangle(oTransGeom.CreatePoint2d(1, 2), oTransGeom.CreatePoint2d(5, 5))

' Create a new object collection
Dim oCollection As ObjectCollection
Set oCollection = ThisApplication.TransientObjects.CreateObjectCollection

' Add the first sketch line of the rectangle to the collection
oCollection.Add oRectangleLines.Item(1)

' Offset
Dim offsettedentities As SketchEntitiesEnumerator
Set offsettedentities = oSketch.OffsetSketchEntitiesUsingPoint(oCollection, oOriginSketchPoint.Geometry, True, True)

All that I need now is to adapt code for other type of sketch entity, for example for the arcs.

I tried with folowing code but I am getting error type missmatch.

Dim oArc As SketchEntitiesEnumerator 'I know this declaration makes a problem but if I declare variable as SketchArc I can't add to collection
Set oArc = oSketch.SketchArcs.AddByCenterStartEndPoint(oTransGeom.CreatePoint2d(0, 0), oTransGeom.CreatePoint2d(-5, 0), oTransGeom.CreatePoint2d(5, 0), True)

' Create a new object collection
Dim oCollection As ObjectCollection
Set oCollection = ThisApplication.TransientObjects.CreateObjectCollection

' Add the first sketch line of the rectangle to the collection
oCollection.Add oArc.Item(1)

' Offset
Dim offsettedentities As SketchEntitiesEnumerator
Set offsettedentities = oSketch.OffsetSketchEntitiesUsingPoint(oCollection, oOriginSketchPoint.Geometry, True, True)

Can someone help me with this.

Regards

Danijel

[ekinsb · Accepted solution]

It is about the types.  When you create a rectangle, it's creating four lines so it returns the SketchEntitiesEnumerator, which is a collection of the four lines.  When you create an arc it creates and returns that single arc.  Here's the modified code that takes that into account.

Dim oArc As SketchArc
Set oArc = oSketch.SketchArcs.AddByCenterStartEndPoint(oTrans​Geom.CreatePoint2d(0, 0), oTransGeom.CreatePoint2d(-5, 0), oTransGeom.CreatePoint2d(5, 0), True)

' Create a new object collection
Dim oCollection As ObjectCollection
Set oCollection = ThisApplication.TransientObjects.CreateObjectColle​ction

' Add the first sketch line of the rectangle to the collection
oCollection.Add oArc

' Offset
Dim offsettedentities As SketchEntitiesEnumerator
Set offsettedentities = oSketch.OffsetSketchEntitiesUsingPoint

[danijel.radenkovic]

Hello Mr. Brian,

Thank you for the great answer. It works perfect!

I have also two more topics that I expect answers which will be helpfull for many users and if I move topics to the top many times, this can be ungrateful to new topics of other users cause I will push down their topics again and again.

I will be gratefull to someone if can give me the right answer.

https://forums.autodesk.com/t5/inventor-customization/delete-specific-sketch-constraint-using-vba/m-...

https://forums.autodesk.com/t5/inventor-customization/angular-dimension-between-two-sketch-lines/td-...

Thank you very much again.

Best regards

Danijel