Sauvegarde État de calque automatique

[Cyrchap]

Bonjour à tous,

 

Quelqu'un sait il si il y a un moyen de générer un état de calque de chaque présentation "automatiquement" ? ( via un lisp, une variable )

 

Le nom de l'état de calque pourrait prendre celui de la présentation par exemple et la mise à jour se faire sur une sélection de présentation.

 

Merci

 

Cyrchap

[philsogood]

hello

par état de calque par rpésentation tu entends gel de calque dans les fenètres?

si oui ya un lisp assez facile à faire je t'en donne un exemple

(defun c:EPimplant (/)
(command "_vplayer"
"_t" "*XREF1" "" ;; _t dégel le calque
"_f" "*XREF2" "" ;; _f gel le calque
...
""))

ce lisp ne amrche que dans la mesure ou tu utilises toujours les même calques (car tu as établis au préalable une charte)

avec la fonction concatener sous excel tu peux facilement faire ce lisp pour plusieurs type de présentation

plan guide GC, plan guide équipements, and much more...

@+

[Cyrchap]

hello,

 

non je souhaiterais que les présentations (espaces papier) ou le tri des calque affiché dans la fenêtre a été fait, soit enregistrer en tant qu'état de calque.

 

Lorsque je reviens dans l'espace objet, je tape la commande "état de calque" (eta) et là, la liste enregistré apparait.

 

Je n'ai plus qu'a sélectionner l'état de calque qui correspondant à ce que je veux voir à l'écran.

 

Aujourd'hui je le fais manuellement, présentation par présentation mais lorsque je modifie des affichages de calques, il faut re-enregister l'état avec les modifs.

 

J'espère avoir été plus clair.

 

 

 

 

@+

 

 

 

 

 

[Patrick_35]

Salut

 

Et pourquoi ne pas travailler en objet depuis une présentation ?

 

@+

[Cyrchap]

Salut,

 

oui bien sûr, mais le travail depuis EP dans l'EO n'est pas pratique dans certains cas, et avec Covadis cela n'est pas conseillé.

 

@+

 

 

 

[Patrick_35]

Un lisp qui gèle ou libère les calques selon une fenêtre

Il ne restera plus qu'à sauvegarder l'état de calques

 

(defun c:gfe(/ cod doc fen lst typ)
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (vla-startundomark doc)
 (and	(setq fen (entsel))
(setq fen (vlax-ename->vla-object (car fen)))
(eq (vla-get-objectname fen) "AcDbViewport")
   (progn
     (vla-getxdata fen "" 'cod 'typ)
     (setq cod (vlax-safearray->list cod)
    typ (vlax-safearray->list typ)
    bou 0
     )
     (while (setq fen (nth bou cod))
(and (eq fen 1003) (setq lst (cons (vlax-variant-value (nth bou typ)) lst)))
(setq bou (1+ bou))
     )
     (vlax-for fen (vla-get-layers doc)
       (or (eq (vla-get-name fen) (getvar "clayer"))
  (if (vl-position (vla-get-name fen) lst)
    (vla-put-freeze fen :vlax-true)
    (vla-put-freeze fen :vlax-false)
  )
)
     )
   )
 )
 (vla-endundomark doc)
 (princ)
)

 

@+

[lili2006]

Bonsoir à toutes et tous,

 

 

Cyrchap, J'ai pas bien compris ton besoin, pourrais tu poster une image STP ?

 

 

 

 

Patrick_35, que fais ce code exactement ?

 

 

Merci d'avance,

[Patrick_35]

Salut Lili

 

Ce lisp permet de geler des calques dans le dessin depuis les calques gelés dans une fenêtre afin de répondre à la demande de Cyrchap.

Ensuite un petit coup de lman et le tour est joué.

 

@+

[patrick.albinet]

Et enregistrer plusieurs etats de calques suivant les presentations, ca ne va pas ?

JE n'aime pas trop mais certains le font.

 

PL + entrée

 

ALT + E

[lili2006]

Bonjour à toutes et tous,

 

Salut Patrick,

 

Un lisp qui gèle ou libère les calques selon une fenêtre

 

Comment tu libère puisque c'est par sélection d'objet ?

 

Désolé, mais je ne suis pas encore sur d'avoir bien compris le besoin et l'utilité de ce prog,...:huh: