topic Re: Create region from polyline in .NET Forum

Create region from polyline

Anonymous — Thu, 03 May 2007 13:52:44 GMT

If I have a closed polyline, how do I create a
region from this? Here is what I have, that does not work...

size=2>

// Prompt user for the cross-section to be
revolved

acadED.
size=2>PromptEntityResult
size=2>prResult
=

ed.
size=2>GetEntity(Environment
size=2>.NewLine
color=#000000> +

"Select cross-section for calculation:
");

// If the user has selected something

if (!(
size=2>prResult == null
color=#ffffff size=2>) &&

(prResult
size=2>.Status ==
size=2>acadED.PromptStatus
size=2>.OK
color=#000000>))

{

acadDB.
size=2>Entity entPLine
color=#ffffff size=2> =

((
size=2>acadDB.Polyline
size=2>)(tr.
size=2>GetObject
color=#000000>(

prResult
size=2>.ObjectId,
size=2>acadDB.OpenMode
size=2>.ForRead,
size=2>false
color=#000000>)));

pLine = ((
size=2>acadDB.Polyline
size=2>)(entPLine
color=#000000>));

// If the polyline is
not closed...

if (
size=2>pLine.Closed
== false
color=#000000>)

{

// Tell user to fix and
re-run the program

throw
size=2> new
size=2>acadRT.Exception
size=2>(acadRT.
size=2>ErrorStatus.
size=2>WrongObjectType
color=#000000>,

props.Settings
size=2>.Default.
size=2>NotClosedPLine1 +
size=2>Environment.NewLine
color=#ffffff size=2> +

props.Settings
size=2>.Default.
size=2>CorrectAndRun
color=#000000>);

}

color=#000000>else

{

throw
size=2>new acadRT
size=2>.Exception(
size=2>acadRT.ErrorStatus
size=2>.WrongObjectType
size=2>,

props
size=2>.Settings.
size=2>Default.
size=2>NotClosedPLine1 +
size=2>Environment.NewLine
color=#ffffff size=2> +

props
size=2>.Settings.
size=2>Default.CorrectAndRun
color=#ffffff size=2>);

}

//*** Works up to here ***

acadRT
size=2>.RXObject
size=2>myObject = ((acadRT
size=2>.RXObject)(
size=2>pLine.Clone
color=#ffffff size=2>()));

myRegion
size=2>.CopyFrom(
size=2>myObject
color=#000000>);

acadGo
size=2>.Vector3d
size=2>AxisDir
=

new
acadGo.
size=2>Vector3d(EndPoint
size=2>.X,
size=2>EndPoint.Y,
EndPoint.
size=2>Z
color=#000000>);

double
rotationAngle
color=#000000> = 360;

mySolid
size=2>.Revolve(
size=2>myRegion, AxisPoint
size=2>, AxisDir,
size=2>rotationAngle);
size=2>);

Re: Create region from polyline

Anonymous — Thu, 03 May 2007 18:08:43 GMT

Hay, Nathan
I guess case is on points you determined
Here is what I have a got from your code,
slightly edited, working nice for me

'//
Public Shared Sub makeSolid()
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
Using tr As Transaction = db.TransactionManager.StartTransaction()
Try
Dim opt As PromptEntityOptions = New PromptEntityOptions(Environment.NewLine & "Select cross-section for calculation: ")
Dim prResult As PromptEntityResult = ed.GetEntity(opt)
If prResult.Status = PromptStatus.OK Then
Dim entPLine As Entity = (CType(tr.GetObject(prResult.ObjectId, OpenMode.ForRead, False), Entity))
Dim pLine As Polyline = (CType(entPLine, Polyline))
If pLine.Closed = False Then
Throw New AcRx.Exception(AcRx.ErrorStatus.WrongObjectType)
Else
Dim bt As BlockTable
Dim btr As BlockTableRecord
bt = tr.GetObject(db.BlockTableId, OpenMode.ForRead)
btr = DirectCast(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
Dim entArray() As Polyline = {pLine}
Dim regs() As Object = DirectCast(entArray, Object())
Dim dbColl As DBObjectCollection = New DBObjectCollection
dbColl.Add(regs(0))
Dim myRegion As Region = CType(Region.CreateFromCurves(dbColl)(0), Region)
btr.AppendEntity(myRegion)
tr.AddNewlyCreatedDBObject(myRegion, True)
Dim AxisPoint As Point3d = New Point3d(10, 10, 0)
Dim AxisDir As Vector3d = New Vector3d(0, 1, 0)
Dim rotationAngle As Double = 360.0
Dim mySolid As Solid3d = New Solid3d()
mySolid.Revolve(myRegion, AxisPoint, AxisDir, rotationAngle)
btr.AppendEntity(mySolid)
tr.AddNewlyCreatedDBObject(mySolid, True)
End If
End If
tr.Commit()
Catch ex As Exception
ed.WriteMessage(ex.StackTrace)
Finally
tr.Dispose()
End Try
End Using
End Sub

Hth

~'J'~

Re: Create region from polyline

Anonymous — Fri, 01 Jun 2007 18:12:41 GMT

I've finally been able to get back to this and have discovered I get a
LockViolation when I set btr (the BlockTableRecord), what is causing this
and how do I fix it?
wrote in message news:5574215@discussion.autodesk.com...
Hay, Nathan
I guess case is on points you determined
Here is what I have a got from your code,
slightly edited, working nice for me

'//
Public Shared Sub makeSolid()
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim ed As Editor =
Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDo
cument.Editor
Using tr As Transaction = db.TransactionManager.StartTransaction()
Try
Dim opt As PromptEntityOptions = New
PromptEntityOptions(Environment.NewLine & "Select cross-section for
calculation: ")
Dim prResult As PromptEntityResult = ed.GetEntity(opt)
If prResult.Status = PromptStatus.OK Then
Dim entPLine As Entity =
(CType(tr.GetObject(prResult.ObjectId, OpenMode.ForRead, False), Entity))
Dim pLine As Polyline = (CType(entPLine, Polyline))
If pLine.Closed = False Then
Throw New
AcRx.Exception(AcRx.ErrorStatus.WrongObjectType)
Else
Dim bt As BlockTable
Dim btr As BlockTableRecord
bt = tr.GetObject(db.BlockTableId, OpenMode.ForRead)
btr =
DirectCast(tr.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite),
BlockTableRecord)
Dim entArray() As Polyline = {pLine}
Dim regs() As Object = DirectCast(entArray,
Object())
Dim dbColl As DBObjectCollection = New
DBObjectCollection
dbColl.Add(regs(0))
Dim myRegion As Region =
CType(Region.CreateFromCurves(dbColl)(0), Region)
btr.AppendEntity(myRegion)
tr.AddNewlyCreatedDBObject(myRegion, True)
Dim AxisPoint As Point3d = New Point3d(10, 10, 0)
Dim AxisDir As Vector3d = New Vector3d(0, 1, 0)
Dim rotationAngle As Double = 360.0
Dim mySolid As Solid3d = New Solid3d()
mySolid.Revolve(myRegion, AxisPoint, AxisDir,
rotationAngle)
btr.AppendEntity(mySolid)
tr.AddNewlyCreatedDBObject(mySolid, True)
End If
End If
tr.Commit()
Catch ex As Exception
ed.WriteMessage(ex.StackTrace)
Finally
tr.Dispose()
End Try
End Using
End Sub

Hth

~'J'~

Re: Create region from polyline

Anonymous — Fri, 01 Jun 2007 18:35:19 GMT

Not sure about but maybe cause is on the
document is locked
Try to do following
at the start of code :
Dim docLock As DocumentLock = Application.DocumentManager.MdiActiveDocument.LockDocument
and to the end of code:
docLock.Dispose()

This worked for me

~'J'~

Re: Create region from polyline

Anonymous — Sun, 03 Jun 2007 22:51:40 GMT

You are opening the block table for read and then trying to open a block table record for write.

Regards - Nathan

Re: Create region from polyline

Anonymous — Mon, 04 Jun 2007 08:49:57 GMT

Yes he is, but he's not modifying the block table itself,
only one of its entries. A table is generally not opened
for write unless something is being added to it.

--
http://www.caddzone.com

AcadXTabs: MDI Document Tabs for AutoCAD 2008
Supporting AutoCAD 2000 through 2008
http://www.acadxtabs.com

wrote in message news:5614886@discussion.autodesk.com...
You are opening the block table for read and then trying to open a block table record for write.

Regards - Nathan

Re: Create region from polyline

Anonymous — Mon, 04 Jun 2007 09:09:52 GMT

Hi, mr. Tony Tanzillo
Thanks for explanation,
you saved my time on translation

Cheers 🙂

~'J'~

Re: Create region from polyline

Anonymous — Tue, 05 Jun 2007 16:00:32 GMT

Thanks, this did it. The routine works like a charm now.

wrote in message news:5614004@discussion.autodesk.com...
Not sure about but maybe cause is on the
document is locked
Try to do following
at the start of code :
Dim docLock As DocumentLock =
Application.DocumentManager.MdiActiveDocument.LockDocument
and to the end of code:
docLock.Dispose()

This worked for me

~'J'~

Re: Create region from polyline

Anonymous — Tue, 05 Jun 2007 16:11:21 GMT

Glad to help, Nathan,
Regards,

~'J'~