topic 回复： Evaluate the next type of entity - Visual Basic .NET in Civil 3D Customization Forum

Evaluate the next type of entity - Visual Basic .NET

Anonymous — Tue, 27 Feb 2018 13:31:01 GMT

Hello,

I need to generate a code that evaluates if the current entity is a line and if the next entity is also a line. I'm using the following code, but I can not get the result I want.

Please, excuse my mistakes. I'm learning.

For i As Integer = 0 To align1.Entities.Count - 1

Dim enti As AlignmentEntity = align1.Entities.GetEntityByOrder(i)
If (enti.EntityType = AlignmentEntityType.Line) Then
Dim nextenti As Integer = enti.EntityAfter
Dim nextentity As AlignmentEntity = align1.Entities.Item(nextenti)
If (nextentity.EntityType = AlignmentEntityType.Line) Then
pipqce(i) = 1
pipqcn(i) = 1
End If
Continue For
End If

Next i

Can someone help me with an example .net code.

Thank you very much.

Best regards.

Mauro Vega

AutoCAD Civil 3D 2018.1

Intel Core i7-6700HQ CPU 2.6 GHZ

32 GB RAM 2133 MHz

NVIDIA Quadro M3000M

Windows 10 Pro 64 Bits

回复： Evaluate the next type of entity - Visual Basic .NET

TiStars — Tue, 27 Feb 2018 22:31:50 GMT

for getting next Entity, I will use

Dim nextentity As AlignmentEntity = align1.Entities.GetEntityByOrder(i+1)

回复： Evaluate the next type of entity - Visual Basic .NET

TiStars — Wed, 28 Feb 2018 00:53:35 GMT

I tried in C# with this:
AlignmentEntity aliEntiNext = align1.Entities.EntityAtId(aliEnti.EntityAfter);

I don't know if "align1.Entities.Item(nextenti)" works or not, but in C#, I can get Entity by align1.Entities.EntityAtId() Method. And then I can get EntityType of it.

回复： Evaluate the next type of entity - Visual Basic .NET

TiStars — Wed, 28 Feb 2018 00:55:44 GMT

回复： Evaluate the next type of entity - Visual Basic .NET

Anonymous — Wed, 28 Feb 2018 16:28:35 GMT

Hello TiStars,

Thanks for your help.

When using this code

AlignmentEntity aliEntiNext = align1.Entities.EntityAtId(aliEnti.EntityAfter)

The following error occurs:

The exception occurred Autodesk.Civil.EntityNotFoundException.
HResult=0x80131500
Message = NoNextAlignmentEntity,

I do not know what may be happening.

Best regards.

Mauro Vega

AutoCAD Civil 3D 2018.1

Intel Core i7-6700HQ CPU 2.6 GHZ

32 GB RAM 2133 MHz

NVIDIA Quadro M3000M

Windows 10 Pro 64 Bits

回复： Evaluate the next type of entity - Visual Basic .NET

TiStars — Wed, 28 Feb 2018 20:21:09 GMT

Hi mvege,

Does the next Entity exist? or the error occurs from the beginning?

when i = align1.Entities.Count -1, there will be no more Entity behind the current one.

so I am afraid this

For i As Integer = 0 To align1.Entities.Count - 1

will have to be changed to

For i As Integer = 0 To align1.Entities.Count - 2

回复： Evaluate the next type of entity - Visual Basic .NET

Anonymous — Mon, 05 Mar 2018 13:51:35 GMT

Hello TiStars,

Thanks for your help.

Best regards.

Mauro Vega

AutoCAD Civil 3D 2018.1

Intel Core i7-6700HQ CPU 2.6 GHZ

32 GB RAM 2133 MHz

NVIDIA Quadro M3000M

Windows 10 Pro 64 Bits

回复： Evaluate the next type of entity - Visual Basic .NET

TiStars — Mon, 05 Mar 2018 19:32:46 GMT

My pleasure Mauro.