Autocad 2010 gelés tous les calques sauf 2 en vba

Commenter

Contenu du snippet

Cette macro permet de gelés tous les calques sauf ceux dont on a besoin. Exemple vous avez 100 calques (comme moi) vous voulez tous les gelés sauf ce que vous avez besoin. Cette macro est faite pour vous.

Source / Exemple : 


Sub GelerTousLesCalquesSaufDeux()
Dim calque As AcadLayer

    'Parcourir tous les calques dans la collection Calques du dessin :
    For Each calque In ThisDrawing.Layers
        'Si le nom du calque n'est pas égal au nom des calques qu'on ne veut pas geler :
        If calque.Name <> "Nom calque 1" And calque.Name <> "Nom calque 2" Then
            'Geler le calque sauf le calque 0 qui ne peut pas être gelé
            If calque.Name <> "0" Then calque.Freeze = True
        End If
    Next
End Sub&#65279;

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.