Dim pAdjust As esriEditorExt.IAdjustment Set pAdjust.CurrentTransformationMethod = pAdjust.TransformationMethod(0)
ThisDocument.CommandBars.Find("esriEditorExt.TransformCommand").Execute
Solved! Go to Solution.
Set pAdjust.CurrentTransformationMethod = pAdjust.TransformationMethod(0) Dim pTransformMethod As ITransformationMethod Set pTransformMethod = pAdjust.CurrentTransformationMethod Dim pTransformMethodRMS As ITransformationMethodRMSError Set pTransformMethodRMS = pTransformMethod Dim rmsError As Double pTransformMethodRMS.GetRMSError rmsError MsgBox rmsError