Latest Contributions by RichardFairhurst

I need to be able to determine the same information that is made visible when a user opens the property window of a Feature Class.  The property windows knows whether to add Z and/or M properties to the tabs and pages if those options are enabled.  This works on a Feature Class with no features, so it has to be something that can be tracked from the feature class and its spatial reference. I have used the IGeodataset interface to get access to the Feature Class spatial reference, but I do not know how to use that information to determine if Z and M options have been enabled.  The HasZPrecision and HasMPrecision seem to only return false for my data if both Z and M options are disabled.  If either is enabled, I seem to get true for both, even if one is disabled.  This may be due to the way the data was created intially, but I am not sure.  Nonetheless the properties for the feature classes I have tested correctly show only the properties for the option that is actually enabled. Any ideas how to figure this out without having a feature of the feature class to query?  Basically how does the Feature Class property window know which checkbox was checked on the General tab concerning Z and M when there are no features in the Feature Class to query.  Thanks. ... View more

Just for anyone's information, I have been on the phone with ESRI support and after many hours gotten an Add-In Application Extension to behave the way I wanted when its original AutoLoad property is set to False (the default wizard setting for an Application Extension).  I found that after the initial time the extension is used, whatever state the user left the Extension Manager in or the add-in UI element (dockable window open, button customized to a toolbar) is persisted when ArcMap is closed and will reappear in that state the next time ArcMap is opened. If you have tried the Custom Selection Extension sample, you might be led to believe that the extension checks to see if it is enabled automatically when ArcMap restarts, since this code appears to automatically fire the Extension's OnStartup method.  However, this is not really the case.  If the user left an Add-In Application Extension enabled when they closed ArcMap the OnStartup() method only fires if it is triggered by specific code contained in a UI Add-in type that fires its New method the next time ArcMap is opened.  In the sample above this is only accomplished if the toolbar opens immediately when ArcMap starts.  In that case, the toolbar registers its Add-in components, which in turn fire code to check the extension state, which then makes the extension actually fire it's Startup Method as ArcMap opens. Anyway, if everytime ArcMap starts you want an Add-In dockable window the user left open to check to see if the Add-In Application Extension is enabled here is my suggested minimum code for the Dockable Window (all the code below will do is switch visibility between a label and a combobox on the dockable window depending on the Extension state when ArcMap opens or the extension is enabled or disabled in the Extension Manager): Public Class MyDockableWindow   Inherits UserControl   Private Shared s_label As Label   Private Shared s_combobox1 As System.Windows.Forms.ComboBox   Private Shared s_enabled As Boolean   Public Sub New(ByVal hook As Object)     InitializeComponent()     Me.Hook = hook     s_label = label1 ' set a shared variable to a label on the dockable window     s_comboBox1 = comboBox1 ' set a share variable to a combobox on the dockable window     ' Have the extension check its enabled status     MyExtension.IsExtensionEnabled() ' replace "MyExtension" with your actual extension name.   End Sub   ' Method called by the extension to set the state of the dockable window   Friend Shared Sub SetEnabled(ByVal enabled As Boolean)     MyExtension.IsExtensionEnabled()     s_enabled = enabled     ' if the dockable window was never displayed, combobox could be null     If s_combobox Is Nothing Then       Return     End If     If enabled Then       s_label.Visible = False ' label saying extension is disabled appears       s_combobox1.Visible = True ' a combobox control appears if the extension is enabled     Else       s_label.Visible = True ' Label saying extension is disabled disappears       s_combobox1.Visible = False ' a combobox control disappears if the extension is disabled     End If End Sub   ''' <summary>   ''' Host object of the dockable window   ''' </summary>   Private privateHook As Object ' Standard code added by the Add-In dockable wizard End Class Then in the Add-In Application Extension here is my minimum suggested code: Public Class MyExtension ' replace with actual extension name   Inherits ESRI.ArcGIS.Desktop.AddIns.Extension   Private Shared s_dockWindow As ESRI.ArcGIS.Framework.IDockableWindow   Private Shared s_extension As MyExtension ' replace with actual extension name   ' Overrides   Protected Overrides Sub OnStartup()     s_extension = Me     ' Wire up events. Example events are commented below.  They require additional code.     ' AddHandler ArcMap.Events.NewDocument, AddressOf ArcMap_NewOpenDocument     ' AddHandler ArcMap.Events.OpenDocument, AddressOf ArcMap_NewOpenDocument     Initialize()   End Sub   Protected Overrides Sub OnShutdown()     Uninitialize()     ' Reverse whatever events you wired up.  Examples events are below  They require additional code.     ' RemoveHandler ArcMap.Events.NewDocument, AddressOf ArcMap_NewOpenDocument     ' RemoveHandler ArcMap.Events.OpenDocument, AddressOf ArcMap_NewOpenDocument     s_dockWindow = Nothing     s_extension = Nothing     MyBase.OnShutdown()   End Sub      Private Sub Initialize()     If s_extension Is Nothing Or Me.State <> ExtensionState.Enabled Then       Return     End If     ' Reset event handlers.  Examples are commented below.  They require additional code.     ' Dim avEvent As IActiveViewEvents_Event = TryCast(ArcMap.Document.FocusMap, IActiveViewEvents_Event)     ' AddHandler avEvent.ItemAdded, AddressOf AvEvent_ItemAdded     ' AddHandler avEvent.ItemDeleted, AddressOf AvEvent_ItemAdded     ' AddHandler avEvent.ContentsChanged, AddressOf avEvent_ContentsChanged     ' Update the UI     MyDockableWindow.SetEnabled(True)   End Sub   Private Sub Uninitialize()     If s_extension Is Nothing Then       Return     End If     ' Detach event handlers.  Examples are commented below.         ' Dim avEvent As IActiveViewEvents_Event = TryCast(m_map, IActiveViewEvents_Event)     ' RemoveHandler avEvent.ItemAdded, AddressOf AvEvent_ItemAdded     ' RemoveHandler avEvent.ItemDeleted, AddressOf AvEvent_ItemAdded     ' RemoveHandler avEvent.ContentsChanged, AddressOf avEvent_ContentsChanged     ' avEvent = Nothing      ' Update the UI      MyDockableWindow.SetEnabled(False)   End Sub   Friend Shared Function GetDockableWindow() As ESRI.ArcGIS.Framework.IDockableWindow     If s_extension Is Nothing Then       GetExtension()     End If     ' Only get/create the dockable window if they ask for it     If s_dockWindow Is Nothing Then       Dim dockWinID As UID = New UIDClass()       dockWinID.Value = ThisAddIn.IDs.MyDockableWindow       s_dockWindow = ArcMap.DockableWindowManager.GetDockableWindow(dockWinID)     End If     Return s_dockWindow   End Function   Protected Overrides Function OnSetState(ByVal state As ExtensionState) As Boolean     ' Optionally check for a license here     Me.State = state     If state = ExtensionState.Enabled Then       Initialize()     Else       Uninitialize()     End If     Return MyBase.OnSetState(state)   End Function   Protected Overrides Function OnGetState() As ExtensionState     Return Me.State   End Function   Friend Shared Function IsExtensionEnabled() As Boolean     If s_extension Is Nothing Then       GetExtension()     End If     If s_extension Is Nothing Then       Return False     End If     Return s_extension.State = ExtensionState.Enabled   End Function   Private Shared Function GetExtension() As MyExtension ' replace the "MyExtension" type with your actual extension's name     If s_extension Is Nothing Then       Dim extID As UID = New UIDClass()       extID.Value = ThisAddIn.IDs.MyExtension  ' replace the "MyExtension" type with your actual extension's name       ' Call FindExtension to load this just-in-time extension.       ArcMap.Application.FindExtensionByCLSID(extID)     End If     Return s_extension   End Function End Class Finally here is a button to launch the dockable window. Public Class MyButton   Inherits ESRI.ArcGIS.Desktop.AddIns.Button   Public Sub New()   End Sub   Protected Overrides Sub OnClick()     Dim dockWindow As ESRI.ArcGIS.Framework.IDockableWindow     dockWindow = MyExtension.GetDockableWindow()     If dockWindow Is Nothing Then       Return     End If     dockWindow.Show((Not dockWindow.IsVisible()))   End Sub   Protected Overrides Sub OnUpdate()     Me.Enabled = MyExtension.IsExtensionEnabled()   End Sub End Class ... View more

