2012-04-18 05:56 UTC
Hi all
I have two forms and a command button in every of them to switch between. I have loaded both of them in the lisp file that is calling them at first place, when I want to go from first to second it does works perfectly with this code:
(defun c:Draw_frm_Draw_cmd_blocks_OnClicked (/)
(dcl_Form_Show Blocks_frm_Blocks)
(dcl_Form_close Draw_frm_Draw)
(princ)
)
but when I want to get back to frm_Draw with this code:
(defun c:Blocks_frm_Blocks_cmd_Draw_OnClicked (/)
(command "._insunits" mhjv-definsunits) ; returning insunits to default value
(princ "this is working") ; this line is not showing
(dcl_Form_Show Draw_frm_Draw)
(dcl_Form_close Blocks_frm_Blocks)
)
It just returns nil and nothing happens.
I have checked the name of this command button and it's right, there is nothing else I could think of, what is my problem?
I have two forms and a command button in every of them to switch between. I have loaded both of them in the lisp file that is calling them at first place, when I want to go from first to second it does works perfectly with this code:
(defun c:Draw_frm_Draw_cmd_blocks_OnClicked (/)
(dcl_Form_Show Blocks_frm_Blocks)
(dcl_Form_close Draw_frm_Draw)
(princ)
)
but when I want to get back to frm_Draw with this code:
(defun c:Blocks_frm_Blocks_cmd_Draw_OnClicked (/)
(command "._insunits" mhjv-definsunits) ; returning insunits to default value
(princ "this is working") ; this line is not showing
(dcl_Form_Show Draw_frm_Draw)
(dcl_Form_close Blocks_frm_Blocks)
)
It just returns nil and nothing happens.
I have checked the name of this command button and it's right, there is nothing else I could think of, what is my problem?