topic Region creates another instance of polygon in .NET Forum

Region creates another instance of polygon

Anonymous — Wed, 06 Feb 2019 05:24:01 GMT

Hi, I'm using this code below to create a region of an existing polygon. When I run this code it creates a region ok but it creates the region as a new entity and duplicates the polygon. Is there a way to covert the selected polygon into a region with out duplicating?

<CommandMethod("CreateRegion")>
Public Sub CreateRegion()
Dim doc As Document = Application.DocumentManager.MdiActiveDocument
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim db As Database = HostApplicationServices.WorkingDatabase
'Dim copied As ObjectIdCollection = New ObjectIdCollection()

'******Prompt user to select objects
Dim psr As PromptSelectionResult = doc.Editor.GetSelection()
'Dim acSSet As SelectionSet = psr.Value

If psr.Status = PromptStatus.OK Then
Using tr As Transaction = db.TransactionManager.StartTransaction()
Dim curves = New DBObjectCollection()
For Each obj As SelectedObject In psr.Value
curves.Add(tr.GetObject(obj.ObjectId, OpenMode.ForRead))
Dim regions = Region.CreateFromCurves(curves)
Dim curSpace As BlockTableRecord = tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite)

For Each region In regions
curSpace.AppendEntity(region)
tr.AddNewlyCreatedDBObject(region, True)
Next
Next
tr.Commit()
ed.WriteMessage("Region created")
End Using
End If
End Sub

Thanks

Shaban.

Re: Region creates another instance of polygon

_gile — Wed, 06 Feb 2019 06:14:33 GMT

Hi,

You have to explicitly erase the curves used to create the region.

Re: Region creates another instance of polygon

Anonymous — Sun, 10 Feb 2019 21:14:24 GMT

Do i do this before or after the tr.commit()??

Re: Region creates another instance of polygon

_gile — Sun, 10 Feb 2019 22:16:26 GMT

Before. Transaction.Commit() saves the changes to Database done with the transaction.

Re: Region creates another instance of polygon

Anonymous — Mon, 11 Feb 2019 05:21:49 GMT

Hi, do you have some example code of explicitly erase the "curves" used to create the region.

Thanks In advance

Re: Region creates another instance of polygon

_gile — Mon, 11 Feb 2019 07:00:47 GMT

        [CommandMethod("CreateRegion")]
        public static void CreateRegion()
        {
            var doc = Application.DocumentManager.MdiActiveDocument;
            var db = doc.Database;
            var ed = doc.Editor;

            var psr = ed.GetSelection();
            if (psr.Status != PromptStatus.OK)
                return;
            using (var tr = db.TransactionManager.StartTransaction())
            {
                var curves = new DBObjectCollection();
                foreach (SelectedObject so in psr.Value)
                {
                    var id = so.ObjectId;
                    if (id.ObjectClass.IsDerivedFrom(RXObject.GetClass(typeof(Curve))))
                    {
                        curves.Add(tr.GetObject(id, OpenMode.ForWrite));
                    }
                }
                var regions = Region.CreateFromCurves(curves);
                var curSpace = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
                foreach (Region region in regions)
                {
                    curSpace.AppendEntity(region);
                    tr.AddNewlyCreatedDBObject(region, true);
                }
                foreach(Curve curve in curves)
                {
                    curve.Erase();
                }
                tr.Commit();
            }
        }