topic Re: What is a seqend? in VBA Forum

What is a seqend?

Anonymous — Wed, 09 Mar 2005 16:14:46 GMT

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

Re: What is a seqend?

Anonymous — Wed, 09 Mar 2005 16:26:33 GMT

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 "Chris Shoemaker" wrote in message news:422f215f$1_1@newsprd01... > 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 > >

Re: What is a seqend?

Anonymous — Wed, 09 Mar 2005 16:26:33 GMT

Chris Shoemaker wrote: > 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. 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?

Re: What is a seqend?

Anonymous — Tue, 15 Mar 2005 15:30:06 GMT

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 --------------------------------------------------------- "Frank Oquendo" wrote in message news:422f23ba_3@newsprd01... > Chris Shoemaker wrote: > > 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. > > 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? >