AutoLISP单选按钮RADIO_BUTTON设计插入图块，DCL对话框代码如下。 dia6b:dialog {

label = "RADIO_BUTTON单选按钮" ;

:text {

alignment = centered ;

label = "插入图块" ;

}

:row {

:boxed_radio_column {

label = "设计者" ;

:radio_button {

key = "rb11" ;

label = "唐僧" ;

}

:radio_button {

key = "rb12" ;

label = "悟空" ;

}

:radio_button {

key = "rb13" ;

label = "八戒" ;

}

:radio_button {

key = "rb14" ;

label = "沙僧" ;

}

}

:boxed_radio_column {

label = "比例" ;

:radio_button {

key = "rb21" ;

label = "1/1" ;

}

:radio_button {

key = "rb22" ;

label = "1/30" ;

}

:radio_button {

key = "rb23" ;

label = "1/50" ;

}

:radio_button {

key = "rb24" ;

label = "1/100" ;

}

:radio_button {

key = "rb25" ;

label = "1/200" ;

}

}

}

:edit_box {

alignment = centered ;

edit_limit = 8 ;

edit_width = 8 ;

fixed_width = true ;

key = "dwgnum" ;

label = "编号" ;

}

spacer_1;

:row {

alignment = centered ;

fixed_width = true ;

:button {

key = "ins_ok" ;

label = "插入图块" ;

width = 8 ;

}

:spacer {

width = 8 ;

}

cancel_button;

}

}

LSP文件代码如下。 (defun c:dia6b ()

(setvar "cmdecho" 0)

(setq blkname "dia6att")

(dcl_dia6b)

(prin1)

)

(defun dcl_dia6b ()

(setq dcl_id (load_dialog "dia6b"))

(new_dialog "dia6b" dcl_id)

(setq defkey1 "rb14"

defkey2 "rb21"

)

(set_tile defkey1 "1")

(set_tile defkey2 "1")

(setq name (get_attr defkey1 "label"))

(setq ssca (get_attr defkey2 "label"))

(action_tile "rb11" "(setq name (get_attr $key \"label\"))")

(action_tile "rb12" "(setq name (get_attr $key \"label\"))")

(action_tile "rb13" "(setq name (get_attr $key \"label\"))")

(action_tile "rb14" "(setq name (get_attr $key \"label\"))")

(action_tile "rb21" "(setq name (get_attr $key \"label\"))")

(action_tile "rb22" "(setq name (get_attr $key \"label\"))")

(action_tile "rb23" "(setq name (get_attr $key \"label\"))")

(action_tile "rb24" "(setq name (get_attr $key \"label\"))")

(action_tile "rb25" "(setq name (get_attr $key \"label\"))")

(action_tile "ins_ok" "(ok_dia6b) (done_dialog 1)")

(setq dd (start_dialog))

(if    (= dd 1)

(progn

(setq inspt (getpoint "\n选取属性图块插入点:"))

(command "insert" blkname inspt 1 1 0 dwgnum name ssca)

)

)

)

(defun ok_dia6b    ()

(setq dwgnum (get_tile "dwgnum"))

)

代码完。