[Résolu] Petit souci avec une liste

[DenisHen]

Bonjour à tous...

 

Voilà, j'ai tenté de faire un petit code pour un membre du site, mais je galère un peu avec une liste.

 

Je place dans un (vlax-ldata la liste des calques avec la valeur de leur statu "Gelé/Libéré". Tel que ma variable ListCalq =

("RES_ELEC_HT" 0 "RES_TEL" 0 "0" 0)

 

Ensuite, je tente de réattribuer les valeurs ainsi sauvegardées avec un petit bout de code que je tente d'écrire... Mais il plante, enfin non, il ne se termine jamais... Le voici :

;;;**************************************************
;;; Récupération des états de calque dans un fichier 
;;;**************************************************
(defun c:RecupEtatCalq (/ Doc ListCalq lay)
 (princ "\nDéveloppé par Denis H.")
 (setq Doc (vla-get-activedocument (vlax-get-acad-object)))
 (setq ListCalq (vlax-ldata-get "DenisH" "ListCalqActif"))
 ;;(setq n 0)
 (while (/= (car ListCalq) nil)
   (if (= (cadr ListCalq) 0)
     (command-s "-calque" "l" (car ListCalq) "")
     (command-s "-calque" "g" (car ListCalq) "")
   ) ;_ Fin de if
   (setq ListCalq (cddr ListCalq))
 ) ;_ Fin de while
 (vla-endundomark Doc)
 (princ)
) ;_ Fin de defun

 

Si quelqu'un a un truc, une astuce, un conseil... Je suis preneur...

 

Denis...

[Patrick_35]

Salut

 

Pourquoi attribuer une valeur ?

Si tu désactives un calque, tu le places dans ta liste que tu sauves ensuite avec un vlax-ldata.

Si le calque n'est pas désactivé, ben il n'est pas dans la liste.

 

Donc, pour réactiver, tu n'auras plus qu'a prendre ceux de la liste et à effacer le vlax-ldata

 

@+

[DenisHen]

Salut Patrick_35.

 

Tu veux dire, geler tous les calques qui ne sont pas dans ma liste et libérer ceux qui y sont ?

 

Effectivement, je n'avais pas vu ça comme ça...