excel vba update title blocks in drawing with multiple layouts
I still have some issue. It means I can change the blocks which were inserted into layouts in opened drawing.
When the drawing is reopen the procedure is not working.
The program cannot find the block... block is not recognized by program...
Well, you did not show your code that selects block references into an AcadSelectionSet.
If your code is exactly the same as the code showed in previous old replies, then that port of code ONLY select static block reference with given block name. If your target blocks could be dynamic block(s), then that code does not work. So, is your target block dynamic?
The block includes Visibility States like on the screenshot.
One of the solution would be static block (I would have to change many templates) and 3 additional blocks inserted acc. to the drawing status (using insert block VBA command)...
When you change the state of a dynamic block, autocad creates an anonymous block of the changed block. To find the anonymous block, your code needs to compare the EffectiveName property. This holds the original name of the block.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Since your target block is dynamic, you CANNOT use "BlockName" filter in the Selection filter. So, you need to modify your FindBlocksOnAllLayouts2() function to only use the entity name "INSERT" to get ALL block references into the selectionset, then when you loop through the selectionset to update each block reference's attribute, you need to test the block reference's "EttectiveName", something like:
Dim blk As AcadBlockReference
For Each blk in blksObj
If UCase(blk.EffectiveName)="TheTargetBlockName" and blk.HasAttributes Then
'' Do your attributereference update here
End If
Next
Show your code. Maybe you have an error.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
Well, this line obviously does not do you any favor:
If UCase(blk.EffectiveName) = "CDD_J35_AER_Header_ACDL_Attr" ...
UCase()/LCase() is meant to turn the string value to all upper/lower case before comparing it to other string value to avoid "case" issue. So, the code should be:
If UCase(blk.EffectiveName) = "CDD_J35_AER_HEADER_ACDL_ATTR" ...
Also, it should have been VERY EASY to find out where the code error is, had you done your diligent, and very basic, debugging run: simply examine the entity counts after the Select() method call and after looping to test the block's EffectiveName.
Just a note on best practice,
Dim TITLE_1, TITLE_2, SCALE1, SECTION, SYSTEM As StringThe previous code will create 4 variants and 1 string. Although you can Dim several variables on one line, if you don't specify the data type for each, it will be allocated as a variant, not a String as you might assume from the previous code. You could write it this way.
Dim TITLE_1 As String, TITLE_2 As String, SCALE1 As String, SECTION As String, SYSTEM As StringI just get in the habit of having a single line for each var.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@robert.kulas wrote:
All your suggestions have been implemented but it doesn't work. I can only use it for static blocks...
the Debugger cannot find issues.
My notes probably wouldn't have any effect in this case. I just wanted you to understand the consequences of what you wrote. You may have wanted a String variable, but you got Variant variables instead. To get it to recognize dynamic blocks, you need to implement Norman's suggestions.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.