I am trying to move a dimension feature inside a personal geodatabase using ArcObjects VBA. I was able to move other types of features using similar code as shown below. However it is not working for dimension features. Can someone help me on this?
Sub AdjustDimensionFeature() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pmap As IMap Set pmap = pMxDoc.FocusMap Dim pFtrLyr As IFeatureLayer Set pFtrLyr = pmap.Layer(0) Dim pFC As IFeatureClass Set pFC = pFtrLyr.FeatureClass Dim pFtr As IFeature Set pFtr = pFC.GetFeature(8362) Dim pTransform2D As ITransform2D Dim pPolygon As IPolygon Set pPolygon = pFtr.ShapeCopy Set pTransform2D = pPolygon pTransform2D.Move 20, 20 Set pFtr.Shape = pPolygon pFtr.Store End Sub