Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hi @patrice.vallet 

Try this :slightly_smiling_face:

Dim oSheet As Sheet = ActiveSheet.Sheet
For Each oView As DrawingView In oSheet.DrawingViews
	For Each oCurve As DrawingCurve In oView.DrawingCurves
		If oCurve.CurveType = CurveTypeEnum.kCircleCurve
		Dim oIntent As GeometryIntent = oSheet.CreateGeometryIntent(oCurve, PointIntentEnum.kCircularLeftPointIntent)
		Dim oPoint As Point2d = oIntent.PointOnSheet.Copy
		Dim oVector As Vector2d = oCurve.CenterPoint.VectorTo(oPoint)
		oVector.ScaleBy(.3)
		oVector.AddVector(ThisApplication.TransientGeometry.CreateVector2d(oVector.X, Abs(oVector.X)))
		oPoint.TranslateBy(oVector)
	oSheet.DrawingDimensions.GeneralDimensions.AddDiameter(oPoint, oIntent, False)
End If
Next
Next

It'll add diameter dimension to ALL circles on the sheet. But you can modify it to only add the dimensions to the circles you want, now that you have the example code :slightly_smiling_face: