Ok, I wasn't even close. lol
Mr Mac had it covered already. This works for my purposes:
(defun c:test ()
(setq table1 (car (_entsel "Please select a Table: ")))
(setq table2 (vlax-ename->vla-object table1))
(setq tbl_blk_nam (LM:blocknamefromtablecell table2 1 10))
)
(defun LM:blocknamefromtablecell ( obj row col / 64p doc )
(setq 64p (wcmatch (getenv "PROCESSOR_ARCHITECTURE") "*64*")
doc (vla-get-activedocument (vlax-get-acad-object))
)
(eval
(list 'defun 'LM:blocknamefromtablecell '( obj row col )
(list 'if '(= acblockcell (vla-getcelltype obj row col))
(list 'vla-get-name
(list
(if (and 64p (vlax-method-applicable-p doc 'objectidtoobject32))
'vla-objectidtoobject32
'vla-objectidtoobject
)
doc
(list
(if (and 64p (vlax-method-applicable-p obj 'getblocktablerecordid32))
'vla-getblocktablerecordid32
'vla-getblocktablerecordid
)
obj row col
)
)
)
)
)
)
(LM:blocknamefromtablecell obj row col)
)
AutoCad 2018 (full)
Win 11 Pro