词组]中显示。用户可以在此对词组进行必要的修改,点取[OK]后,根据提 示输入字高及起点即可把词组写到图中。 需要说明的是,本程序中是将文字以"Hz"字型写到图中,要求字体为 TXTSHX 及 HZTXT SHX。若您的软件中无这两种字体,可将其它字体改名为该两种字体 (要求一个为英文字体,一个为中文字体),或将程序修改为您所具有的字体 但需要注意,也许您的字体在用于设置字型时会多一个选项,询问是否垂直书写 文字,此时,可将字型设置一句改为:( command" STYLE""Hz" txt hztxt"007 0"n"n"n")即可 本程序在 AutoCAD120 FOR DOS及 FOR WINDOWS版上均调试通过。 (defun c *txt(/oldcmd older ok txt tb txt dcl id sty fp nn ht pt txterr diag init wr txt old nn) 定义错误处理子程序 (defun terr(s) (if (and(=s"console break") (=S"Function cancelled") (=S quit/exit abort") (princ(strcat"n Error: S) (if older(setq'eror* older);恢复原系统设置 (if oldcmd(setvar"cmdecho"oldcmd) (princ) 对话框显示及驱动程序 defun diag(/i Gf(>( setq dcl id( oad dialog"#xt")0);加载对话框文件 f( new dialog" filetext"dcl[X'6]jd);显示对话框 ( progn start list"wha);将词组显示到列表框内 (mapcar add list tt tb (end list) (setq i 1 repeat nn;点取词组分类项后的操作 ction tile(strcat"c"(itoa i)"(wr_ txt)") (setq i (1+ i)) ( action tile"what"( setq i( atoi Sva|ue);选中词组 (setq tt( nth i tt tb))(set tile V"sel okl"txt) (action tile"sel ok"(setq txt Svalue)") (action tile"accept"(setq ok t(done dialog 1(unload dialog dcl id)") (action tile"cancel"(unload dialog dcl id)") (start dialog) ( prompt"n无法显示对话框 FILETEXT!请检查对话框内容r) ( prompt"n无法加载对话框文件# IXLDCL!请检查文件是否存在及路径是否正 确r词组］中显示。用户可以在此对词组进行必要的修改，点取［OK］后，根据提 示输入字高及起点即可把词组写到图中。 需要说明的是，本程序中是将文字以"HZ"字型写到图中，要求字体为 TXT.SHX 及 HZTXT.SHX。若您的软件中无这两种字体，可将其它字体改名为该两种字体 （要求一个为英文字体，一个为中文字体），或将程序修改为您所具有的字体。 但需要注意，也许您的字体在用于设置字型时会多一个选项，询问是否垂直书写 文字，此时，可将字型设置一句改为：(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n" "n")即可。 本程序在 AutoCAD R12.0 FOR DOS 及 FOR WINDOWS 版上均调试通过。 (defun c:#txt ( / oldcmd olderr ok txt_tb txt dcl_id sty fp nn ht pt txterr diag init wr_txt old_nn) ; 定义错误处理子程序 (defun txterr(s) (if (and (/= s "console break") (/= s "Function cancelled") (/= s "quit / exit abort") ) (princ (strcat "\nError:" s)) ) (if olderr (setq *error* olderr)); 恢复原系统设置 (if oldcmd (setvar "cmdecho" oldcmd)) (princ) ) ; 对话框显示及驱动程序 (defun diag ( / i) (if (> (setq dcl_id (load_dialog "#txt")) 0)；加载对话框文件 (progn (if (new_dialog "filetext" dcl [JX*6]id); 显示对话框 (progn start_list "what")；将词组显示到列表框内 (mapcar 'add_list txt_tb ) (end_list) (setq i 1) (repeat nn；点取词组分类项后的操作 (action_tile (strcat "c" (itoa i)) "(wr_txt)") (setq i (1+ i)) ) (action_tile "what" "(setq i (atoi $value))；选中词组 (setq txt (nth i txt_tb))(set_tile \"sel_ok\" txt)" ) (action_tile "sel_ok" "(setq txt $value)") (action_tile "accept" "(setq ok T)(done_dialog 1)(unload_dialog dcl_id)") (action_tile "cancel" "(unload_dialog dcl_id)") (start_dialog) ) (prompt "\n 无法显示对话框 FILETEXT! 请检查对话框内容!") ) ) (prompt "\n 无法加载对话框文件#TXT.DCL! 请检查文件是否存在及路径是否正 确!")