Activating a command thru a DCL

[rcb007]

I cannot seem to get this command to run through a DCL.

When I load it normally. It works as expected.

Is there something I could be missing in the way that it is setup?

 

(It is to ungroup selected objects in the drawing.)

Again, it not work when I select through the dcl button.

 

Thanks for any help!

(defun c:UGMO ( / idx grp selt )
   (if (setq selt (ssget))
       (repeat (setq idx (sslength selt))
           (if (= "GROUP" (cdr (assoc 0 (entget (setq grp (cdr (assoc 330 (entget (ssname selt (setq idx (1- idx)))))))))))
               (entdel grp)
           )
       )
   )
   (princ)
)

 

[dlanorh]

A DCL dialog is modal. That means nothing can run whilst the dialog is displayed. To run something you must hide the dialog, then reinstate it. See Here

[rcb007]

Got it! Thank you. Sorry for the late response.