topic Re: get entity inside an xref given a point in .NET Forum

get entity inside an xref given a point

Anonymous — Thu, 08 Apr 2010 06:11:35 GMT

hi. is there any way to get the entity inside an xref given a point? im using vb.net thanks... Edited by: a7v1n on Apr 8, 2010 6:16 AM

Re: get entity inside an xref given a point

_gile — Thu, 08 Apr 2010 09:19:52 GMT

Hi,

Look at the NonInteractivePickPoint and UseNonInteractivePickPoint properties of the PromptNestedEntityOptions class.

Re: get entity inside an xref given a point

Anonymous — Thu, 08 Apr 2010 16:13:59 GMT

could you post some code pls? Thanks...

Re: get entity inside an xref given a point

_gile — Thu, 08 Apr 2010 17:33:59 GMT

Here's a C# sample

{code}private ObjectId GetNestedEntityByPoint(Point3d pt)
{
Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
PromptNestedEntityOptions pneo = new PromptNestedEntityOptions("");
pneo.NonInteractivePickPoint = pt;
pneo.UseNonInteractivePickPoint = true;
PromptNestedEntityResult pner = ed.GetNestedEntity(pneo);
return pner.ObjectId;
}{code}

Re: get entity inside an xref given a point

Anonymous — Wed, 17 Nov 2010 19:46:00 GMT

Help needed - Using the above code, when a point is selected in the black area on the drawing which means nothing is selected, the autocad keeps running infinitely in a loop like thing.

Is there a way to check when there is no selection made for a nested entity. Like when nothing is selected do something.

I am using vb.net

Re: get entity inside an xref given a point

Anonymous — Thu, 18 Nov 2010 01:14:31 GMT

I have or seen something similar. When I get more time I will try to find it

For now this goes in the oppisite direction but might help.

The basic idea is when you are in paperspace and notice the xref is missing something or you want to add something. Instead of opening the xref or switching to model or editing in place the xref. You can just draw on top of the viewport then send it to the xref just as it appears.

Here is the link and alot of other great info and users http://www.theswamp.org/index.php?topic=34590.0

Re: get entity inside an xref given a point

Anonymous — Thu, 18 Nov 2010 01:26:32 GMT

thanks for the reply..

But I want to check if the selected point is on a nested entity not an entity.

For entity we can do addallowedclass(viewport) but how can we do something similar to that for a nested entity.?

i have the code i am using to get nested entity at selected point.

Dim pneo As PromptNestedEntityOptions

pneo =NewPromptNestedEntityOptions("")

pneo.NonInteractivePickPoint = selectedpoint

pneo.UseNonInteractivePickPoint =True

Dim psubent As Entity = acTrans.GetObject(acDoc.Editor.GetNestedEntity(pneo).ObjectId, OpenMode.ForRead)

it hangs up in the above line where i am getting the objectid.

anything i am doing wrong?

Re: get entity inside an xref given a point

kerry_w_brown — Thu, 18 Nov 2010 08:55:24 GMT

What is the owner of the entity ?? ... may help decide

ie is the container BlockTable ModelSpace, Paperspace or a block

Re: get entity inside an xref given a point

Anonymous — Thu, 18 Nov 2010 16:36:52 GMT

Thanks for the reply..

I am unable to get the owner ID of the nested entity. Since, it hangs up at getting the object ID itself, it does not go till the point I am able to get the nested entity.

Please, find my whole code is as below:

Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

Dim acCurDb As Database = acDoc.Database

While (True)

Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()

' Open the Block table record for read

Dim acBlkTbl As BlockTable

acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead)

'' Open the Block table record Model space for write

Dim acBlkTblRec As BlockTableRecord

acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite)

Application.SetSystemVariable("OSMODE", 512)

Dim acnsprompt As PromptPointResult = acDoc.Editor.GetPoint(vbCrLf & "Select APN or <exit>: ")

If acnsprompt.Status = PromptStatus.OK And Not IsNothing(acnsprompt.Value) Then

Dim pneo As PromptNestedEntityOptions

pneo =New PromptNestedEntityOptions("")

pneo.NonInteractivePickPoint = acnsprompt.Value

pneo.UseNonInteractivePickPoint =True

pneo.AllowNone =True

If acDoc.Editor.GetNestedEntity(pneo).ObjectId = ObjectId.Null Or Not IsNothing(acDoc.Editor.GetNestedEntity(pneo).ObjectId) Or Not IsDBNull(acDoc.Editor.GetNestedEntity(pneo).ObjectId) Then

Dim psubent As Entity = acTrans.GetObject(acDoc.Editor.GetNestedEntity(pneo).ObjectId,OpenMode.ForRead)

If psubent.GetRXClass.Name.ToString = "AcDbText" Then

If psubent.Layer.Contains("APN") Then

Dim txt As DBText = DirectCast(psubent, Entity)

End If

psubent.Dispose()

End If

pneo =Nothing

end if

end using

end while

Re: get entity inside an xref given a point

Anonymous — Wed, 24 Nov 2010 05:16:49 GMT

Please see the below modified code is suitable for you. Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim acCurDb As Database = acDoc.Database While (True) Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction() Dim acBlkTbl As BlockTable acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead) Dim acBlkTblRec As BlockTableRecord acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), OpenMode.ForWrite) Application.SetSystemVariable("OSMODE", 512) Dim prent As PromptEntityOptions = New PromptEntityOptions("Specify Entity:") prent.SetRejectMessage("Only BlockReferences Allowed!") prent.AddAllowedClass(GetType(BlockReference), True) Dim rsent As PromptEntityResult = acDoc.Editor.GetEntity(prent) If Not rsent.Status = PromptStatus.OK Then Return Dim pneo As PromptNestedEntityOptions pneo = New PromptNestedEntityOptions("") pneo.NonInteractivePickPoint = rsent.PickedPoint pneo.UseNonInteractivePickPoint = True pneo.AllowNone = True If Not acDoc.Editor.GetNestedEntity(pneo).ObjectId = ObjectId.Null Or IsNothing(acDoc.Editor.GetNestedEntity(pneo).ObjectId) Or IsDBNull(acDoc.Editor.GetNestedEntity(pneo).ObjectId) Then Dim psubent As Entity = acTrans.GetObject(acDoc.Editor.GetNestedEntity(pneo).ObjectId, OpenMode.ForRead) If psubent.GetRXClass.Name.ToString = "AcDbText" Then If psubent.Layer.Contains("APN") Then Dim txt As DBText = DirectCast(psubent, Entity) End If End If psubent.Dispose() End If pneo = Nothing End Using End While

Re: get entity inside an xref given a point

Anonymous — Wed, 24 Nov 2010 16:17:39 GMT

Thanks for the reply.