topic VB.NET block with attributes problem in .NET Forum

VB.NET block with attributes problem

Anonymous — Thu, 12 Nov 2020 19:53:34 GMT

Hi everyone,

I'm trying to work with block + attributes, I can create it but if I insert it by .net hte block don't have attributes, if I

insert it manually the attributes are ok why?

<CommandMethod("AddingAttributeToABlock")> Public Sub AddingAttributeToABlock() ' Get the current database and start a transaction Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim acCurDb As Database = acDoc.Database Dim blkRecId As ObjectId = ObjectId.Null Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction() ' Open the Block table for read Dim acBlkTbl As BlockTable acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead) If Not acBlkTbl.Has("CircleBlockWithAttributes") Then Using acBlkTblRec As New BlockTableRecord acBlkTblRec.Name = "CircleBlockWithAttributes" ' Set the insertion point for the block acBlkTblRec.Origin = New Point3d(0, 0, 0) ' Add a circle to the block Using acCirc As New Circle acCirc.Center = New Point3d(0, 0, 0) acCirc.Radius = 2 acBlkTblRec.AppendEntity(acCirc) ' Add an attribute definition to the block Using acAttDef As New AttributeDefinition acAttDef.Position = New Point3d(0, 0, 0) acAttDef.Verifiable = True 'acAttDef.Visible = False acAttDef.Prompt = "Door #: " acAttDef.Tag = "Door#" acAttDef.TextString = "DXX" acAttDef.Height = 1 acAttDef.Justify = AttachmentPoint.MiddleCenter acAttDef.LockPositionInBlock = True acBlkTblRec.AppendEntity(acAttDef) acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForWrite) acBlkTbl.Add(acBlkTblRec) acTrans.AddNewlyCreatedDBObject(acBlkTblRec, True) End Using End Using blkRecId = acBlkTblRec.Id End Using End If Dim pPtRes As PromptPointResult Dim pPtOpts As PromptPointOptions = New PromptPointOptions("") '' Prompt for the start point pPtOpts.Message = vbLf & "Enter the point: " pPtRes = acDoc.Editor.GetPoint(pPtOpts) Dim ptStart As Point3d = pPtRes.Value '' Exit if the user presses ESC or cancels the command If pPtRes.Status = PromptStatus.Cancel Then Exit Sub ' Insert the block into the current space If blkRecId <> ObjectId.Null Then Using acBlkRef As New BlockReference(ptStart, blkRecId) Dim acCurSpaceBlkTblRec As BlockTableRecord acCurSpaceBlkTblRec = acTrans.GetObject(acCurDb.CurrentSpaceId, OpenMode.ForWrite) acCurSpaceBlkTblRec.AppendEntity(acBlkRef) acTrans.AddNewlyCreatedDBObject(acBlkRef, True) End Using End If ' Save the new object to the database acTrans.Commit() ' Dispose of the transaction End Using End Sub End Class

Re: VB.NET block with attributes problem

norman.yuan — Thu, 12 Nov 2020 20:21:15 GMT

Different from VBA/COM API used for inserting block reference (Model[Paper]Space.InsertBlock(....), if you have ever programmed in AutoCAD VBA, in Acad .NET API/ObjectARX API, you need to write code the add AttributeReference to the BlockReference explicitly. Something like:

...

'' Create new block reference here

'' Append block reference into space

'' Add block reference to Transaction

'' Create attributereference

For Each id As ObjectId in [theBlockTableRecord]

If id.ObjectClass.DxfName.ToUpper()="ATTDEF" Then

Dim attDef=DirectCast(trans.GetObject(id, OpenMode.ForRead), AttributeDefinition)

If Not attDef.Constant Then

Dim att =New AttributeReference()

att.SetAttributeFromBlock(attDef, [blkRef].BlockTransform)

att.TextString="zzzzzzzz"

[blkRef].AttributeCollection.AppendAttribute(att)

trans.AddNewlyCreatedObject(att, True)

End If

trans. Commit()

...

HTH

Re: VB.NET block with attributes problem

twmerren — Sat, 04 Sep 2021 04:30:58 GMT

Your code is setting attribute visibility to false. Set to true and it should be visible.

Re: VB.NET block with attributes problem

norman.yuan — Sat, 04 Sep 2021 14:40:50 GMT

@twmerren , what do you talk about? The OP's code not creating and adding AttributeReference to the BlockReference's AttributeCollection is the reason. No having AttributeReference created, how/where the OP's code can set Visible property? I think you must mis-read the OP's code where a line of code setting AttributeDefinition(!)'s Visible property, which is commented out.