How to unlock table cell after removing datalink using AutoLISP.?

[Ashish123]

Hello,

 

I have 5000 drawings that contains three specific tables. All these tables are linked to external Excel using data links. 

 

The main issue i have is, after the data link is removed the cell content of all three tables remain locked. Is there any way to unlock the cells using lisp??. I know i can do it manually but i don't want to go that route unless it is the only the way to do so. 

 

Please take a look at the drawing & lsp file. Trial.dwg

 

Thank you very much.

 

Regards,

A 

AUTOCAD AUTOMATION.LSP

[dlanorh]

Look Here

[Ashish123]

(defun AH:unlockcell ( / x y)
(setvar 'ctab "Model")
(setq y 0)
(setq ss (ssget "X" (list (cons 0 "ACAD_TABLE"))))
(repeat (setq X (sslength ss))
(setq obj (vlax-ename->vla-object(ssname ss (setq x (- x 1)))))
(setq nRows (- (vla-get-rows obj) 1))
(setq nCols (- (vla-get-Columns obj) 1))
(setq row 0) 
(setq cell 0)
 (vla-put-RegenerateTableSuppressed obj :vlax-true)
     (while (<= row nRows)
(while (<= cell nCols)
  (vla-setcellstate  obj 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 obj :vlax-false)
)(princ)
)

(AH:unlockcell)

[Ashish123]

The above code selects all tables with 1 or more columns and unlocks the content of the cells for all tables within the drawing. 

 

looked thru so many thread and combined so many codes to come up with this code. 

 

 

thank you all very much helping me out. 

 

Regards,

A