AutoCad - Duda Facilita !!

Hola Compañeros:

Una pregunta bastante facilita para los "craks" de este foro.

Tengo un *.dcl asi:

prueba:dialog{label="Insertar BLOQUE";
:row{
:boxed_column{label="Bloque Prueba";
:toggle{label="Bloque Prueba";key="pp";}
}
}
spacer_1;
ok_cancel;
}


Luego tengo un lisp asi:

(defun c:prueba()
(setq Ind (load_dialog "c:/temp/pruebas/prueba.dcl"));
(new_dialog "prueba" Ind)
(start_dialog);
)

(defun c:ib()
(command"_insert" "c:/temp/pruebas/bloque.dwg" "10,0,0" "1" "1" "0"))
)

La Pregunta es:

¿Como hago para que si pongo una marca de en la casilla toggle el lisp me reconozca y inserte el archivo bloque.dwg?

En resumen:

No sé hacer con que el *.dcl funcione con el *.lsp

Una vez mas gracias!!

bloque : dialog {
label = \"Inserte bloque\";
: boxed_radio_column {
label = \"Bloque prueba\";
: radio_button {
label = \"Bloque\";
key = \"b\";
value = \"1\";}

}

: spacer { width = 1;}


ok_cancel ;
}

LISP

(defun C:bloque ()
(setq blo \"bloque\")
(setq dcl_id (load_dialog \"bloque.dcl\"))
(if (not (new_dialog \"bloque\" dcl_id)
)
(exit)
)
(action_tile \"b\" \"(setq blo \\\"bloque\\\")\")
(action_tile
\"accept\"
\"(done_dialog) (setq userclick T)\"
)
(action_tile
\"cancel\"
\"(done_dialog) (setq userclick nil)\"
)
(start_dialog)
(unload_dialog dcl_id)
(if userclick
(command \"insert\" \"bloque.dwg\" \"0,0,0\" \"1\" \"1\" \"0\")
)
(princ)
)
(princ)

TAMBIEN SIRVE
SALUDOS