oldcmd(getvar"cmdecho") ( setvar" cmdecho"0);命令不回显 ( setq nn9);词组分类数 ni;初始化 (diag);驱动对话框 (if (and ok txt) (progn Gf(or(=( setq sty( bisearch" STYLE""Hz")ni);"Hz"字型是否存在 (=cdr( assoc40sty)0);字高是否为定值 (= getvar" TEXTSTYLE")"Hz");当前字型是否为"Hz ( command" STYLE""Hz"thzb"00.70"n"n");设置"Hz"字型 midget(+24):下面的输入值要求大于0 ( setq ht( getreal"n请输入字高<500>:") (if (not ht(setq ht 500) ( setq pt(getpoint"vn请点取文字起点:) command"text" pt ht o tt ( set error* older);恢复原设置 (setvar "cmdecho"oldcmd) (princ) ∥#tdc ∥供#tlsp调用 filetext: dialog{∥对话框名称 labe="常用词组";∥对话框标识 boxed column labe="索引"; radio button i labe="常用术语";∥多选一按钮 value="1";∥初始值为"1",表示选中 radio buton label="图纸名称 key ="C2 radio button labe="房间名称" k radio buton i labe="卫生器具"; key=c4 radio_ buttonoldcmd (getvar "cmdecho") ) (setvar "cmdecho" 0) ; 命令不回显 (setq nn 9) ; 词组分类数 (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 {