(init) ; 初始化

(diag) ; 驱动对话框

(if (and ok txt)

(progn

(if (or (= (setq sty (tblsearch "STYLE" "HZ")) nil); "HZ"字型是否存在

(/= (cdr (assoc 40 sty)) 0) ; 字高是否为定值

(/=(getvar "TEXTSTYLE") "HZ"); 当前字型是否为"HZ"

)

(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n") ; 设置"HZ"字型

)

(initget (+ 2 4))；下面的输入值要求大于0

(setq ht (getreal "\n请输入字高<500>:"))

(if (not ht) (setq ht 500))

(setq pt (getpoint "\n请点取文字起点:"))

(command "text" pt ht 0 txt)

)

)

(setq *error* olderr)；恢复原设置

(setvar "cmdecho" oldcmd)

(princ)

)

// #txt.dcl

// 供#txt.lsp调用

filetext : dialog { // 对话框名称

label = "常用词组"; // 对话框标识

: row {

: boxed_column {

label = " 索 引 ";

: radio_button {

label = "常用术语"; // 多选一按钮

key = "c1";

value = "1"; // 初始值为"1", 表示选中

}

: radio_button {

label = "图纸名称";

key = "c2";

}

: radio_button {

label = "房间名称";

key = "c3";

}

: radio_button {

label = "卫生器具";

key = "c4";

}

: radio_button {

label = "管材配件";

key = "c5";