Gestionnaire des Etats de Calque

[vannes]

Bonjour,

 

Je souhaite purger par un lisp le Gestionnaire des Etats de Calque.

J'ai trouvé plusieurs lisp qui permettent de nettoyer un fichier mais aucun qui parvient à supprimer tous les Etats de calque.

 

Je remercie d'avance la personne qui me donnera le code en lisp ou en vlisp pour y arriver.

[philsogood]

Hello,

Que souhaite-tu faire exactement?

déverrouiller/dégeler/libérer tous les calques?

Phil

[vannes]

Bonjour,

 

Je souhaite supprimer tous mes "Etats de calque" par un lisp sans devoir ouvrir la boite de dialogue correspondante.

La commande clavier pour ouvrir cette boite de dialogue est _layerstate.

 

Stef

[Patrick_35]

Salut

 

;;; listSavedLayerstates
;;; Returns a list of all layer states
;;; by Serge Camiré, www.cadnovation.com
;;;
;;; Since layer 0 is always involved in a drawing, thus in any subsequent saved layer state,
;;; we scan this layer.
;;;
;;; Receive:
;;;   no parameters
;;; Returns
;;;    LIST or nil
(defun listSavedLayerstates ( 
/ return
  )
  (cond
     ((not (setq return (entget (cdr (assoc 330 (entget (tblobjname "layer" "0"))))))) (setq return nil))
     ((not (setq return (cdr (assoc 360 return)))) (setq return nil))
     ((not (setq return (member (cons 3 "ACAD_LAYERSTATES") (entget return)))) (setq return nil))
     (t 
        (setq return (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= 3 (car x))) (entget (cdadr return)))))
     )
  )
  return
)

; By Patrick_35
(defun c:elman(/ doc lm)
 (setq doc (vla-get-activedocument (vlax-get-acad-object))
lm (vlax-create-object (strcat "AutoCAD.AcadLayerStateManager." (itoa (atoi (getvar "acadver")))))
 )
 (vla-startundomark doc)
 (vla-setdatabase lm (vla-get-database doc))
 (mapcar '(lambda(x)(vl-catch-all-apply 'vla-delete (list lm x))) (listSavedLayerstates))
 (vlax-release-object lm)
 (vla-endundomark doc)
 (princ)
)

 

@+

[bryce]

Bonjour,

 

J'étais en train d'écrire ce petit lisp, mais je me suis fait griller par Patrick...

 

(defun c:LSPURGE ( / )
 (foreach s (layerstate-getnames T nil)
   (layerstate-delete s)
 )
 (princ)
)

[Patrick_35]

Bonjour,

 

J'étais en train d'écrire ce petit lisp, mais je me suis fait griller par Patrick...

 

(defun c:LSPURGE ( / )
 (foreach s (layerstate-getnames T nil)
   (layerstate-delete s)
 )
 (princ)
)

Salut

 

Tu as des fonctionnalités que je ne connaissais pas.

C'est apparues sur quelle version ?

 

Il va falloir que je me mette au gout du jour ;)

 

@+

[philsogood]

Hello

OK je ne savais aps ce qu'est un "état des calques", excusez mon jeune age

Concretement sur quelle application un "état des calques peut s'avérer nécessaire

je ne connaissais aps cette fonctionnalité et j'aurai souhaité savoir comment je pourrais l'utiliser.

Phil

"Eternel débutant" pourraient dire certains

[bryce]

Tu as des fonctionnalités que je ne connaissais pas.

C'est apparues sur quelle version ?

 

C'était sur la 2008/2009 a priori, en tout cas elles figurent toutes dans la doc 2010.

[vannes]

Merci à Bryce et à Patrick.

Je suis allé au plus simple et à ce que je maîtrise le plus, càd le lisp de Bryce.

J'analyserais dès que j'aurai un moment le lisp de patrick.

Pour philsogood:

Un état de Calque permet de geler et dégeler des calques afin de passer d'un plan projet d'assainissement à un plan projet d'eau potable. C'est un exemple dans le cadre d'un projet de lotissement.

[FormaBois]

je ne connaissais aps cette fonctionnalité et j'aurai souhaité savoir comment je pourrais l'utiliser.

Salut,

La fonction ETATCAQUE enregistre une image de la configuration actuelle des calques.

Il est donc possible de montrer des choses différentes sur les présentations juste en

choisissant un état de calque enregistré au préalable comme l'a suggéré vannes.

Un autre exemple d'utilisation

Enregistrer l'état actuel en le nommant "Origine",

puis mettre par exemple tous les calques en gris et enregistrer ce nouvel état

Il sera ensuite très facile de montrer des présentations différentes juste en changeant d'état dans les fenêtres

Certainement aussi simple sinon plus que les Styles de tracé

Modifié le 21 février 2013 par FormaBois

[(gile)]

Salut

 

Tu as des fonctionnalités que je ne connaissais pas.

C'est apparues sur quelle version ?

 

Il va falloir que je me mette au gout du jour ;)

 

@+

 

J'avais découvert ces fonctions avec la version 2010, voir ici.

[Steven]

Salut à tous.

En fait, les états de calques existent depuis longtemps. On ne pouvaient les avoir qu'avec les Express Tools et le menu Bonus de la R14, si mes souvenirs sont bons, avec la commande LMAN (Layer MANager). D'ailleurs, la commande LMAN fonctionne toujours et affiche la fenêtre des états des calques.

[lecrabe]

Hello

 

YES Mr Steven, cela a commence avec les Express/Bonus de la R14 !

 

La R14 (ou MAP R2) ou plutot la R14.01 (ou MAP R3) a ete dans les annees 1997-1998,

l'une des meilleures versions d'AutoCAD ...

 

lecrabe

[(gile)]

Salut,

 

Bryce, Patrick_35 et moi ne parlions pas de l'existence des états de calques mais des fonctions LISP natives permettant de les manipuler.

[philsogood]

Hello

@formabois/vannes

j'avais cru comprendre que l'état des calques permettait des bidouilles de calques (gel, libérer, verrouiller...) et de rendu d'impression

et vous vous utilisez les style de tracé ou l'état des calques?

Phil

[vannes]

Pour Philsogood

Je n'avais pas suivi mon poste!

Donc voici une réponse très tardive!

J'utilise le gestionnaire des Etats de Calque, uniquement, pour geler et dégeler des calques (en espace Objet ou en espace papier) Exemple: Plan topographique, Plan de Récolement EU, Epure d'Implantation... Aussi, je décoche la gestion des couleurs, type de ligne...

Je ne travail pour ma part jamais avec "le style de tracé".