How I can select the same entity in different selectionbox.
I have two SelectionBox, and I want to select points in both, and the Possibility for that are repeated the same entity.
I'm using the property, AllowMultipleSelectOfSameEntity, but do not make it.
Any ideas?
This is my example:
Public SelBoxPointCol_1 As PropertyManagerPageSelectionbox
Public SelBoxPointCol_2 As PropertyManagerPageSelectionbox
'SelBoxPointCol_1
controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
SelBoxPointCol_1 = GrColumnas.AddControl(SelBoxPointColID, controlType, "Select points", leftAlign, options, "Select points")
If Not SelBoxPointCol_1 Is Nothing Then
Dim filter() As Integer = New Integer(1) {swSelectType_e.swSelSKETCHPOINTS, swSelectType_e.swSelSKETCHSEGS}
SelBoxPointCol_1.Height = 40
SelBoxPointCol_1.SingleEntityOnly = False
SelBoxPointCol_1.AllowSelectInMultipleBoxes = True
SelBoxPointCol_1.AllowMultipleSelectOfSameEntity = True
SelBoxPointCol_1.GetSelectedItems()
End If
'SelBoxPointCol
controlType = swPropertyManagerPageControlType_e.swControlType_Selectionbox
leftAlign = swPropertyManagerPageControlLeftAlign_e.swControlAlign_LeftEdge
options = swAddControlOptions_e.swControlOptions_Enabled + swAddControlOptions_e.swControlOptions_Visible
SelBoxPointCol_2 = GrColumnas.AddControl(SelBoxPointColID, controlType, "Select points with X", leftAlign, options, "Select points with X")
If Not SelBoxPointCol_2 Is Nothing Then
Dim filter() As Integer = New Integer(1) {swSelectType_e.swSelSKETCHPOINTS, swSelectType_e.swSelSKETCHSEGS}
SelBoxPointCol_2.Height = 40
SelBoxPointCol_2.SingleEntityOnly = False
SelBoxPointCol_2.AllowSelectInMultipleBoxes = True
SelBoxPointCol_2.AllowMultipleSelectOfSameEntity = True
SelBoxPointCol_2.GetSelectedItems()
End If
Thanks in advance.