Add feature control frame to general dimension

[adhil.pa.789]

Can anyone help to create code for adding feature control frame to general dimension. sample feature control given below

 

[JelteDeJong · Accepted solution]

I think that the following rule will do precisely what you want. But it is not very flexible. It will turn the feature control frame always 90 deg also if you don't want it for other dimensions. And it's moved to the left from the dimension text. That is only good if you have a vertical dimension. For horizontal dimensions that is not good...

Dim oTg = ThisApplication.TransientGeometry
Dim doc As DrawingDocument = ThisDoc.Document
Dim sheet As Sheet = doc.ActiveSheet
Dim dimension = ThisApplication.CommandManager.Pick(
	SelectionFilterEnum.kDrawingDimensionFilter, 
	"Select a VERICAL dimension")

Dim rows As FeatureControlFrameRows = sheet.FeatureControlFrames.CreateFeatureControlFrameRows()
rows.Add(GeometricCharacteristicEnum.kPosition, "Ø0.02", "", "A")

Dim pointCollection = ThisApplication.TransientObjects.CreateObjectCollection()

Dim textPoint = dimension.Text.Origin
' move the FeatureControlFrame away from the text.
Dim position As Point2d = oTg.CreatePoint2d(
    textPoint.X + 1,
    textPoint.Y)
pointCollection.Add(position)

' Add the next 2 lines if you want a leader 
'Dim intent = sheet.CreateGeometryIntent(dimension, dimension.DimensionLine.MidPoint)
'pointCollection.Add(intent)

Dim fcf = sheet.FeatureControlFrames.Add(pointCollection, rows)
fcf.Rotation = (Math.PI / 180) * 90

[adhil.pa.789]

Thanks for your support.
Is it vba code? I need vba code.some error occurred while running

[JelteDeJong · Accepted solution]

This is iLogic code (or to be exact VB.net code). It would be better if you did not write VBa any more. VBa is obsolete. (But for now you can still make it work...) For more information see this blog post "Is VBA in Inventor obsolete?"

[adhil.pa.789]

I want one more help,

https://forums.autodesk.com/t5/inventor-ilogic-and-vb-net-forum/feature-control-frame-position/m-p/1...