先上效果图：

toggle.lsp：

 ;by 鸟哥 qq1833183060
;功能：演示 1、 toggle控件的使用。2、通过toggle修改text控件的值。3、通过控件设置系统变量
;所需文件包括： toggle.lsp toggle.dcl
;
;加载步骤：
;1、加载lsp
;2、命令行输入 test
(defun c:test( / continue curBtn dlgId )
    (defun toggle_action ()
		(setq text (strcat "正交：" orth "捕捉:" sna))
		(set_tile "mytext" text);设置text控件
		(setvar "orthomode" (atoi orth))	;设置环境变量	
		(setvar "snapmode" (atoi sna))		;
	)
    (setq dlgId (load_dialog "toggle.dcl"))
        
	(if (not (new_dialog "a" dlgId))
		(exit)
	)
	(setq orth (itoa (getvar "orthomode")))		;获取环境变量的值并赋值给orth
	(set_tile "tog1" orth)				

	(setq sna (itoa (getvar "snapmode")))			
	(set_tile "tog2" sna)
	
	(action_tile "tog1" "(setq orth $value)(toggle_action)")		;为toggle控件设置处理程序
	(action_tile "tog2" "(setq sna $value)(toggle_action)")
	(toggle_action)
	
	(start_dialog)
	
	(cond ((= curBtn "btn1") (f1))
		((= curBtn "cancel") (setq continue nil))
	   
	)	
 
    (unload_dialog dlgId)	
)

toggle.dcl：

a:dialog{
	label="slider";		
	
:boxed_row {				//*define boxed row

        :toggle {				//*define toggle
        key = "tog1";				//*give it a name
        label = "正交 开/关";			//*give it a label
        }					//*end toggle

        :toggle {				//*define toggle
        key = "tog2";				//*give it a name
        label = "捕捉 开/关";			//*give it a label
        }					//*end definition

	}
	:text{
		key="mytext";
	}
	:row{		
		:button{
			key="okBtn";
			label="确定";
			
		}
		:cancel_button{
			label="关闭";
		}
	}	
}

源码地址：https://github.com/1833183060/autolisp-visuallisp-demo/tree/master/dcl