Configurations de tracé dans plusieurs présentations

[skavenger540]

Bonjour,

 

Pourriez vous m'indiquer s'il y a une possibilité d'affecter la même configuration de tracé (créée à part mais présente dans le fichier) dans plusieurs présentations en UNE seule fois.

 

Je sais que c'est possible avec la commande publier, mais cela ne l'affecte pas définitivement, il faut recommencer à chaque fois.

 

Autre question : Quelqu'un se souvient-il où on peut trouver ce LISP qui permet dans une case de dialogue, de trier, déplacer ou supprimer les onglets deprésentations ( dans le cas où on en a plus de 100, manipuler les onglets est trop compliqué)

 

Merci

[jalna]

Autre question : Quelqu'un se souvient-il où on peut trouver ce LISP qui permet dans une case de dialogue, de trier, déplacer ou supprimer les onglets deprésentations ( dans le cas où on en a plus de 100, manipuler les onglets est trop compliqué)

 

Merci

Salut

Regarde ici

[skavenger540]

merci pour cette piste : je regarde cela et je teste.

 

Pour ma première question, j'ai trouvé un bout de Lisp qui fait ce que je souhaite, mais je m'étonne que ça ne soit pas possible dans les options des mises en pages.

 

 

 

(Defun C:GSETTABS

(/ PLO_LAYOUTS PLO_CNTR PLO_CNTR2 PLO_LIST PLO_LAYOUTTAB)

(vl-load-com)

(setvar"FILEDIA"0)

(setvar"CMDDIA"0)

(setq PLO_LAYOUTS (vla-get-layouts

(vla-get-activedocument(vlax-get-acad-object)))

PLO_CNTR 0 PLO_CNTR2 0)

(repeat(vla-get-count PLO_LAYOUTS)

(setq PLO_LIST (cons(setq PLO_CNTR (1+ PLO_CNTR))

PLO_LIST)))

(vlax-for PLO_LAYOUT PLO_LAYOUTS

(setq PLO_LIST (subst(vla-get-name PLO_LAYOUT)

(vla-get-taborder PLO_LAYOUT)PLO_LIST)))

(setq PLO_LIST (reverse PLO_LIST))

(while(/= PLO_CNTR2 (1- PLO_CNTR))

(setq PLO_LAYOUTTAB (nth PLO_CNTR2 PLO_LIST))

(command "_-PLOT" "n" PLO_LAYOUTTAB "configuration1" "" "" "O" "N" "")

(setq PLO_CNTR2 (1+ PLO_CNTR2)))

(setvar"FILEDIA"1)

(setvar"CMDDIA"1)

(princ))

[skavenger540]

Le lisp ONG n'est pas loin d'être génial et avec OOG.lsp (sur le site de Patrick) ont peut réorganiser et monter descendre des onglets...

 

Merci !

 

Au passage, et pour info, je viens de vérifier, ça marche pareil sur notre AutoCad Full ET sur nos ZWCAD