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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 939 fois - Téléchargée 18 fois

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

Ajouter un commentaire

Commentaires

Messages postés
22
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
31 mai 2011

J'ai deja specifier que effectivement c'etait le calque courant qui ne poucait pas pas etre geles mais j'ai pris le calque 0 en reference car c'est lui de bas qui edt courant.
Messages postés
12
Date d'inscription
vendredi 1 mars 2002
Statut
Membre
Dernière intervention
20 juin 2008

bonjour
Tu peux aussi geler le calque "0". par contre, tu ne peux pas geler le calque courant. il serait bon de faire un test la dessus. Un indice de mémoire, remplace :
If calque.Name <> "0" Then calque.Freeze = True
par
if calque.name <>Thisdrawing.ActiveLayer then calque.freeze = true
a+
Messages postés
22
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
31 mai 2011

Oui c'est a peu pres la meme chose, mise a par qu'avec le programmre que je fait je dois faire une macro qui dois etre automatisé afin var senait pas que pour un plan mais faire ceci sur 8 plans et chaque plan a 100 calques.
Messages postés
5
Date d'inscription
dimanche 17 janvier 2010
Statut
Membre
Dernière intervention
30 mai 2011

Bonjour
Je ne sais pas si dans autocad 2010 c'est pareil , mais dans 2005 avec la barre d'outil "express" , on peut faire cela. Il suffit de sélectionner le ou les calques ( avec ctrl) que l'on veut garder et les autres sont caché.
Messages postés
22
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
31 mai 2011

Après la syntaxe (End Sub) supprimé tous ce qui est après sub exemple : End Sub > End Sub.

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.