Hello
Ok, I see only one way at this time. We can use the Curve2DEvaluator of the drawing curves of the fillet feature to check if the end point of the dimension line is on the drawing curve. This is anything but smart, but maybe you can use it.
The macro assumes currently there's only 1 drawing view on the active sheet. To test it, select the dimension you want to check and run the macro.
Hopefully someone find's a better way.
Private Sub OnCurve()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oDim As RadiusGeneralDimension
Set oDim = oDrawDoc.SelectSet(1)
Dim oPoint As Point2d
Set oPoint = oDim.DimensionLine.EndPoint
Dim oDrawView As DrawingView
Set oDrawView = oDrawDoc.ActiveSheet.DrawingViews.Item(1)
Dim oDrawCurves As DrawingCurvesEnumerator
Set oDrawCurves = oDrawView.DrawingCurves(oDim.RetrievedFrom.Parent)
Dim bNotOnCurve As Boolean
bNotOnCurve = True
Dim Points(1) As Double
Points(0) = oPoint.x
Points(1) = oPoint.y
Dim oDrawCurve As DrawingCurve
For Each oDrawCurve In oDrawCurves
Dim oCurveEval As Curve2dEvaluator
Set oCurveEval = oDrawCurve.Evaluator2D
Dim GuessParams() As Double
Dim MaxDeviations() As Double
Dim Params() As Double
Dim SolTypes() As SolutionNatureEnum
On Error Resume Next
Call oCurveEval.GetParamAtPoint(Points, GuessParams, MaxDeviations, Params, SolTypes)
If ERR.Number = 0 Then
bNotOnCurve = False
ERR.Clear
Exit For
End If
Next
If bNotOnCurve = True Then
MsgBox ("Not on Curve")
Else
MsgBox ("On Curve")
End If
End Sub
R. Krieg
RKW Solutions
www.rkw-solutions.com
