draw a circle exactly, when the radius is just designed

[benig]

Hi
the sheet shows a strech who lies not orthogonal. i have to contruct a exact circle with this radius.
Who nows a simple way?

thanks

 

[benig]

sorry, I have to correct the message:
the radius is visible on the screen. he has any posture.
now I have to construct exactly a circle with this radius.
thanks

 

[attrofy]

Use the three point circle tool and make the first line (diameter) the exact measurment of 2r. If you hold the CTRL key, it will constrain the "height" to be the same size as the first line (diameter). I hope I understood what you are asking, and this gets you going in the right direction.

 

[benig]

Thanks for your answer, he is correct! Meanwhile I have found a solution with vba:

Sub Kreis_mit_r()
Dim s As Shape
Dim posX As Double, posY As Double
Set s = ActiveSelection.Shapes(1)
ActiveDocument.Unit = cdrMillimeter
'If s.Type = cdrCurveShape Then
'MsgBox "Kurvenlänge: " & vbCrLf & s.Curve.Length & " mm"
'End If
ActiveSelection.GetPosition posX, posY
ActiveDocument.Unit = cdrMillimeter
Set sh = ActiveLayer.CreateEllipse2(posX, posY, s.Curve.Length)
'sh.Outline.Color.GrayAssign 220
'ActiveDocument.Selection.Shapes(1).Fill.UniformColor.CMYKAssign 100, 0, 100, 0
End Sub


Thanks!