AnsweredAssumed Answered

moving a dimension feature(VBA)

Question asked by vinayan on Mar 12, 2012
Latest reply on Mar 12, 2012 by vinayan

I am trying to move a dimension feature. I could move other types of features using code similar to the one shown below. Can somebody help?

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