SketchRotate + Line

[Anonymous]

Hi,

i create a Line and then i want it rotate 22° from middelpoint

so it dosent work any solutions or idears ?

Inventor 2012

Dim dAngel as Double

set dAngel = 22  

Dim oLine As SketchLine

Set oLine = oSketch.SketchLines.AddByTwoPoints(oTransGeom.CreatePoint2d(150, 0), oTransGeom.CreatePoint2d(350, 0))

Call oSketch.RotateSketchObjects(oLine, oTransGeom.CreatePoint2d(0, 0), dAngel)

thx

Mario

[Anonymous · Accepted solution]

i have it

    Call oSketch.RotateSketchObjects(oCollLine, oTransGeom.CreatePoint2d(0, 0), dWinkel, False, False)