AUTOCAD Gelés les plans en VBA
Résolu
fabdu91630
-
fabdu91630 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
fabdu91630 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Sur Autocad 2010
Je souhaite gelé les calques qui ne m'interesse pas sauf un en automatique via VBA, est-ce-que quelqu'un aurait une idée pour la macro, je suis novice ?
Je vous remercie par avance,
Sur Autocad 2010
Je souhaite gelé les calques qui ne m'interesse pas sauf un en automatique via VBA, est-ce-que quelqu'un aurait une idée pour la macro, je suis novice ?
Je vous remercie par avance,
A voir également:
- AUTOCAD Gelés les plans en VBA
- Ancienne version autocad gratuite - Télécharger - CAO-DAO
- Youtube en arrière plan - Guide
- Télécharger autocad 2018 gratuit en français 64 bits startimes ✓ - Forum Architecture / décoration
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
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.
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?