topic Re: AddRegion Fails - Run-Time error 91 - Object variable or with block variable not set SEE CODE BELOW in VBA Forum

AddRegion Fails - Run-Time error 91 - Object variable or with block variable not set SEE CODE BELOW

xxaaron — Thu, 22 Jul 2021 02:44:41 GMT

pi = 3.xxx-xxxxxxxx
Dim StartPoint(0 To 2) As Double
Dim EndPoint(0 To 2) As Double
Dim Line(0 To 3) As Object

StartPoint(0) = 0: StartPoint(1) = 0: StartPoint(2) = 0
EndPoint(0) = 1: EndPoint(1) = 0: EndPoint(2) = 0
Set Line(0) = ThisDrawing.ModelSpace.AddLine(StartPoint, EndPoint)
StartPoint(0) = 1: StartPoint(1) = 0: StartPoint(2) = 0
EndPoint(0) = 1: EndPoint(1) = 1: EndPoint(2) = 0
Set Line(1) = ThisDrawing.ModelSpace.AddLine(StartPoint, EndPoint)
StartPoint(0) = 1: StartPoint(1) = 1: StartPoint(2) = 0
EndPoint(0) = 0: EndPoint(1) = 1: EndPoint(2) = 0
Set Line(2) = ThisDrawing.ModelSpace.AddLine(StartPoint, EndPoint)

StartPoint(0) = 0: StartPoint(1) = 0.5: StartPoint(2) = 0

Set Line(3) = ThisDrawing.ModelSpace.AddArc(StartPoint, 0.5, pi / 2, 3 * pi / 2)

Dim Region1 As AcadRegion
Region1 = ThisDrawing.ModelSpace.AddRegion(Line)

Re: AddRegion Fails - Run-Time error 91 - Object variable or with block variable not set SEE CODE BELOW

norman.yuan — Thu, 22 Jul 2021 03:54:01 GMT

In the following 2 lines of your code, there are 2 errors:

Dim Region1 As AcadRegion
Region1 = ThisDrawing.ModelSpace.AddRegion(Line)

1. since Region1 is declared as AcadRegion object, when assigning an object value to it, you must use "Set" keyword, like:

Set Region1 = ....

This is why the error message saying "... object variable...no set..."

2. However, the real error of your code is that your code treats the return value of AddRegion() method wrong: the returned value is AN ARRAY of AcadRegion object (i.e. one or more region objects), not a single AcadRegion object.

That is, the code should be

Dim regions As Variant
regions = ThisDrawing.ModelSpace.AddRegion(Line)

Then, you can look up the returned array for all possible regions. If you are sure the lines would only form one region, you can

Dim region As AcadRegion

Set region = regions(0)

'' Then do somethoing with the region

... ...

Re: AddRegion Fails - Run-Time error 91 - Object variable or with block variable not set SEE CODE BELOW

xxaaron — Thu, 22 Jul 2021 17:10:15 GMT

Hi Norman,

Thank you very much, it worked perfectly.

Aaron Cowen, PE

Re: AddRegion Fails - Run-Time error 91 - Object variable or with block variable not set SEE CODE BELOW

abhi.rathod — Tue, 28 Jun 2022 12:36:38 GMT

Actually I have created a shape using polyline and trying to make region out of it so that using massprop i can get area, inertia, centroid. But i am getting runtime error 424. Please help me resolve this issue for following code:

Private Sub CommandButton1_Click()

Dim acadapp As AcadApplication 'creating autocad application
Dim dwg As AcadDocument
Dim polyL As AcadLWPolyline
Dim copoly() As Double
Dim i As Integer
Dim j As Integer
Dim k As Integer

Dim lastrow As Integer
''''''''''''''''''''''''''''''''
'check if autocad is open
On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.Application")
On Error GoTo 0

'IF autocad app is not opened create a new instance and make it visible.
If acadapp Is Nothing Then
Set acadapp = New AcadApplication
acadapp.Visible = True
End If

'Check if there is an active drawing running
On Error Resume Next
Set dwg = acadapp.ActiveDocument
On Error GoTo 0

'No active drawing found. Create a new one.
If dwg Is Nothing Then
Set dwg = acadapp.Documents.Add
acadapp.Visible = True
End If
'''''''''''''''''''''''''
Sheet1.Activate

lastrow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
ReDim copoly((2 * lastrow) - 1)

k = 0
For i = 1 To lastrow
For j = 1 To 2
copoly(k) = Sheet1.Cells(i, j)
k = k + 1
Next j
Next i

Set polyL = dwg.ModelSpace.AddLightWeightPolyline(copoly)
polyL.Closed = True

Dim region As Variant
region = thisdrawing.ModelSpace.AddRegion(polyL)

End Sub

Re: AddRegion Fails - Run-Time error 91 - Object variable or with block variable not set SEE CODE BELOW

Ed__Jobe — Tue, 28 Jun 2022 15:07:06 GMT

I think you should have started your own thread on this problem.

Have you tried setting a breakpoint and stepping through the code to find the line at which you get an error?

Re: AddRegion Fails - Run-Time error 91 - Object variable or with block variable not set SEE CODE BELOW

abhi.rathod — Wed, 29 Jun 2022 05:10:25 GMT

yes definitely. Code is running perfectly and creating a random shape using coordinates through polyline but in last line it is not able form a region and showing runtime error.