What is a seqend?

Would anyone be able to tell me what exactly a seqend is? I've been poking
around in the documentation and google a while and all i've turned up is
that it has something to do with collections of entities.

-Chris

 

It marks the end of a complex entity such as a block. I'm sure you have
a much more specific question in mind. What is it?

 

I think of it as an end to a sequence of information
for a "heavy" pline it was end of vert list
for a block with atts it was end of list of atts
I'm not aware of other uses if there are any.
(more useful in lisp than in vb it seems to me - except for refusing to
allow unused layers to purge)
to get the atts of a block you used to have to step through items till you
got to the seqend in lisp
now in vb or vlisp you just .getattributes

 

well i've got a routine that goes through and sets all entities in block
defintions to layer 0, however it doesn't seem to change seqends in the
blocks too, leaving some otherwise unused layers unpurgable. Any idea how to
change the layer of these seqends at the same time as the entities so unused
layers can be purged?

-Chris

--------------------------------------------------------------

Private Sub cleanblocks()

Dim objBlock As AcadBlock
Dim objEnt As AcadEntity
Dim objLayer As AcadLayer
Dim layerlocked As Boolean
Dim layername As String

On Error Resume Next

'For every block definition in drawing
For Each objBlock In ThisDrawing.Blocks

'Make sure the block def isn't an xref or layout
If (objBlock.IsLayout = False) And (objBlock.IsXRef = False) Then

'For every entity in block defintion
For Each objEnt In objBlock

' Check if object layer is locked, if true set flag and unlock
layername = objEnt.Layer
Set objLayer = ThisDrawing.Layers(layername)
If objLayer.Lock = True Then
layerlocked = True
objLayer.Lock = False
Else
layerlocked = False
End If

' If box is checked, set all block entities color to bylayer
If Blocks_Color_ByLayer.Value = True Then
objEnt.color = acByLayer
End If

' If box is checked, set all block entities linetype to bylayer
If Blocks_Linetype_ByLayer.Value = True Then
objEnt.Linetype = "ByLayer"
End If

' If box is checked, set all block entities lineweight to
bylayer
If Blocks_Lineweight_ByLayer.Value = True Then
objEnt.Lineweight = acLnWtByLayer
End If

' If box is checked, set all block entities layer to 0
If Blocks_Force_Layer0.Value = True Then
objEnt.Layer = "0"
End If

' If block was on locked layer, relock layer
If layerlocked = True Then
objLayer.Lock = True
End If

Next objEnt

End If

Next objBlock

' uncheck all the buttons
Blocks_Color_ByLayer.Value = False
Blocks_Linetype_ByLayer.Value = False
Blocks_Lineweight_ByLayer.Value = False
Blocks_Force_Layer0.Value = False
Blocks_Delete_Text.Value = False

End Sub

---------------------------------------------------------