Re: TAG to XFM Feature prop. and SHP Export with attributes

Jan Šlegr — Wed, 14 Aug 2013 15:42:43 GMT

Hi Dawid,

[quote user="Dawid Rarok"]Is there a way to reverse this situation? [/quote]

I assume the solution is similar to the one provided by Jeff - small VBA application.

Regards,

Jan

Re: TAG to XFM Feature prop. and SHP Export with attributes

Dawid — Wed, 14 Aug 2013 14:07:21 GMT

Hello.

Is there a way to reverse this situation?

My idea to to create tags based on xfm properties and attach to the element?

Re: TAG to XFM Feature prop. and SHP Export with attributes

Frank Klein — Thu, 07 Apr 2011 12:42:05 GMT

perfect Jeff, Thank you very much!

Re: TAG to XFM Feature prop. and SHP Export with attributes

Jeff Bielefeld — Wed, 06 Apr 2011 23:01:12 GMT

Frank,

Using VBA along with the Bentley Map XFT (XFM Feature Toolkit) library, you can convert tag data into XFM business properties. A pattern similar to the following could be applied.

Function GetTagSet(strName As String) As TagSet


    Dim oTagSets As TagSets
    
    Set oTagSets = ActiveDesignFile.TagSets
    On Error Resume Next
    Set GetTagSet = oTagSets(strName)
    If GetTagSet Is Nothing Then Set GetTagSet = oTagSets.Add(strName)
End Function
 
Private Sub ILocateOpEvents_OnFinished(ByVal locateOp As xft.ILocateOp)
    Dim te As TagElement
    Dim oTagSet As TagSet
    Dim strTagSetName As String
    Dim strPropertyValue As String
    
    Dim oRegionElement As element
    Dim oFeature As feature
    
    Dim fe As FeatureEnumerator
    Set fe = locateOp.GetLocatedFeatures
        
    strTagSetName = "Counties"
    Set oTagSet = GetTagSet(strTagSetName)
    
    Do While fe.MoveNext
        Set oFeature = fe.Current
        Set oRegionElement = oFeature.GetRelatedRegionElement
        
        With oFeature
            If oRegionElement.HasAnyTags Then
                Set te = oRegionElement.GetTag(oTagSet, "CountyName")
                strPropertyValue = te.Value
            Else
                strPropertyValue = "Unknown"
            End If
            .SetProperty "CountyName", strPropertyValue
            .ApplyAttributeChanges
            .Write (False)
        End With
    Loop
    
End Sub

For reference, attached is the tags2xfm.zip archive containing the above VBA code.

After the tag data has been converted to XFM feature instances with corresponding business properties, the existing functionality of the Bentley Interoperability application can be used to export to SHP files.