[V8i SS3 VBA] Get Fillcolor and Patterninfo from Polygon Collection feature

Martin,

The shape elements are stored as sub-features in the XFM type 106 polygon collection. The following bold Bentley Map VBA code should give you an idea of how you can traverse the polygon collection and obtain information from each sub-feature shape elements.

Private Sub processPolygons()

Jeff,

Thanks for your answer. I'am attaching an example DGN und my Code to get the FillColor and the Pattern Info from the feature.

My Code:

Class SelectFeatures:
Implements ILocateOpEvents

Public ee As ElementEnumerator
Public eeCount As Long
Public fe As FeatureEnumerator
Public feCount As Long

Private Sub ILocateOpEvents_OnCleanup()

End Sub

Private Sub ILocateOpEvents_OnFinished(ByVal locateOp As xft.ILocateOp)
    
    eeCount = locateOp.LocatedElementsCount
    Set ee = locateOp.GetLocatedElements()
    feCount = locateOp.LocatedFeaturesCount
    Set fe = locateOp.GetLocatedFeatures()
    
End Sub

Private Sub ILocateOpEvents_OnRejected(ByVal RejectedReasonType As xft.LocateOpRejectedReasonType, RejectedReason As String)

End Sub

Private Sub ILocateOpEvents_OnTerminate()

End Sub

Private Sub ILocateOpEvents_OnValidate(ByVal RootFeature As xft.IFeature, ByVal Element As Element, Point As Point3d, ByVal View As View, Accepted As Boolean, RejectReason As String)

End Sub

Private Sub CheckPatternInfo(ele As ClosedElement)

    Dim pat As Pattern
    
    On Error GoTo errHandler
    
    Debug.Print "HasPattern=" = ele.HasPattern()
    If ele.HasPattern Then
        Set pat = ele.GetPattern()
        Debug.Print pat.Angle1
    End If
    
    Exit Sub
errHandler:
    Debug.Print "HasPattern=False"
End Sub
      

Modul:                          

Public Sub CopyFeatureToNewFile()

    Dim fea As feature
    Dim feaNumer As Integer
    
    Dim selFeatures As SelectFeatures

    Dim oLocateOp As New locateOp
    oLocateOp.IncludeOnlyFeatures = True
    oLocateOp.Mode = LocateOpMode.locateOpModeScan
    oLocateOp.IncludeFeatureName "Fl_Nutzung_Collection"
    oLocateOp.AutoAcceptScanFile = True
    
    Set selFeatures = New SelectFeatures
    CmdMgr.StartLocateOperation oLocateOp, selFeatures
    
    feaNumer = 1
    Do While (selFeatures.fe.MoveNext)
        
        'On Error Resume Next
        Set fea = selFeatures.fe.Current
        If Not fea Is Nothing Then
            If fea.GetFeatureDefinition.IsCollection Then
                
                Dim index As Long
                For index = 0 To (fea.SubFeatureCount - 1)
                    Dim oSubFeature As feature
                    Set oSubFeature = fea.GetSubFeature(index)
                    
                     With oSubFeature
                        Debug.Print "Number:" & CStr(feaNumer) & " Geometry Type=" & .Geometry.Type
                        If .GeometryType = GEOMETRYTYPE_Polygon Then
                            With .Geometry.AsClosedElement
                                If .FillMode = msdFillModeNotFilled Then
                                    Debug.Print "FillMode=NotFilled"
                                Else
                                    Debug.Print "FillMode=Filled"
                                End If
                                Debug.Print "FillColor=" & .FillColor
                                CheckPatternInfo oSubFeature.Geometry.AsClosedElement
                            End With
                        End If
                     End With
                Next index
            End If
        End If
        feaNumer = feaNumer + 1
    Loop
    
    MsgBox "Complete"
End Sub

The output at my cumputer is:

Number:1 Geometry Type=14
FillMode=NotFilled
FillColor=74
HasPattern=False
Number:2 Geometry Type=14
FillMode=NotFilled
FillColor=74
HasPattern=False
Number:3 Geometry Type=14
FillMode=NotFilled
FillColor=74
HasPattern=False
Number:3 Geometry Type=6
FillMode=NotFilled
FillColor=74
HasPattern=False
Number:4 Geometry Type=6
FillMode=NotFilled
FillColor=74
HasPattern=False
Number:4 Geometry Type=14
FillMode=NotFilled
FillColor=74
HasPattern=False

I'am not able to get the correct fill and pattern informations.

Is there anything wrong in my code?

Best Regardstest_iplot.dgn

Martin

Martin,

Using your data and code have been able to replicate what you are reporting. I'm working now to determine if this is a previously unreported defect. I will update you my findings once complete.

I would be interested to know more about what you are attempting to do in case this turns out to be a confirmed defect. I could then possibly help you find a temporary workaround.

Jeff,

I want to create a design file, where the collection feature will be placed as a groupt hole.

There is an app for printing designfiles, which is not able to print the collection elements correctly.

Now when I want to create the groupt hole, I must attach the fill and pattern info from the original elements.

Martin

Jeff,

I want to create a design file, where the collection feature will be placed as a groupt hole.

There is an app for printing designfiles, which is not able to print the collection elements correctly.

Now when I want to create the groupt hole, I must attach the fill and pattern info from the original elements.

Martin

Martin,

Please be aware that you can use "File > Save As..." with "Options > XFM > Convert from 08.11.09.xx to 08.11.07.xx" selected to create a design file with the type 106 polygon collection elements converted to associative regions.

Jeff,

how can I get  the assiciated region from the feature?

Has the feature a function to get that element?

Martin

Martin,

Is the printing app to which you refer unable to process the XFM V1 08.11.07.xx formatted file? I suggested that to potentially eliminate the need to process the XFM V2 08.11.09.xx formatted file.

Attempting to read the fill and pattern information from the type 106 may not be possible using VBA so I was wondering if you have MDL or C/C++ development experience?

Jeff,

the VBA app is for a customer of me. He want's to edit/manupulate the code and he has only experience in VBA.

I ask him to try the plot with the 08.11.07.xx format.

What are the functions to get the fillcolor and patter info from a type 106 element in MDL/C++

Martin