2008-11-24 15:26 UTC
With Owen's help I am now successfully running code with the entmakex function from a check box event.
Questions remaining:
Can dcl_SendString work with just one line? I had to use (dcl_SendString "\n")
to get the function to enter on the command line.
Can one construct a command string with arguments eliminating the need for a global variable?
(defun c:Onset_Outline_InfoChkBox_OnClicked (Value)
;;returns 1 for true 0 for false
(setq tcam:*InfoChkBox* value)
(dcl_SendString "(tcam:infoChkBox)")
(dcl_SendString "\n")
)
(defun tcam:infoChkBox ()
(tcam:putdictx
"tcam"
"SETUP{INFO"
(cons "InfoChkBox" tcam:*InfoChkBox*)
)
)
Questions remaining:
Can dcl_SendString work with just one line? I had to use (dcl_SendString "\n")
to get the function to enter on the command line.
Can one construct a command string with arguments eliminating the need for a global variable?
(defun c:Onset_Outline_InfoChkBox_OnClicked (Value)
;;returns 1 for true 0 for false
(setq tcam:*InfoChkBox* value)
(dcl_SendString "(tcam:infoChkBox)")
(dcl_SendString "\n")
)
(defun tcam:infoChkBox ()
(tcam:putdictx
"tcam"
"SETUP{INFO"
(cons "InfoChkBox" tcam:*InfoChkBox*)
)
)