CADForums.net

montyzoomer · Guest

I am trying to change the text in a drawing border but I am having a little trouble.

I am trying to use and convert code from a text book example that I have.

For Each elem In ThisDrawing.PaperSpace
If elem.EntityName = "AcDbBlockReference" Then
If elem.Name = "Part_Number" Then
foundAttributes = True
Array1 = elem.GetAttributes

I have looked at sample drawing this code works on but I cannot link the name AcDbBlockReference" with anything - can anyone help me out.

Thanks

Ian

TomD · Guest

First things first.

Are you trying to modify the actual text value of an attribute within a
block?

If so, you need to find the block, first. Once you have that, if I remember
correctly, you have to go through the two arrays (tag name/value name) and
find the attribute tag you are trying to change.

"montyzoomer" <nospam@address.withheld> wrote in message
news:15850515.1105557932938.JavaMail.jive@jiveforum2.autodesk.com...

montyzoomer · Guest

Tom

Yes I need to change the text value of the attribute within the block.

If I look at the sample and list the info of the block, I cannot see the reference name listed in the code yet it seems to be using the reference to find the block.

I'm confused

TomD · Guest

Tom Roberts · Guest

Hi Ian

Rather than looping thru all entities you would be better of creating a
selection set and filtering for blocks called "Part_Number" in paperspace.
You can then loop thru the selection set and access the attributes

Something like this...

Sub SelectBlocks()
'===========================================
Dim ss As AcadSelectionSet
Dim gpCode(1) As Integer
Dim dataValue(1) As Variant
Dim groupCode As Variant
Dim dataCode As Variant
Dim Blk As AcadBlockReference
Dim Atts As Variant
Dim i As Integer

'filter for blocks where name = "PART_NAME"
gpCode(0) = 2: dataValue(0) = "PART_NAME"
'filter for entities in paperspace
gpCode(1) = 67: dataValue(1) = 1

'assign filters to variant datatypes
groupCode = gpCode
dataCode = dataValue

'add selectionset to selectionsets collection
Set ss = ThisDrawing.SelectionSets.Add("SS_SelectBlocks")

'select all entities and apply filter
ss.Select acSelectionSetAll, , , groupCode, dataCode

'loop thru selection set
For Each Blk In ss
'check if block has attributes
If Blk.HasAttributes Then
'assign attributes to variant datatype
Atts = Blk.GetAttributes
'loop thru attributes
For i = 0 To UBound(Atts)
Debug.Print Atts(i).TagString & ": " & Atts(i).TextString
Next i
End If
Next Blk

'delete selectionset from selectionsets collection
ss.Delete

End Sub
'================================================

--
Regards
Tom Roberts
__________________________
MechWest Design & Drafting
Perth, Western Australia

"montyzoomer" <nospam@address.withheld> wrote in message
news:15850515.1105557932938.JavaMail.jive@jiveforum2.autodesk.com...

montyzoomer · Guest

Thanks for that I will work through it to solve my code problem.

I am very impressed how helpful people are on the forum.

Thanks again

Regards

Ian

Bobby C. Jones · Guest

Actually, if most of the entities reside in model space, then it may be
faster to iterate just the entities on the layout. And it makes for much
nicer code to boot.
--
Bobby C. Jones

"Tom Roberts" <nospam@address.withheld> wrote in message
news:41e5cf76$1_3@newsprd01...

montyzoomer · Guest

Tom

Any chance you could drop me a mail, I'd like to send you a border example that needs to be changed for your comments.

My address is

ian@bie.co.uk

Thanks

montyzoomer · Guest

TomD

Me Again !!!

You code seems to make sense until I reach Case "cectb30x42sd", "cectb24x36sd"

What does this represent, I would appreciate it if you could drop me a mail at

ian@bie.co.uk

I would like to ask a couple more questions if you don't mind.

I feel like I am starting to get some where at last

Regards

Ian

	CADForums.net Forum Index -> VBA	All times are GMT
Page 1 of 1