AUTOCAD Gelés les plans en VBA
Résolu/Fermé
fabdu91630
-
Modifié par irongege le 23/05/2011 à 09:09
fabdu91630 Messages postés 22 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 31 mai 2011 - 27 mai 2011 à 08:58
fabdu91630 Messages postés 22 Date d'inscription vendredi 20 mai 2011 Statut Membre Dernière intervention 31 mai 2011 - 27 mai 2011 à 08:58
A voir également:
- AUTOCAD Gelés les plans en VBA
- Telecharger autocad - Télécharger - CAO-DAO
- Logiciel pour faire des plans gratuit - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum Programmation
2 réponses
Bonjour,
pour isoler un calque il y a la commande ISOLCALQUE
à l'inverse la commande ASSOCIERCALQUE retaure les calques masqués avec ISOLCALQUE.
ces commandes sont accessibles via les barres d'outils
donc à priori pas besoin de macros.
pour isoler un calque il y a la commande ISOLCALQUE
à l'inverse la commande ASSOCIERCALQUE retaure les calques masqués avec ISOLCALQUE.
ces commandes sont accessibles via les barres d'outils
donc à priori pas besoin de macros.
fabdu91630
Messages postés
22
Date d'inscription
vendredi 20 mai 2011
Statut
Membre
Dernière intervention
31 mai 2011
27 mai 2011 à 08:58
27 mai 2011 à 08:58
Cette macro permets de gelés tous les calques sauf ceux que l'on a besoin :
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?
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?
