sauve et restaure l'ordre des onglets

[GEGEMATIC]

Tout est dans le titre

;;**************************************************************************
;§/traces/sauve l'ordre des onglets/none

(defun c:sauve_ordre_onglet ( / acadObject acadDocument layout_col nb i name id  taborder lorder)
 
 (vl-Load-Com)
 (setq acadObject (vlax-get-acad-object)) 
 (setq acadDocument (vla-get-ActiveDocument acadObject))
 (setq layout_col (vla-Get-Layouts acadDocument))
 (setq nb (vlax-get-property layout_col 'Count))
  (setq i 0)
 (while (< i nb)
   (setq id (vlax-invoke-method layout_col 'Item i ))
   (setq name  (vla-get-Name id ))
   (setq taborder (vla-get-TabOrder id ))
   (setq lorder (cons (list name taborder) lorder))
   (setq i (+ 1 i))
 )
(vlax-ldata-put "GX-ONGLET" "SAUVORDRE" lorder)
)
;;**************************************************************************
;§/traces/Restaure l'ordre des onglets/none

(defun c:Restaure_ordre_onglet ( / acadObject acadDocument layout_col name  order lorder)
 (setq lorder (vlax-ldata-get "GX-ONGLET" "SAUVORDRE" ))
 (vl-Load-Com)
 (setq acadObject (vlax-get-acad-object))
 (setq acadDocument (vla-get-ActiveDocument acadObject))
 (setq layout_col (vla-Get-Layouts acadDocument))
 (setq lorder (vl-sort lorder (function (lambda (e1 e2)
                        (< (cadr e1) (cadr e2))))))
  (foreach l lorder
   (setq name (car l)
  order (cadr l))
   (setq id (vlax-invoke-method layout_col 'Item name ))
   (if (/= order 0)
   (vla-put-TabOrder id order )
    )
 )
)

[Fraid]

Bonjour,

 

Merci pour ton partage, code intéressant.

Par contre, je n'ai jamais rencontrer (de souvenir) de bug d'ordre des onglets.

Peux tu nous dire dans quel cas, tu as des bugs (version d'Autocad, Index des onglets, nombres...?)

[GEGEMATIC]

Salut,

Nous c'est avec une 2015, civil ou Map,

ça se produit en série, lorsque l'on passe d'un onglet à l'autre:

changer d'onglet courant le fait se déplacer dans la liste.

Bien entendu, c'est pas tout le temps ...

a+

[lecrabe]

Hello

 

Au fait pour re-organiser mes Presentations / Layouts,

j'utilise la Superbe Routine TABSORT de Lee-Mac !

 

http://www.lee-mac.com/tabsort.html

 

LA SANTE, Bye, lecrabe "triste"

[GEGEMATIC]

Génial en effet !

 

Car si y a bien une interface de merde sur AutoCAD, c'est celle là !

[lecrabe]

Hello

 

YES quand Lee-Mac ou Gilles ou Patrick_35 (SNIFF !!) ou Bonuscad ou Kent1Cooper ou DannyNL ou BeekeeCZ ou pbejse ou dlanorh ou alanjt ou marko_ribar ou Tharwat ou hmsilva ou Ranjit_Singh ou Dbhunia ou autre Super-Specialiste , cause ou propose une Routine Lisp : ON ECOUTE, ON ADMIRE et on utilise si necessaire ...

 

MERCI MERCI et RESPECTS à ses Fabuleux Développeurs !!

 

LA SANTE, Bye, lecrabe "triste"

 

PS1: Automne 2020, la retraite...

 

PS2: Désolé Mr Gege , je ne t ai pas cité dans la Liste !

 

PS3: tu es "dur" avec AutoCAD ! Est ce beaucoup mieux dans Excel ?!