Creating Dimension Features

January 12th, 2008 Noor Posted in ArcObjects C# |

Warning: copy() [function.copy]: Filename cannot be empty in /home/xnoor/public_html/wp-content/plugins/mytube/mytube.php on line 220

Dimension Features are featrtures used to display dimensions and display its length between 2 points with some little customization , like the symbology , its size and color, you create a Dimension Features class using ArcCatalog or programatically, but i never got into that, if you try to create a dimension features using Arcmap you would notice that its shape is a polygon, but naturally but trying to make a dimension features programatically, i created normal polygon and i was storing it on the feature class but i discoverred later that its not a normal polygon ,

here the following code creates dimension features for a polygon ,

Function CreateDimesionFeature(BeginingPoint As IPoint, EndingPoint As IPoint) Dim pMapLayer As IFeatureLayer Dim pDataset As IDataset Dim pWorkSpace As IWorkspace Dim pWorkSpaceEdit As IWorkspaceEdit Dim pFeatureClass As IFeatureClass Dim pFeature As IFeature Set pMapLayer = pMxdocument.FocusMap.Layer(GetLayerIndexByName("Dimension")) Set pDataset = pMapLayer Set pWorkSpace = pDataset.Workspace Set pWorkSpaceEdit = pWorkSpace Set pFeatureClass = pMapLayer.FeatureClass pWorkSpaceEdit.StartEditing (True) '============================================== Dim pDimensionShape As IDimensionShape Set pDimensionShape = New DimensionShape Set pDimensionShape.BeginDimensionPoint = BeginingPoint Set pDimensionShape.EndDimensionPoint = EndingPoint 'set pDimensionShape.TextPoint= Set pDimensionShape.DimensionLinePoint = BeginingPoint '================================================ Dim pDimensionFeature As IDimensionFeature Set pFeatureClass = pMapLayer.FeatureClass Set pDimensionFeature = pFeatureClass.CreateFeature With pDimensionFeature .DimensionShape = pDimensionShape .DimensionType = esriDimensionTypeAligned .StyleID = 0 '.CustomLength= End With Set pFeature = pDimensionFeature pFeature.Store pWorkSpaceEdit.StopEditing (True) End Function