Hide a DrawingView

[Lea75]

Hello, how can I hide a Drawing view with VB6?
For example, the Front View.
Thank you in advance

 

[tesak]

Hi,
see below:

Option Explicit

Sub HideView()
    Dim drwViews As DrawingViews
    Set drwViews = CATIA.ActiveDocument.Sheets.ActiveSheet.Views
    
    Dim myView As DrawingView
    Set myView = drwViews.Item(3)
    
    Dim sel As Selection
    Set sel = CATIA.ActiveDocument.Selection

    sel.Clear
    sel.Add myView

    Dim visProp As VisPropertySet
    Set visProp = sel.VisProperties
    
    visProp.SetShow catVisPropertyNoShowAttr
    
    sel.Clear
End Sub

Tesak

http://scripts4all.eu/txtoncurve/

- Text along a curve for Catia V5

 

[Lea75]

Thank you very much! it works good.
Regards