jkappa
Joined: 11 Jul 2005
Posts: 2
|
Posted:
Mon Jul 11, 2005 8:29 pm Post subject:
AcadLayerStateManager |
|
|
Hi there,
I have a totally convoluted drawing that I inherited (1000+ layers) and I need a little utility to switch between layer states.
I have my userform with 3 buttons, and I want button1 one to restore the GEO layer state, button2 the PVGRDR state, and button3 the UTILS state.
So here goes my program, can you help me fix it?
I'm quite pathetic at programming, so please don't laugh:
UserForm1
Private Sub CommandButton1_Click()
Module1.LAYERRESTORE
End Sub
Private Sub CommandButton2_Click()
Module1.LAYERRESTORE
End Sub
Private Sub CommandButton3_Click()
Module1.LAYERRESTORE
End Sub
Module1
Sub LAYERRESTORE()
Dim LS As AcadLayerStateManager
Dim State As String
LS.Restore
End Sub
And that's as far as I got--told ya I'm quite pathetic.
TIA
JK
Ps: I would also like to embed it to the drawing so other people can use it without having to vbaload it or vbarun it.
|
|