Lister les onglets présentation

[Dubloc]

Hello

 

je cherche un moyen d'éxtraire d'un dessin une liste des onglets "Présentation" existants à l'aide d'une procédure LISP.

But du jeu : pouvoir lancer un SCRIPT sur chacun des onglets successivement avec un LISP.

Pour l'instant ca marche en semi-manuel, en fait je dois activer le 1er onglet, lancer mon script, activer le 2e, lancer mon script, le 3e, le 4e, etc etc... et comme j'ai fréquement à traiter des dessins avec 30 à 50 onglets je vous raconte pas !!!

 

PS: j'utilise Autocad 2002

 

[Tramber]

(setq doc(vla-get-ActiveDocument (vlax-get-acad-object))result nil)

(vlax-for item (vla-get-layouts doc)(setq result(append result(list(vla-get-name item)))))

result

 

Mais la fonction qui tue (je viens de la retrouver), cest :

 

(layoutlist)

 

[Edité le 13/4/2006 par Tramber]

[Tramber]

Y a aussi ça (je suis l'auteur) mais il faut enlever "Model"

 

     (setq layList (dictsearch (namedobjdict) "ACAD_LAYOUT"))
     (mapcar 'cdr(vl-remove-if-not '(lambda(x)(=(car x)3))layList))

 

[bonuscad]

Pour une fois que le lisp basique est tout aussi efficace en plus simple, je ne vais pas me gêner ;)

 

(cons "Model" (layoutlist))

 

 

[bonuscad]

Wahouu , Tramber il esit sont post et en fait un autre avant que je clique sur réponse.

 

Tramber Lucky Luke :P

[Dubloc]

Génial, merci les gars !! :)

 

Même si j'avais déjà trouvé la réponse en parcourant le forum, dans un post daté de juin 2003... hé oui, j'ai passé l'aprème à fouiner dans "Aller plus loin en LISP", ce qui m'a permis de découvrir plusieurs autres petites choses très intéresantes, je suis comblé, vraiment !

 

Allez, joyeuses Pâques à tous !

[Dubloc]

salut

 

maintenant que j'ai obtenu ma liste d'onglets avec (layoutlist) j'aimerais bien aussi la liste des onglets selectionnés...