entlast equivalent?

[Anonymous]

I have this VBA code:

Set lineObj = ThisDrawing.ModelSpace.AddLine(pt5a, pt6a)
retObj = lineObj.ArrayRectangular(15, 1, 1, (-0.25 * dimscale), 1, 1)

How do I get the last line created by the array?

i.e. (entget(entlast))

Thank you in advance for any help.

Jamie Gamauf
Senior Job Captain
Aria Group Architects, Inc.
jgamauf@ariainc.com

[Anonymous]

SS.Select acSelectionSetLast 'method of an
AcadSelectionSet object

I'm trying minimal approach to explination--let me
know if you need more clarification :).

Ben Rand

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"jgamauf" <
href="mailto:jgamauf@ariainc.com">jgamauf@ariainc.com> wrote in message

href="news:f0509b9.-1@WebX.maYIadrTaRb">news:f0509b9.-1@WebX.maYIadrTaRb...

I
have this VBA code:

Set lineObj = ThisDrawing.ModelSpace.AddLine(pt5a, pt6a)
retObj =
lineObj.ArrayRectangular(15, 1, 1, (-0.25 * dimscale), 1, 1)

How do I get the last line created by the array?

i.e. (entget(entlast))

Thank you in advance for any help.

Jamie Gamauf
Senior Job Captain
Aria Group Architects, Inc.

jgamauf@ariainc.com

[Anonymous]

The last object in a block's Items collection will be the
most recently added object:

ThisDrawing.ModelSpace.Items(ThisDrawing.ModelSpace.Count -
1)

However, the last line created by the array wil lbe the
object in the upper bound of the returned array:

Set lastLine = retObj(UBound(retObj))


--
http://www.acadx.com


"jgamauf" wrote in message
news:f0509b9.-1@WebX.maYIadrTaRb...
> I have this VBA code:
> Set lineObj = ThisDrawing.ModelSpace.AddLine(pt5a, pt6a)
> retObj = lineObj.ArrayRectangular(15, 1, 1, (-0.25 *
dimscale), 1, 1)
>
> How do I get the last line created by the array?
>
> i.e. (entget(entlast))
>
> Thank you in advance for any help.
>
> Jamie Gamauf
> Senior Job Captain
> Aria Group Architects, Inc.
> jgamauf@ariainc.com
>
>