Modify menu >> Solids Editing >> Intersect.....I am trying to get Intersection of different regions using VBA. But till now i am not successful. Here is the uncomplete code [[[[[Public Sub OptRegion(ByVal sLayName As String)
On Error Resume Next
Set OptRgn = ThisDrawing.SelectionSets.Item(sLayName)
If Err Then
Err.Clear
Set OptRgn = ThisDrawing.SelectionSets.Add(sLayName)
'Else
'gsset.Clear
'gsset.Delete
End If
'define type of selection set (crossing, window, etc, in this case, all)
Dim mode As Integer
mode = acSelectionSetAll
'this is a selection set filter
Dim gpCode(0) As Integer
Dim dataValue(0) As Variant
gpCode(0) = 8
dataValue(0) = sLayName
'this is selection set filter data
Dim groupCode As Variant, dataCode As Variant
groupCode = gpCode
dataCode = dataValue
'this collects all objects on 'sLayName' layer into the seletion set
OptRgn.Select mode, , , groupCode, dataCode
End Sub]]]]]]]]]]]]]]]
Thanks in advance
Mniaz
