comment effacer ou gérer les categorie de vues

[fabcad]

Bonjour,

 

Utilisant les vues AutoCAD, j'avais ajouté des catégories de vues mais je ne vois pas ou gérer ces dernières (la commande purger n'en contient pas, la commande renommer ne gère que les noms des vues,).

 

Une fonction de gestion AutoCAD existe-elle ou sinon un petit développement en visual lisp serait à faire. (suppression, modification et ajout de catégories de vues).

 

Merci pour vos infos.

 

Fabrice

 

[(gile)]

Salut,

 

Je ne peux pas vraiment te répondre, je me suis arrêté à 2007, et pas encore de "Catégories de vues".

 

J'imagine que tu as essayé par le "Gestionnaire des vues" ?

[fabcad]

C'est cela même.

Ça n'existe pas sous la 2007 ?

[jalna]

Salut!

Il me semble que cela existe aussi dans 2007.

 

Sinon les catégories de vues sont utilisées dans les jeux de feuilles.

 

Comme je comprend tu recherches à les supprimées......................

 

[fabcad]

exact ou de les renommer.

[jalna]

Il me semble que cela ne soit pas possible!!

 

La catégories et liées avec la vue, donc à part supprimer le vue (qui supprime la catégorie) je ne vois rien d'autre................

[Serge]

fabcad,

 

Les catégories n'ont pas à être supprimées car elles le sont d'elles mêmes lorsque non utilisées. Voici un exemple en VBA qui montre comment renommer. En l'extensionnant, on peut créer une fonction d'effacement en choisissant comme nouveau nom une chaine vide.

 

Option Explicit

Sub Rename_CategoryName(OldCategoryName As String, NewCategoryName As String)
   ' Renomme les catégorie de vue
   ' OldCategoryName peut accepter la plupart des caracères génériques 
  '  de la commande wcmatch
  ' Note: pour éviter de se compliquer la vie avec la déclaration "Option Compare" 
   ' qui affecte la commande LIKE, on compare tout en minuscules.

   Dim oView As AcadView
   Dim oViews As AcadViews
   Dim CurCategoryName As String
  
   Set oViews = ThisDrawing.Views
   OldCategoryName = LCase(OldCategoryName)
   For Each oView In oViews
      CurCategoryName = LCase(oView.CategoryName)
      If CurCategoryName Like OldCategoryName Then
        oView.CategoryName = NewCategoryName
      End If
   Next

   set oView = Nothing
   set oViews = Nothing
End Sub

Public Sub Exemple_Rename()
  ' Renomme les catégories de vues.
  ' Paramètre 1: l'ancuien nom (accepte les caractères génériques).
  '        Ici tout ce qui commence par S
  ' Paramètre 2: le nouveau nom (sans caractères génériques). 
  '       Ici, le nouveau nom est "NouveauNom"
  Rename_CategoryName "s*", "NouveauNom"
End Sub

Public Sub Exemple_Erase()
  ' Renomme les catégories de vues.
  ' Paramètre 1: l'ancuien nom (accepte les caractères génériques)
  ' Paramètre 2: le nouveau nom (sans caractères génériques). Ici, c'est vide
  Rename_CategoryName "s*", ""
End Sub

 

Serge

 

[Serge]

fabcad

 

Je ne sais pas si tu as eu le temps de regarder le code ou si le fait d'être en VBA était un handicap. Voici une version Lisp.

 

 (defun Rename_CategoryName (
  OldCategoryName  NewCategoryName
/ CurCategoryName oView oViews thisDrawing 
  )
  ;; Renomme les catégorie de vue
  ;; OldCategoryName peut accepter la plupart des caracères génériques 
  ;; de la commande wcmatch
  (setq thisDrawing (vla-get-ActiveDocument (vlax-get-acad-object)))    
  (setq oViews (vla-get-Views ThisDrawing))
  (setq OldCategoryName (strcase OldCategoryName t))
  (vlax-for oView oViews
     (setq CurCategoryName (strcase (vla-get-CategoryName oView) t))
     (if (wcmatch CurCategoryName OldCategoryName)
     (progn
        (vla-put-CategoryName oView NewCategoryName)
     ))
  )
  (vlax-release-object oViews)
  (setq oViews nil)
  (princ)
)

(defun Exemple_Rename()
  ;; Renomme les catégories de vues.
  ;; Paramètre 1: l'ancuien nom (accepte les caractères génériques).
  ;; Ici tout ce qui commence par S
  ;; Paramètre 2: le nouveau nom (sans caractères génériques). 
  ;; Ici, le nouveau nom est "NouveauNom"
  (Rename_CategoryName "s*" "NouveauNom")
)

(defun Exemple_Erase()
  ;; Renomme les catégories de vues.
  ;; Paramètre 1: l'ancuien nom (accepte les caractères génériques)
  ;; Paramètre 2: le nouveau nom (sans caractères génériques). Ici, c'est vide
  (Rename_CategoryName "s*" "")
)

 

Serge