macro to change the visibility of a particular dynamic block

[comcu]

i want to creat a macro that changes the visible status of a dynamic block. the idea being that when i run the macro it changes the visibilty to any 1 of 4 choices.

i could go a bit fancier & get a form to load & query which choice but i'm think something a lot more simple. could start of with a different macro fo reach one. could anyone help me kick start the code?

cheers!

col

[borgunit]

This is part of a toolbox I found...

Public Sub MakeObjSsInvisible(ByRef acSS As AcadSelectionSet)
'------------------------------------------------------------------------------
'
'
'------------------------------------------------------------------------------
Dim sCurrLyr As String
Dim objLayer As Object ' AcadLayers
Dim objLayers As Object 'AcadLayers
Dim acEnt As AcadObject
'''''''''''''''''''''''''''''''''''''''
For Each acEnt In acSS
sCurrLyr = acEnt.layer
Set objLayer = objLayers.Item(sCurrLyr)
If objLayer.Lock Then
objLayer.Lock = False
acEnt.Visible = False
objLayer.Lock = True
Else
acEnt.Visible = False
End If
acEnt.Update
Next

If Not acSS Is Nothing Then
acSS.Delete
End If

End Sub

[ASMI]

Visibility sets into dynamic block are not accessible via VBA...

[comcu]

Really.... I thought everything was accessible!!? aw well thats that then!

Thats a real shame as I had quite a few ideas for that type of function/ routine(not sure what the proper terminology is!).

For this particular one it was going to be for my stamp eg draft, approval, construction or as built. Just thinking a simpler way would be to have a block called ‘stamp’ for example, in my dwg template. I could then have 3 block called the same name in separate files, each ones text value would be one of the types of issue eg draft, approval etc. I could then insert the relevant one into my current dwg, redefine the block when I insert it. This would then update the block ‘stamp’ contained within many layouts. I will try it tomorrow, can’t see any reason why it wouldn’t work(?) & it beats going thru each layout to update each text value manually!

Am I over complicating things, is their a simpler way of doing it than that? Any suggestions would be appreciated?

Cheers,

col

[borgunit]

See if this helps. Other than the clearing of the selection set, see if it will "grab" those entities.

Private Sub GetInvisibleObjSs(ByRef acSs1 As AcadSelectionSet)
'------------------------------------------------------------------------------
'GetInvisibleObjSs: Makes all objects in an AutoCAD drawing visible.
'
'------------------------------------------------------------------------------
Dim acSS As AcadSelectionSet
Dim dPt1(0 To 2) As Double
Dim dPt2(0 To 2) As Double
Dim iCode(0) As Integer
Dim vVal(0) As Variant
'''''''''''''''''''''''''''''''''''''''
iCode(0) = 60 'visibilty pair
vVal(0) = 1 '1=invisible, 0=visible
Set acSS = ClearSS("INVIS")

acSS.Select acSelectionSetAll, dPt1, dPt2, iCode, vVal 'ALL OBJECTS
Set acSs1 = acSS

End Sub