|
摘要 [HT5SS]本文提出了一种用对话框实现AutoCAD内常用术语自动标注的方法。用这种方法，可方便地将各种常用术语标注在图中，为CAD应用提供了方便。
+ F% z2 o6 O% I$ A! s; T6 Y, o 一、引言 - d# h& Y2 s1 B. Q( p/ A# r
汉字的标注在CAD设计制图中是一个重要的部分，也是一个较为繁琐、困难的部分。目前，在AutoCAD内汉字的输入大多采用拼音方式，对拼音不熟悉的人来说汉字的输入就很困难。如果能将设计中常用的文字术语直观地显示出来供设计人员调用，将会极大地提高工作效率。本文就此进行研究，提出了一种用对话框（下图）将常用术语显示并供调用的方法，同时给出了源程序，供大家参考。该程序已应用于我院的实际生产中。 : X( o J: L+ Z6 j# D2 a& ~% x
; X4 E/ X1 P% v2 t) h! Y
二、原理及方法
9 {% Z* Q1 j) H AutoCAD对话框结构包含有多种构件，如edit_box(编辑框)、list_box(列表框)、radio_button(多选一按钮)等，利用这些工具，可以开发出界面友好的实用程序。 8 n$ l' P! a" Q: d/ G0 A& j5 q B
左图就是用这种方法实现的。将常用词组分类，分别存于不同的文件中。根据多选一按钮中所驱动的分组号分别打开不同的文件，将文件内容读入并显示于列表框内，供设计人员使用。同时，设有一个编辑框，可将所点取的词组显示于编辑框中，便于用户对词组进行适当的修改，如删除或增加字符等。这种方法有一个优点，用户可十分方便地根据自己需要修改或添加词组内容。对话框文件及驱动程序分别见#CAL.DCL及#CAL.LSP。
! x! h( }/ H/ v1 i6 g三、程序使用方法
1 w8 p4 B, X! J" v0 P先用WPS、EDIT等编辑程序分类建立词组库（注意，需要存成纯文本格式），每个词组占一行。程序要求将"常用术语"、"图纸名称"、"房间名称"等各分类所对应的词组库文件名分别为$TXT1.DAT、$TXT2.DAT、$TXT3.DAT厖。除第一个文件不能少外，其它文件可空缺，但当点取该分类项时，系统会提示有关文件不存在的信息。 . ?: p; y5 V4 d# i
然后将所建立的词组库文件及所提供的程序#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以后可直接从菜单中驱动该程序。 - e h" h9 ~1 B j1 A
在COMMAND：状态下，键入#TXT后，系统弹出一个对话框，根据需要点取所需的词组类别，再从列表框内选择所需词组。所点取的词组会在编辑框［所选词组］中显示。用户可以在此对词组进行必要的修改，点取［OK］后，根据提示输入字高及起点即可把词组写到图中。
' U( \8 Y+ e0 [# A% n# k( h需要说明的是，本程序中是将文字以"HZ"字型写到图中，要求字体为TXT.SHX及HZTXT.SHX。若您的软件中无这两种字体，可将其它字体改名为该两种字体（要求一个为英文字体，一个为中文字体），或将程序修改为您所具有的字体。但需要注意，也许您的字体在用于设置字型时会多一个选项，询问是否垂直书写文字，此时，可将字型设置一句改为：(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n" "n")即可。 7 ]6 d* ]! L$ T4 ]. @ a: N# \9 r
本程序在AutoCAD R12.0 For DOS及For WINDOWS版上均调试通过。 ! [. F! X4 d' c( ]2 k/ E, o+ M
(defun c:#txt ( / oldcmd olderr ok txt_tb txt dcl_id sty fp nn ht pt txterr diag init wr_txt old_nn)
: c" d# {/ w6 `! f) l; 定义错误处理子程序 7 ^% ^$ I6 Y; _" I, K/ U5 ~
(defun txterr(s)
( \7 c$ q+ b Z. ^( G E(if (and (/= s "console break") ' a2 Q/ R q1 l/ s: ^; ?7 X
(/= s "Function cancelled")
0 H( Z" M: h' a" b' o$ `7 Y(/= s "quit / exit abort")
% ^- E; p9 M1 O5 C)
4 K5 }, M6 E! b6 a% j. e5 L(princ (strcat "\nError:" s)) ( p4 g' b. q! U2 U
) ) I' w7 l$ A- L5 S: a& N0 T
(if olderr (setq *error* olderr)); 恢复原系统设置
3 X) R1 v% d- Q6 a) a+ `( J(if oldcmd (setvar "cmdecho" oldcmd))
0 d {; V: m2 w3 z$ N {1 N7 s, B, @2 S(princ) 6 b5 @8 n9 v. h
)
- H8 ]3 E- G" C; L6 `; 对话框显示及驱动程序
, z/ e) ^$ a- a) E. ]- F: s; _' }(defun diag ( / i) * S4 Q0 ?& G+ }( z! S+ X: l
(if (> (setq dcl_id (load_dialog "#txt")) 0)；加载对话框文件 , F* n& M0 d5 w
(progn
, U- ]* D: J0 v, m( J6 H) S(if (new_dialog "filetext" dcl [JX*6]id); 显示对话框 % N# Q: X9 n) X* I5 {9 U0 b6 ~
(progn start_list "what")；将词组显示到列表框内 ; C1 H) k3 t1 W; b, q
(mapcar 'add_list txt_tb
. `0 o2 P9 M& J. b/ T: u7 R, f)
d; P8 {! S6 R(end_list)
) n2 w3 z5 p {; B6 Q: b0 Q. [1 l3 d(setq i 1)
$ Y/ D$ d, {! ?/ ^(repeat nn；点取词组分类项后的操作 , y E* G, |+ u1 H9 j
(action_tile (strcat "c" (itoa i)) "(wr_txt)") 8 s: }" f% m$ ], A
(setq i (1+ i))
: P' J) z0 e$ Q# J! _) * h) c: G1 ~" E M* A& n
(action_tile "what" "(setq i (atoi $value))；选中词组 & g! H* t: r) V3 m
(setq txt (nth i txt_tb))(set_tile \"sel_ok\" txt)" , g5 a9 R" J% K
)
s# |. R6 u; i4 ^(action_tile "sel_ok" "(setq txt $value)") : C! M2 E1 S! C; ^ k
(action_tile "accept" "(setq ok T)(done_dialog 1)(unload_dialog dcl_id)")
: q3 R' g# e2 N B* `(action_tile "cancel" "(unload_dialog dcl_id)")
! q8 _4 K1 B2 {8 {(start_dialog)
& F; o! H' z! e# V4 Y( v) 3 S( B( C9 P& q- F5 `7 S% Z- J
(prompt "\n无法显示对话框FILETEXT! 请检查对话框内容!") 4 k& a( B2 u- V$ @) s I
)
( r) {! v, j$ a, @8 f)
% a1 a/ o/ x& Q/ w3 [8 `, C* N7 x(prompt "\n无法加载对话框文件#TXT.DCL! 请检查文件是否存在及路径是否正确!")
) J6 j, K8 [5 L6 x+ b6 W, |8 L+ ^) / a0 a% s9 S! X; b1 e& B
)
1 n# J; |0 D' u; 初始化程序, 把第1个分组项中的词组读入表txt_tb中
! N5 g1 O( O B2 C# `7 Z( `(defun init( / fname fp txt1)
2 h; Y, G: K) W8 W+ K& }(setq fname (findfile "$txt1.dat")) 0 R! B: H3 X; r, k/ b% |. ?
(if (not fname) 4 i/ z% e; T0 O6 s9 K+ D
(progn (princ "\n文件 $TXT1.DAT 不存在 !") (exit)) ; 文件不存在, 则退出 6 S+ ^6 x. @4 U0 f8 O. i, _
) ; F( F( m. S9 J
(setq fp (open fname "r"))
) j4 ~& F: n* \! O8 Q! R2 \(setq txt_tb '())
8 w& N3 z1 h3 q4 e9 M. M(while (setq txt1 (read_line fp))
, k; G) z0 ]9 W(setq txt_tb (cons txt1 txt_tb))
7 V T0 e, |$ L* |0 w: K) 4 \5 A9 P/ E) t0 G2 _) p6 ]
(close fp)
! U- C U& K2 T. E3 y6 g(setq txt_tb (reverse txt_tb)) f% Q7 A! y7 c. r3 T
(setq old_nn 1)；记录索引号
1 K U7 y9 y+ b# u& c1 j)
8 g9 f2 _5 A# c7 O }; 更换列表框内词组显示内容
* m/ N( \3 R( n" @; y& e. n% s(defun wr_txt ( / fname fname1 fp txt1 i) , Z j5 \2 I4 p' V4 q) b
(setq i 1) 7 K2 c6 }, E) y" l$ J. p: c: w' j N
(while (<= i nn); 判别哪个词组项被点中 * l; U* G0 I( z$ R* v! _% C. f
(if (= (get_tile (strcat "c" (itoa i))) "1")
/ y: r/ Z; z- b ]6 _(setq fname1 (strcat "$txt" (itoa i) ".dat")
[# m/ S& [5 h+ l: wi nn 7 S1 h) U# k' U
) . w; m" B7 h' n4 w
) . }- w) P* U$ @8 X# q
(setq i (1+ i))
8 X7 j) V% V: |+ h7 A& z" a* v$ O)
8 c+ o; V/ @" N* j" `(if (setq fname (findfile fname1)); 查找文件是否存在
1 t" ?0 ?/ W- L3 d4 n0 }9 Q(progn
. r. R, d( G. F) o8 a8 w* v# Q(setq old_nn (atoi (substr fname1 5)))；记录索引号 % n6 {+ H1 E; U9 a5 o S
(setq fp (open fname "r")) / x. f& A3 j4 B2 b
(setq txt_tb '()) / W# W8 b% {" T5 |* W& E
(while (setq txt1 (read_line fp))；依次读出各词组
+ P9 w+ a; [$ b(setq txt_tb (cons txt1 txt_tb))
2 U: K7 s) O: M) w2 \)
6 c' |* t1 m! K( ^ Q/ U& q+ K% O' B G(close fp) ) V& z$ d4 z8 b, |
(setq txt_tb (reverse txt_tb)) , P1 n( l. y$ d5 A7 ?
(start_list "what")；在列表框内显示词组内容
4 W+ |; b' \9 i m4 T0 d(mapcar 'add_list txt_tb)
% u- W5 g- s+ I; r% u(end_list)
' t! \6 E# F6 v, v4 V) ; progn
6 A2 {4 A/ F; Q0 a+ e- a, K(progn 5 [) n# s7 Y# U& A5 o
(alert (strcat "文件" fname1 "不存在!"))
/ ^* {; o) Z9 m- _; |0 P(set_tile (strcat "c" (itoa old_nn)) "1")；恢复原记录号 ' S# r9 y, Y9 i, j: N: J
)
% z! [( p% ^3 T$ O) ; if
4 }0 q" w ]1 U: x8 p3 y) 5 I9 ]& Q1 Y7 W* J
; 主程序开始 ! f$ U! [, R9 L/ O; ]
(setq olderr *error* 1 p( n# M+ a$ V4 C# J+ ]
*error* txterr
3 q& k# M7 s) y* G2 U: v5 p' Qoldcmd (getvar "cmdecho")
0 C& F# B( {$ }4 i' a! a5 t; M) * [ q1 R1 n+ L- N' \2 H
(setvar "cmdecho" 0) ; 命令不回显 8 I+ a h5 B9 d
(setq nn 9) ; 词组分类数 - V' f0 ^0 e+ U A8 c0 u% N
(init) ; 初始化 9 u! w/ v8 O) o6 @- h6 T# V
(diag) ; 驱动对话框 6 z2 [5 |% B/ C Q! h# P9 }# T
(if (and ok txt) " o; W9 |3 d2 m
(progn ! v, m6 L; v" P& E! ]9 ]) @* D) m; s
(if (or (= (setq sty (tblsearch "STYLE" "HZ")) nil); "HZ"字型是否存在 & }) d f3 X% U; D$ X
(/= (cdr (assoc 40 sty)) 0) ; 字高是否为定值
# }% i: `9 {4 n. r(/=(getvar "TEXTSTYLE") "HZ"); 当前字型是否为"HZ"
; `) X2 r" Z- r# y) - l7 r7 b3 p" z* t1 O5 U* C
(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n") ; 设置"HZ"字型 : _) `4 O0 [" S' a; J# T3 }1 P n5 f
) ; y) {* l4 o5 q+ x
(initget (+ 2 4))；下面的输入值要求大于0
: c$ n% r1 b+ i0 G5 \( x4 p(setq ht (getreal "\n请输入字高<500>:")) ! @3 A9 p' c1 X# o0 w" ~
(if (not ht) (setq ht 500))
. o" |' G2 H8 \# G- ]1 R) }(setq pt (getpoint "\n请点取文字起点:"))
# ?5 B5 x3 R8 U5 Z1 _(command "text" pt ht 0 txt) * V$ I6 P% A9 G4 O: X, C
)
* t, U2 l6 j3 Q# J: j& L)
8 L) X- m3 \4 ?; Q6 X- ^(setq *error* olderr)；恢复原设置 & g! G3 b3 `6 W- S" {. A1 n4 T
(setvar "cmdecho" oldcmd) 3 D- u, p5 X# B2 v' Y+ Q
(princ)
' b& |+ @9 y- L& Z) $ ?5 } g. I$ Y" D/ p: v7 E
// #txt.dcl ( I+ d8 U2 f0 ^2 i- T
// 供#txt.lsp调用 ) M- |: X& i" x: u) o. f
filetext : dialog { // 对话框名称
J2 d/ l [+ S1 r i" r- R3 l5 q0 Zlabel = "常用词组"; // 对话框标识 % I( v; @5 S5 S6 w3 f' z" O
: row { & R. a, R+ k' B9 s! |; g
: boxed_column { $ u. a0 y/ j. M9 w
label = " 索 引 "; 7 B1 u+ s2 L+ t/ \' k7 D
: radio_button { % V( x8 e. k$ i l+ a& p' B$ T
label = "常用术语"; // 多选一按钮 7 k1 \; T# f: {: i! h$ Z4 P+ z
key = "c1";
1 `, d6 Y3 Y! l" K2 `* s6 Ivalue = "1"; // 初始值为"1", 表示选中
; b: i) W& S2 X6 E% E7 m" v} " O% D. I, _- F+ F' l
: radio_button { . m8 o# I1 _" j7 ~/ d; `% O3 D
label = "图纸名称"; + J! }& n0 Y5 K% F- I
key = "c2"; 7 p: F' s9 M. \% C' ^0 q( v% z0 I
}
& Y0 p; f4 o8 D- P) \- P' @+ e: radio_button {
# h+ [: v3 ]8 W5 E& E d1 Llabel = "房间名称";
; b5 ?5 W8 v% A0 g7 Kkey = "c3";
) G5 A% I, F# y' n} " b2 Y/ _% z- m1 Z" B
: radio_button {
, ]8 |8 x8 @. T+ @" s; p6 r: llabel = "卫生器具";
" B/ ~4 p$ ?! k0 F3 ?& Y8 Q7 K2 D, ikey = "c4";
L6 x. q" b3 _) D& f}
5 r2 g7 }2 y @7 |, J: radio_button {
* C8 ?7 A+ H; G$ m2 x3 p( k1 Z* Hlabel = "管材配件"; - {: g) P7 \" \$ `
key = "c5";
6 M, z$ }# c) o) x6 \} 1 s* a. j! S [
: radio_button { " Z1 v& L. i: k# f2 j' i. m
label = "器材仪表";
8 P$ _4 S$ |& X; ?key = "c6"; , `" r, {$ u: W) w
} 4 |2 }) n3 b% U. |
: radio_button { 0 \9 h e" ~; _( p: i1 S2 r. w) W
label = "常用设备"; * Q) `$ n x2 n; R: s8 o
key = "c7";
0 F: d$ `% G2 C8 k; r% Q}
3 J- K& Z0 [: c1 R: radio_button {
" H( ]3 W3 P X9 mlabel = "构筑物"; 5 I4 @4 [, T% V) p+ K x( _& R! O
key = "c8";
5 [- O% p. q- K( Y( k}
- b( z0 j6 q$ }: radio_button {
1 a' ~6 K" X9 c4 P% olabel = "其它"; ( [4 s; B/ |7 g/ F0 z6 n* _# \
key = "c9";
8 P9 m8 P" o+ R) B% C% n% A; {# p( v( y} 2 g" \; v9 U% a' {! u
} r9 H, l8 K" K `( G
: list_box { & r0 f5 o% w9 `$ j" d2 t1 v
label = "词组内容"; ; r1 B2 Z4 c. j( m3 G
key = "what"; z: n2 q U+ i0 G% m
height = 15;
+ ]; R0 N; S/ j# }width = 26;
+ O: d' r7 X5 j, Z. \allow_accept = true; // 可双击鼠标选取 ) y/ x0 E& e' t
}
" e3 c) G l5 O# Q}
6 c) T3 L2 [0 _) ^& X Kspacer_1;
# N7 ]2 y* g/ i2 o2 _: edit_box {// 编辑框 - Y; a; ~, M7 C6 g% E" w
label = "所选词组:";
- {) H. R$ V% K" V$ t u% Ckey = "sel_ok"; 8 l+ K, }5 O i
} 5 M$ p$ Y. r Q% N' V0 K
spacer_1;// 增加间距
4 f' U1 }0 o/ S3 a# _3 H: d! b+ cok_cancel;
, Q4 z# V4 Y8 t& ^; k2 ?} | 
发表于 2006-8-29 08:47:37
