Gelés tous les calques sauf 1 en VBA
Résolu
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 -
fabdu91630 Messages postés 22 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'explique ce que je veux faire :
J'ai actuellement un script qui me permet de générer, d'assembler plusieurs plans pour n'en faire qu'un que l'on appel plan générer (regroupement de plan) pour une autre application sous autocad 2010. Seulement, pour ce que je veux faire, j'ai besoin d'une macro en VBA qui me permette de prendre le plan générer, de geler les calque que je n'ai pas besoin et enfin qu'il soit exporter en .wmf et tous cela en automatique (via macro).
Je préfère prévenir, je suis novice !!!
Je vous remercie d'avance pour votre aide,
Fabdu91630
J'explique ce que je veux faire :
J'ai actuellement un script qui me permet de générer, d'assembler plusieurs plans pour n'en faire qu'un que l'on appel plan générer (regroupement de plan) pour une autre application sous autocad 2010. Seulement, pour ce que je veux faire, j'ai besoin d'une macro en VBA qui me permette de prendre le plan générer, de geler les calque que je n'ai pas besoin et enfin qu'il soit exporter en .wmf et tous cela en automatique (via macro).
Je préfère prévenir, je suis novice !!!
Je vous remercie d'avance pour votre aide,
Fabdu91630
A voir également:
- Le fichier à télécharger comporte une image composée de quatre calques numérotés de 1 à 4. dans la fenêtre des calques, mettez les calques dans cet ordre : 2 (tout en haut) 3 1 4 (tout en bas) quelle suite d’animaux s’affiche de gauche à droite ?
- Windows 11 barre des taches a gauche - Guide
- Fichier bin - Guide
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Comment réduire la taille d'un fichier - Guide
- Fichier impossible à supprimer - Guide
1 réponse
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?
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?