Déverrouiller cellules tableau

[MytheOrphee]

Bonjour,

 

Je suis à la recherche d'une solution rapide et efficace pour déverrouiller (en une commande) la totalité des cellules de tous les tableaux présents sur mon dwg. Je précise que ces tableaux sont des liaisons de données que je souhaite conserver comme tel.

 

Avez-vous une commande / un lisp permettant de déverrouiller les cellules ?

 

J'ai déjà fait des recherches sur ce sujet et je suis tombé sur ce site :

 

https://www.cadtutor.net/forum/topic/63598-lisp-to-unlock-table-cells-the-whole-table-at-once/

 

Qui me proposait ça :

 

(defun Unlock_Table_Cells ( / myTable nRows nCols row cell)

(if (setq myTable (car (entsel "\n Select table :")))

(progn

(setq myTable (vlax-ename->vla-object myTable))

(setq nRows (- (vla-get-rows myTable) 1))

(setq nCols (- (vla-get-columns myTable) 1))

(setq row 1)

(setq cell 0)

(princ (strcat "\n\nNumers : " (itoa nRows) " rows , " (itoa nCols) " columns\nPress any key to continue"))

(grread)

; thank you Grrr/Lee/Tharwat

; http://www.cadtutor.net/forum/showthread.php?101239-lisp-to-unlock-table-cells-(the-whole-table-at-once)

(vla-put-RegenerateTableSuppressed myTable :vlax-true)

(while (<= row nRows)

(while (<= cell nCols)

(vla-setcellstate myTable row Cell 0)

(setq cell (1+ cell))

(princ (strcat "\nRow : " (itoa row) " , cell " (itoa cell)))

);while

(setq row (1+ row))

(setq cell 0)

)

 

(vla-put-RegenerateTableSuppressed myTable :vlax-false)

)

)

(princ)

)

 

 

Après l'utilisation de ce lisp, il ne se passe bien. Je le charge, le lance la commande, je sélectionne le tableau, mais rien. Est-ce du au fait que ce soit une liaison de donnée ?

 

Dans l'attente de votre retour.

 

Orphee