Macro afin de verrouiller/déverrouiller une vue selectionnée

Bonjour,

Dans mon travail quotidien je suis amené a verrouiller/déverrouiller des vues dans un DRAW. je souhaite faire une macro avec un bouton pour facilité cela. non pas que cela soit dur, mais juste que je fais ->clic droit->propriété->déverrouiller 100x/jour.

je cherche quelqu'un qui pourrait m'aider sur le sujet.

MERCI

pour ceux que cà interesse jai trouver le code

'30/05/13 vérouiller/dévérouiller
'
Language="VBSCRIPT"
Sub CATMain()
' ******************************* test if drawing is open ********************************
If CATIA.Documents.Count = 0 Then
MsgBox "There is no CATIA Drawing file open. Open a drawing file and run this script again.", ,msgboxtext
Exit Sub
End If
If InStr(CATIA.ActiveDocument.Name, ".CATDrawing") < 1 Then
MsgBox "Active CATIA Document is not a Drawing. Open a Drawing file and run this script again.", ,msgboxtext
Exit Sub
End If
' ******************************* variables *******************************************
Set objNetwork = CreateObject("Wscript.Network")
Set DrwDoc = CATIA.ActiveDocument
Set DrwSheets = DrwDoc.Sheets
Set Sheet = DrwSheets.ActiveSheet
Set DrwViews = Sheet.Views
Set View = DrwViews.ActiveView

' ******************************* Lock View *******************************************
if(View.LockStatus) then
View.LockStatus = false
lock=1
else
View.LockStatus = True
lock=0
end if

exit sub
End Sub

perso le catscript j'aime pas trop.
je prefere le catvba.

pour t'aider dans ton boulot tu peux peut etre utilisé des selection voir selection multiple.



moi je cherche a identifier les entité comme les points projeté, les rugosité, les tolérance geometrique etc...

si quelqu'un sais m'aider... Merci