VBA Suppress / Unsuppress drawing view

[Jacques.Grobler]

Hi all

I have a drawing that has to suppress / unsuppress a view as the model changes. How can I do this with VBA?

[mwighton]

You can write a rule that will supress/unsuppress the view using If_Else statements.

[Jacques.Grobler]

Hi mwighton

That is what I am trying to do in VBA however I have no idea of where to start

[mwighton]

The way I would do it, is...

Create a parameter in your model that will change based on when you want the view to be present or not.

Link that parameter to your drawing.

Create the rule that will suppress/unsuppress the view.

If you can attach the model and drawing file so I can take a look I would be happy to help. Also tell me which view is the one that would be suppressed and when.

[Jacques.Grobler]

All I am looking for is the piece of code that says:

If modelstate = true then
Drawing.view (5).visible = true 'help with this line pls
Else
Drawing.view (5).visible = false
End if

[mwighton]

You can try reading This.

[Jacques.Grobler]

This is for rules in iLogic, I specifically need it for VBA pls

[MechMachineMan]

From the link posted above:

{code}
Sub Main() 
FindView("VIEW2").Suppressed = True
End Sub

Function FindView(viewName As String) as DrawingView
Dim doc As DrawingDocument = ThisDoc.Document
For Each view as DrawingView in doc.ActiveSheet.DrawingViews
If (view.Name = viewName) Then
Return view
End If
Next
Throw New ArgumentException(" No view named " & viewName & " was found") 
End Function
{code}

Use the basics from that with this:

 

and you have a working program! Yay!

DrawingView.Suppressed Property DrawingView.Suppressed() As Boolean

[Jacques.Grobler]

Hi Guys

I am still not getting this code to work. Can someone please assist me?

[MechMachineMan]

Where you stuck at? And this is almost definitely gonna take learning on your part to figure out which Feature will cause the view suppression to occur, unless you just have a manual parameter or something...

[Jacques.Grobler · Accepted solution]

And after a bit of a struggle< I finally got the code right

Thanks for all the help guys

Sub viewDrawing_Toggle(viewName As String, boolStatus)
   
    Dim drgDoc As DrawingDocument
    Set drgDoc = ThisApplication.ActiveDocument

    Dim drg As DrawingViews
    Set drg = drgDoc.ActiveSheet.DrawingViews

    Dim drgView As DrawingView
    Set drgView = drg(viewName)

    drgView.Suppressed = Not boolStatus

End Sub