Fields and excessive Xrecords in dynamic blocks

Anonymous — Wed, 11 Jan 2012 10:29:08 GMT

Hi all

I've recently made the jump into .net development and I'm fairly happy with progress so far.

I've managed to make a custom jig that does pretty much everything I want it to do, but with a couple of issues:

After entering the first click the block then starts generating xrecords and dbdictionaries (I'm using the Autodesk tutorial code that adds a palette that displays all drawing objects as they're added). I have no code that explicitly does this as I don't need xrecords at this stage. The code that appears to be generating them is below:

Case

'if second click

IfNot _scanned1 Then

ForEach objItem AsDynamicBlockReferencePropertyIn block.DynamicBlockReferencePropertyCollection

If objItem.PropertyName.ToString() = "length"AndNot _found1 Then

_length = objItem

_found1 =True

ElseIf objItem.PropertyName.ToString() = "height"AndNot _found2 Then

_height = objItem

_found2 =True

ElseIf _found1 And _found2 Then

_scanned1 =True

Exit For

EndIf

ed.WriteMessage("Parameters identified")

EndIf

_length.Value = _pos2.X - _pos.X

_height.Value = _pos2.Y - _pos.Y

If _length.Value < 0 Then

_length.Value = _length.Value * -1

EndIf

If _height.Value < 0 Then

_height.Value = _height.Value * -1

EndIf

The problem with the creation of the xrecords and dbdictionaries is that it slows everything down. They seem to be created everytime you move the mouse...

2. I'm struggling with fields. There is a field in an attribute of the block that reads the area from the only polyline that's in the block. I think the difficulty I'm having is iterating through the block to find the polyline and its objectid. Without the objectid I can't apply the field. Code is below:

blockTableRecord.HasAttributeDefinitions Then

ForEach id AsObjectIdIn blockTableRecord

Dim obj AsDBObject = trans.GetObject(id, OpenMode.ForRead)

Dim attDef AsAttributeDefinition = TryCast(obj, AttributeDefinition)

IfTypeOf obj IsPolylineThen

ed.WriteMessage("Polyline found")

objId = obj.ObjectId

EndIf

If attDef IsNotNothingAndAlsoNot attDef.Constant Then

Dim attRef AsAttributeReference = NewAttributeReference

attRef.SetAttributeFromBlock(attDef, block.BlockTransform)

attRef.Position = attDef.Position.TransformBy(block.BlockTransform)

If attDef.Justify <> AttachmentPoint.BaseLeft Then

attRef.AlignmentPoint = attDef.AlignmentPoint.TransformBy(block.BlockTransform)

EndIf

If attRef.IsMTextAttribute Then

attRef.UpdateMTextAttribute()

EndIf

If attRef.Tag = "STANDAREA"Then

'ed.WriteMessage(vbLf & "Attribute has a field")

attRef.TextString ="%<\AcObjProp Object(%<\_ObjId " + objId.ToString() + ">%).Area>%"

EndIf

'---------------------------etc

Apologies if these questions have been answered before, but I can't find anything that's specific to these issues.

Thanks

MrRamsden

Re: Fields and excessive Xrecords in dynamic blocks

Anonymous — Mon, 23 Jan 2012 17:37:21 GMT

For anyone who cares, I changed my jig to draw a rectangle which is used to size and position the block, so the heavy blockJig stuff doesn't happen.

I managed to cycle through the blockTableRecord of the block and find the polyline and the field now works perfectly. I think I managed to find an example of how to do it properly on here eventually, but if anyone wants it just ask.

Re: Fields and excessive Xrecords in dynamic blocks

cincir — Mon, 23 Jan 2012 19:10:51 GMT

try this instead

If blockTableRecord.HasAttributeDefinitions Then
                   
ForEach id AsObjectIdIn blockTableRecord
                       
Dim obj AsDBObject = trans.GetObject(id, OpenMode.ForRead)
                       
Dim attDef AsAttributeDefinition = TryCast(obj, AttributeDefinition)
                       
IfTypeOf obj IsPolylineThen
                            ed.WriteMessage("Polyline found")
                            objId = obj.ObjectId                       

                       
If attDef IsNotNothingAndAlsoNot attDef.Constant Then
                           
Dim attRef AsAttributeReference = NewAttributeReference
                            attRef.SetAttributeFromBlock(attDef, block.BlockTransform)
                            attRef.Position = attDef.Position.TransformBy(block.BlockTransform)
                           
If attDef.Justify <> AttachmentPoint.BaseLeft Then
                                attRef.AlignmentPoint = attDef.AlignmentPoint.TransformBy(block.BlockTransform)                           
EndIf
                           
If attRef.IsMTextAttribute Then
                                attRef.UpdateMTextAttribute()                           
EndIf
                           
If attRef.Tag = "STANDAREA"Then
                               
'ed.WriteMessage(vbLf & "Attribute has a field")
                                attRef.TextString ="%<\AcObjProp Object(%<\_ObjId " + objId.ToString() + ">%).Area>%"
EndIf
 
EndIf

topic Re: Fields and excessive Xrecords in dynamic blocks in .NET Forum

Fields and excessive Xrecords in dynamic blocks

Re: Fields and excessive Xrecords in dynamic blocks

Re: Fields and excessive Xrecords in dynamic blocks