I ran some code with a feature class that had X, Y, Z and M units to get lengths from the I3DCurve interface.  I ran a test on a feature using a Projected Coordinate System where my initial X, Y and Z units were all in Feet_US and got the expected 3D length value.  Then I modified the feature class to change the Z Units to meters, but I left the X/Y coordinate units in Feet_US.  When I reran the code the 3D length reported by the I3DCurve interface did not change from the previous run when I had the Z units in feet.  I made sure that the polyline I supplied to the interface had been assigned the feature class' Spatial Reference and made sure the Z values I tested were much greater than the change in X/Y so the difference in Z units would have an obvious impact, but that had no effect on the length that the I3DCurve reported. Here is my main loop code (variables are correctly Dimensioned to the correct types outside the loop) that produced no change in the reported length after I changed my Spatial Reference Z Units from Feet_US to meters.  Am I missing something about how my code should be written to get the I3DCurve interface to recognize the change I made to the Spatial Reference of the Z units?  If I am not than it seems that this interface either has a bug or an undocumented (and unexpected) behavior for its method of calculating the 3D length of the curve when a feature class has mixed X/Y and Z units. ' Assume a Polyline Feature that is Z and M Aware is assigned to pFeat, which is an IFeature                 Dim pSpatialRef As ISpatialReference = pFeat.Shape.SpatialReference                 If Not TypeOf pSpatialRef Is IProjectedCoordinateSystem5 Then                    ' Currently not able to process Geographic Coordinate System or Unknown                    MsgBox("Spatial Reference Is Not A Projected Coordinate System")                    Return                 End If                 pPolyline = New Polyline                 pPolyline.SpatialReference = pSpatialRef ' Make sure Polyline has Spatial Reference                 pPolyline = pFeat.Shape ' Assign geometry to Polyline                 pCurve3D = pPolyline                 pPointColl = pFeat.ShapeCopy ' Assign to pointCollection                 pEnumVert = pPointColl.EnumVertices                 pInPoint = New Point ' Reinitialize Input Point                 pInPoint.SpatialReference = pSpatialRef                 pEnumVert.Reset()                 pEnumVert.QueryNext(pInPoint, lPart, lVert)                 LastPoint = New Point ' Reinitialize Input Point                 i = 1                 Do While Not pInPoint Is Nothing                     ' For lPtCnt = 0 To pPointColl.PointCount - 1 ' For loop to access all curve points                     If lPart = 0 And lVert = 0 Then                         LastPoint = pInPoint                         GapAdd = 0                     End If                     ' pInPoint = pPointColl.Point(lPtCnt) ' Assign Input successive input Points                     pCurve3D.QueryPointAndDistance3D(ESRI.ArcGIS.Geometry.esriSegmentExtension.esriNoExtension, pInPoint, False, pOutPoint, distAlong, distFrom)                     If lVert = 0 And Not Ignore_Gaps Then                         GapAdd = (Math.Sqrt((pInPoint.X - LastPoint.X) ^ 2 + (pInPoint.Y - LastPoint.Y) ^ 2 + ((pInPoint.Z - LastPoint.Z) * ZUnitFactor) ^ 2)) * Measure_Factor + GapAdd                     End If                     pEnumVert.put_M(distAlong + GapAdd) ' Modify M to be 3D distance along curve                     ' pPointColl.ReplacePoints(lPtCnt, 1, 1, pInPoint) ' Replace the point with its new M version'                     If pEnumVert.IsLastInPart And pPointColl.PointCount <> i Then                         LastPoint = pInPoint                         pEnumVert.QueryNext(pInPoint, lPart, lVert)                     ElseIf Not pEnumVert.IsLastInPart Then                         pEnumVert.QueryNext(pInPoint, lPart, lVert)                     Else                         pInPoint = Nothing                     End If                     ' pInPoint = Nothing                     ' Next lPtCnt                     i += 1                 Loop                 pFeat.Shape = pPointColl                 pFCursor.UpdateFeature(pFeat) ' Update the cursor ... View more