本文提出了一种用对话框实现AutoCAD内常用术语自动标注的方法。用这种方法,可方便地将各种常用术语标注在图中,为CAD应用提供了方便。 I`p;F!s
D#)b+7N-
一、引言 $tS}LN_!
NgCvVWto
汉字的标注在CAD设计制图中是一个重要的部分,也是一个较为繁琐、困难的部分。目前,在AutoCAD内汉字的输入大多采用拼音方式,对拼音不熟悉的人来说汉字的输入就很困难。如果能将设计中常用的文字术语直观地显示出来供设计人员调用,将会极大地提高工作效率。本文就此进行研究,提出了一种用对话框(下图)将常用术语显示并供调用的方法,同时给出了源程序,供大家参考。该程序已应用于我院的实际生产中。 /H==Hm/
/FJu)H..U
二、原理及方法 6MkP |vr6
BVO<e \>3
AutoCAD对话框结构包含有多种构件,如edit_box(编辑框)、list_box(列表框)、radio_button(多选一按钮)等,利用这些工具,可以开发出界面友好的实用程序。 Tu 7QCr5*
09Cez\0
左图就是用这种方法实现的。将常用词组分类,分别存于不同的文件中。根据多选一按钮中所驱动的分组号分别打开不同的文件,将文件内容读入并显示于列表框内,供设计人员使用。同时,设有一个编辑框,可将所点取的词组显示于编辑框中,便于用户对词组进行适当的修改,如删除或增加字符等。这种方法有一个优点,用户可十分方便地根据自己需要修改或添加词组内容。对话框文件及驱动程序分别见#CAL.DCL及#CAL.LSP。 O1mKe%'|
WeiFmar
三、程序使用方法 >e"#'K0?\
jalg5`PU0
先用WPS、EDIT等编辑程序分类建立词组库(注意,需要存成纯文本格式),每个词组占一行。程序要求将"常用术语"、"图纸名称"、"房间名称"等各分类所对应的词组库文件名分别为$TXT1.DAT、$TXT2.DAT、$TXT3.DAT厖。除第一个文件不能少外,其它文件可空缺,但当点取该分类项时,系统会提示有关文件不存在的信息。 ;d9QAN&0}
IB7E}56l
然后将所建立的词组库文件及所提供的程序#TXT.LSP和对话框文件#TXT.DCL拷贝到AutoCAD所能找到的目录(环境变量ACAD所设置的任一目录如ACAD\SUPPORT或当前目录)中,在Command:命令下键入(LOAD "#TXT")进行程序的加载,即可象其它AutoCAD内部命令一样使用#TXT了。也可在所使用的菜单文件(如ACAD.MNU)中的下拉式菜单或屏幕菜单部分加上下面一行:[常用词组]^C^C^P(if (null c:#txt) (load"#txt")) #txt以后可直接从菜单中驱动该程序。
U`m54f@U
W{gb:^;zb
在COMMAND:状态下,键入#TXT后,系统弹出一个对话框,根据需要点取所需的词组类别,再从列表框内选择所需词组。所点取的词组会在编辑框[所选词组]中显示。用户可以在此对词组进行必要的修改,点取[OK]后,根据提示输入字高及起点即可把词组写到图中。 1y4
7Rt9od<
)!
需要说明的是,本程序中是将文字以"HZ"字型写到图中,要求字体为TXT.SHX及HZTXT.SHX。若您的软件中无这两种字体,可将其它字体改名为该两种字体(要求一个为英文字体,一个为中文字体),或将程序修改为您所具有的字体。但需要注意,也许您的字体在用于设置字型时会多一个选项,询问是否垂直书写文字,此时,可将字型设置一句改为:(command "STYLE" k)Qtfj}uij
*`RkTcG
"HZ" "txt,hztxt" 0 0.7 0 "n" "n" "n")即可。 H'hpEwG
o.l-7
本程序在AutoCAD R12.0 FOR DOS及FOR WINDOWS版上均调试通过。 \;"=QmRD%:
Vy,DN~ag
(defun c:#txt ( / oldcmd olderr ok txt_tb txt dcl_id sty fp nn ht pt txterr diag init wr_txt old_nn) 9p2&)kb6
d{7+w/Zi
;定义错误处理子程序 xlg9TvvI
igR";OQk
(defun txterr(s) [1
9,&]z
7x4PaX(
(if (and (/= s "console break") Np0u,t%vs
46&/gehr
(/= s "Function cancelled") 0s2v'A[\
P}7 'm
M
(/= s "quit / exit abort") :zF,A,)
.xWC{}7[
) -pXSSa;O9
b`O'1r\Y;
(princ (strcat "\nError:" s)) /C G"]!2 "
)f<z%:I+Z
) }@+:\
exUu7&*:
(if olderr (setq *error* olderr));恢复原系统设置 ,>mrPtxN
xx%j.zDI]
(if oldcmd (setvar "cmdecho" oldcmd)) SJ>vwmA4
^qD$z=z-
(princ) 'u |c
v<(
) P! #[mio
BeoDKdAwY
;对话框显示及驱动程序 l&Q`wR5e
Vt&2z)Zz
(defun diag ( / i) 8&`LYdzt
r:ptQo`1-
(if (> (setq dcl_id (load_dialog "#txt")) 0);加载对话框文件 l#Y,R 0
e [mm
(progn Q:k}Jl
FZslv"F
(if (new_dialog "filetext" dcl [JX*6]id);显示对话框 ;P%1j| 7
{:$>t~=D
(progn start_list "what");将词组显示到列表框内 PKg@[<g43
|_aa&v~
(mapcar 'add_list txt_tb &H/'rd0M
CD( :jM?
) 65$+{s
ofw3S|F6
(end_list) * kDC liL
Fgh_9S9J
(setq i 1) %%gc2s
c?[I?ytl
(repeat nn;点取词组分类项后的操作 ;LSANr&
co|aC!7
(action_tile (strcat "c" (itoa i)) "(wr_txt)") ;dZZ;#k%
tm RXgTS
(setq i (1+ i)) ARwD~Tr
a>I+]`g
) ryUQU^v
c"V"zg22
(action_tile "what" "(setq i (atoi $value));选中词组 BdblLUGK#
O$j7i:G'5
(setq txt (nth i txt_tb))(set_tile \"sel_ok\" txt)" RF4vtQC=
'RYIW/a
) YdC6k?tzS
3z9d!I^>k
(action_tile "sel_ok" "(setq txt $value)") n QZwC
>kDQkhZ
(action_tile "accept" "(setq ok T)(done_dialog 1)(unload_dialog dcl_id)") VfC <WVYiZ
}DfshZ0QM
(action_tile "cancel" "(unload_dialog dcl_id)") [KaAXv
.X
ipgC RHE
(start_dialog) {xB!EQ"
s;Z\Io
) suiS&$-E
.A{tQ1&_
(prompt "\n无法显示对话框FILETEXT!请检查对话框内容!") Ed,~1GanY
pVw}g@<M
) ju8q?Nyhs
pF:$
ko
) 9gEwh<
yyRiP|hJ
(prompt "\n无法加载对话框文件#TXT.DCL!请检查文件是否存在及路径是否正确!") z] PSpUd
E}Z/*lX
) vkd.)x`J,
%D}kD6=
) (%e.:W${
_j/<{vS y
;初始化程序,把第1个分组项中的词组读入表txt_tb中 O%zU-_|*
tip+q d
(defun init( / fname fp txt1) mD0f<gJ1
o_Z5@F
(setq fname (findfile "$txt1.dat")) K'Tm_"[u
%.Fi4}+O
(if (not fname) H*&f: