When using object data functions on Visual Lisp freezes autocad

[Anonymous]

Hello!

I'm trying to create a OD table but Autocad Map 3D 2019 it always freezes no matter what "ade_od" function I use

; Define new table
(setq tabldefn
'(("tablename" . "NEWTABLE")
("tabledesc" . "New Sample Table")
("columns"
; Define a field
(("colname" . "FIELD1")
("coldesc" . "Field1 Description")
("coltype" . "character")
("defaultval" . "Default Value"))
; Define more fields as needed
)
))
; Create the new table
(ade_oddefinetab tabldefn)

Help!

[Anonymous · Accepted solution]

Maybe I found a solution...

For anyone interested check attached file test1.lsp (did not freezes Autocad Model Space)

; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/map-query-through-lisp/td-p/2235108

(setq ade_cmddia_before_qry (getvar "cmddia"))
(setvar "cmddia" 0) 

(mapcar 'ade_dwgdeactivate (ade_dslist))

After using any ADE_OD commands run

(setvar "cmddia" ade_cmddia_before_qry)

[Anonymous]

Hi, I had the same issue with 

ade_odgettables 

Your solution worked for me, but I don't understand why. Do you have any ideas? Thanks.