10-01-2020
07:44 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-01-2020
07:44 AM
Try this ![]()
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 ![]()
Jhoel Forshav
Download my free Inventor Addin - Hole Projector
LinkedIn | Ideas | Contributions | Blog posts | Website