topic Re: how to Add Region in late binding? in VBA Forum

how to Add Region in late binding?

Anonymous — Sun, 27 Mar 2016 00:39:44 GMT

hi, everybody. I want to work in different CAD version, so i use late binding. but there is problem in creating region. Dose anybody knkow how to create rgion in late binding?

Re: how to Add Region in late binding?

Alfred.NESWADBA — Mon, 28 Mar 2016 11:49:50 GMT

Hi,

>> but there is problem in creating region.

Which problem?

Using which code?

- alfred -

Re: how to Add Region in late binding?

Anonymous — Tue, 05 Apr 2016 00:36:30 GMT

hi,
it is show " Invalid Object Array" when i createed.

dynamic[] circleObj = new dynamic[1];
double[] calpt = new double[3];
calpt[0] = 0; calpt[1] = 0; calpt[2] = 0;
circleObj[0] = AcadDoc.ModelSpace.AddCircle(calpt, 5);
// create region
object[] regionObject;
regionObject = (object[])AcadDoc.ModelSpace.AddRegion(circleObj); //this can't work.

How to do it?

Re: how to Add Region in late binding?

nrjdjjs — Thu, 15 Aug 2019 22:06:45 GMT

Hello,

I am experiencing the same issue. Were you able to find an answer to this solution? If yes, it would help if you can post the solution that worked for you.

Thank you

Re: how to Add Region in late binding?

Anonymous — Sun, 01 Sep 2019 15:24:49 GMT

I have the same problem as you. If you already have the answer, please let me know. Thank you.

My email: goodfileshare @gmail.com

Re: how to Add Region in late binding?

Alfred.NESWADBA — Mon, 09 Sep 2019 20:26:12 GMT

Hi,

>> I have the same problem as you

...using AddRegion with latebinding in VBA?

This code works for me:

Sub Example_AddRegion_LB()
    ' This example creates a region from an arc and a line.
    
    Dim curves(0 To 1) As Object

    ' Define the arc
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    Dim startAngle As Double
    Dim endAngle As Double
    centerPoint(0) = 5#: centerPoint(1) = 3#: centerPoint(2) = 0#
    radius = 2#
    startAngle = 0
    endAngle = 3.141592
    Set curves(0) = ThisDrawing.ModelSpace.AddArc(centerPoint, radius, startAngle, endAngle)
    
    ' Define the line
    Set curves(1) = ThisDrawing.ModelSpace.AddLine(curves(0).StartPoint, curves(0).EndPoint)
        
    ' Create the region
    Dim regionObj As Variant
    regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
    ZoomAll
    
End Sub

It's from the sample in the VBA help, just modified type "AcadEntity" to "Object"

- alfred -

Re: how to Add Region in late binding?

Anonymous — Fri, 04 Oct 2019 21:21:46 GMT

double[] squarePt = new double[12];

squarePt[0]=100;

....

squarePt[11]=1000;

dynamic pLineObj = AcadDoc.ModelSpace.AddPolyline(squarePt);

IDispatch[] ents =
{
pLineObj
};
dynamic[] r = AcadDoc.ModelSpace.AddRegion(ents);
dynamic profileRegionObject = (dynamic)(r[0]);