Can you create a region from a selection set ?
Have you look at AcadModelSpace[PaperSpace].AddRegion([objectArray]) method? Almost all AutoCAD entities are created by calling AcadModel[Paper]Space.AddXxxx() methods, AcadRegion is no exception here.
Since you obtain the polylines as AcadSelectionSet, obviously, you need place the selected entities into an Array, something like:
Dim ss As AcadSelectionSet
'' Code here to create/select entities that are eligible to form AcadRegion (Arc, Line, LWPolyline,...)
Dim items() As AcadEntity
ReDim item(ss.Count-1)
Dim ent As AcadEntity
Dim region As AcadRegion
Dim i As Integer
For Each ent in ss
Set items[i]=ent
i=i+1
Next
Set region=ThisDrawing.ModelSpace.AddRegion(items)
'' Set the region's properties (layer, color...), if necessary.
region.Update
I made a function for these types of AddXXX methods.
Public Function SStoArray(ss As AcadSelectionSet, ary() As AcadEntity)
Dim cnt As Integer
cnt = ss.Count() - 1
Dim i As Integer
ReDim ary(cnt)
For i = 0 To cnt
Set ary(i) = ss(i)
Next
End Function
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Maybe you omitted it: do you have "Set" keyword like this:
Dim regionObj As AcadRegion
Set regionObj = ThisDrawing.ModelSpace.AddRegion(linesArray)
If you do, then, have you tried to run the command "Region" manually with the same lines?
Sorry, it was my mistake: the AddRegion() method returns an array of AcadRegions (Variant). So the code for the CreateRegion() should have been:
Sub CreateRegion(lineArray As Variant)
Dim regions as Variant
regions=ThisDrawing.AddRegions(lineArray)
If Ubound(region)>=0 Then
MsgBox Ubound(regions) + 1 & "regions created."
Else
MsgBox "Input entities cannot form regions."
End If
End Sub
Depending on the input entities (line/arc/lwpolyline...), 0 or multiple regions will be created.
However, your other code is still problematic:
When you select by window, you MUST make sure the 2 corner points are WITHIN the current view, otherwise the selecting may not be done correctly. Usually, you would zoom to the selecting window, before call AcadSelectSet.Select(), if selecting by window/crossing/fence..., except for selecting all.
Can you please show your code again since you edited it?
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Not seeing your entire code and your drawing, it is difficult to say more. This code works for me:
Option Explicit
Public Sub CreateRegion()
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.SelectionSets.Add("regionSet")
On Error Resume Next
ss.SelectOnScreen
If ss.count > 0 Then
CreateRegionFromSelectionSet ss
End If
ss.Delete
End Sub
Private Sub CreateRegionFromSelectionSet(ss As AcadSelectionSet)
Dim entityArray As Variant
entityArray = CreateEntityArray(ss)
Dim regions As Variant
regions = ThisDrawing.ModelSpace.AddRegion(entityArray)
End Sub
Private Function CreateEntityArray(ss As AcadSelectionSet) As Variant
Dim ents() As AcadEntity
ReDim ents(ss.count - 1)
Dim i As Integer
Dim ent As AcadEntity
For Each ent In ss
Set ents(i) = ent
i = i + 1
Next
CreateEntityArray = ents
End Function
this video clip shows how it works (note: the selected lines must be able to form closed area by connecting end to end):
