|
摘要 [HT5SS]本文提出了一种用对话框实现AutoCAD内常用术语自动标注的方法。用这种方法，可方便地将各种常用术语标注在图中，为CAD应用提供了方便。
. J, T, I6 L& Z5 n 一、引言
7 q1 _6 m/ U1 n" J( [) d$ {3 w 汉字的标注在CAD设计制图中是一个重要的部分，也是一个较为繁琐、困难的部分。目前，在AutoCAD内汉字的输入大多采用拼音方式，对拼音不熟悉的人来说汉字的输入就很困难。如果能将设计中常用的文字术语直观地显示出来供设计人员调用，将会极大地提高工作效率。本文就此进行研究，提出了一种用对话框（下图）将常用术语显示并供调用的方法，同时给出了源程序，供大家参考。该程序已应用于我院的实际生产中。 3 H H, r4 i# L P1 T/ j
+ i0 q6 e) O, R$ e/ ~) m
二、原理及方法
/ s7 ?+ T) S$ { c( F! h9 K AutoCAD对话框结构包含有多种构件，如edit_box(编辑框)、list_box(列表框)、radio_button(多选一按钮)等，利用这些工具，可以开发出界面友好的实用程序。
, A& ~0 ]* j' B# p, p 左图就是用这种方法实现的。将常用词组分类，分别存于不同的文件中。根据多选一按钮中所驱动的分组号分别打开不同的文件，将文件内容读入并显示于列表框内，供设计人员使用。同时，设有一个编辑框，可将所点取的词组显示于编辑框中，便于用户对词组进行适当的修改，如删除或增加字符等。这种方法有一个优点，用户可十分方便地根据自己需要修改或添加词组内容。对话框文件及驱动程序分别见#CAL.DCL及#CAL.LSP。
! t8 N' s# h3 U- r1 R% C0 x$ k三、程序使用方法 & O8 f5 R( h, l8 k6 k
先用WPS、EDIT等编辑程序分类建立词组库（注意，需要存成纯文本格式），每个词组占一行。程序要求将"常用术语"、"图纸名称"、"房间名称"等各分类所对应的词组库文件名分别为$TXT1.DAT、$TXT2.DAT、$TXT3.DAT厖。除第一个文件不能少外，其它文件可空缺，但当点取该分类项时，系统会提示有关文件不存在的信息。 & S! g5 d7 T" 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以后可直接从菜单中驱动该程序。 ' C% ]8 x+ y! g0 j4 N. X
在COMMAND：状态下，键入#TXT后，系统弹出一个对话框，根据需要点取所需的词组类别，再从列表框内选择所需词组。所点取的词组会在编辑框［所选词组］中显示。用户可以在此对词组进行必要的修改，点取［OK］后，根据提示输入字高及起点即可把词组写到图中。
2 ?: ^6 [' @% P; u3 d P需要说明的是，本程序中是将文字以"HZ"字型写到图中，要求字体为TXT.SHX及HZTXT.SHX。若您的软件中无这两种字体，可将其它字体改名为该两种字体（要求一个为英文字体，一个为中文字体），或将程序修改为您所具有的字体。但需要注意，也许您的字体在用于设置字型时会多一个选项，询问是否垂直书写文字，此时，可将字型设置一句改为：(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n" "n")即可。
9 Z; j X( L( U: H9 E9 X X本程序在AutoCAD R12.0 For DOS及For WINDOWS版上均调试通过。 # X2 W+ S0 X9 V, j9 u: D% c$ Q
(defun c:#txt ( / oldcmd olderr ok txt_tb txt dcl_id sty fp nn ht pt txterr diag init wr_txt old_nn)
( ^: P9 V1 G' O6 [: J; 定义错误处理子程序 # r% e5 h% q& k5 t
(defun txterr(s)
+ t- Z" w4 Q9 Y; B(if (and (/= s "console break") ) M# K8 \4 l0 g
(/= s "Function cancelled")
, d1 n+ h! n6 ~, V" E) K(/= s "quit / exit abort")
0 ]9 s9 }! Y( l) + S: W0 S& m( m* B% ]
(princ (strcat "\nError:" s))
5 R( i5 ?2 X: C" u)
! Q. k1 ^0 v1 g4 K4 H+ `2 H(if olderr (setq *error* olderr)); 恢复原系统设置
: f! X/ M2 Z2 H v& y(if oldcmd (setvar "cmdecho" oldcmd))
9 C4 \$ o7 k) t(princ) * J5 T0 W" v" x
) . Q3 t: S# l+ \' h0 Z
; 对话框显示及驱动程序 2 ]6 H. j& T+ N4 M& Z. ~
(defun diag ( / i)
+ e, I# l0 |7 ?7 j0 Z5 ~0 n/ o6 E4 e4 y(if (> (setq dcl_id (load_dialog "#txt")) 0)；加载对话框文件 3 `" f0 Z1 [0 R& v3 A7 G6 W
(progn 5 L. u: e6 S+ j- I0 }
(if (new_dialog "filetext" dcl [JX*6]id); 显示对话框
n! S7 ^2 A: ?(progn start_list "what")；将词组显示到列表框内
7 `9 z5 Y- @; p(mapcar 'add_list txt_tb b, S$ o$ i7 R
)
- @: j& U& l1 a5 t$ k6 P5 G(end_list)
" z* k1 L5 B$ o1 w3 b' z(setq i 1) 0 X: s" k4 J z" A/ n8 w) o5 @
(repeat nn；点取词组分类项后的操作 - I8 N. |4 j* A6 Y
(action_tile (strcat "c" (itoa i)) "(wr_txt)")
4 h6 l# U( X( W$ G5 M$ m(setq i (1+ i))
7 I% ~4 ?+ ~" D8 \: d2 M! n)
! Z5 u: V d4 e a/ T: _, e(action_tile "what" "(setq i (atoi $value))；选中词组
+ P P9 l. M. P4 i1 ?) o/ y(setq txt (nth i txt_tb))(set_tile \"sel_ok\" txt)"
4 d5 p* m' s# P5 }8 m1 ?)
6 B: T9 ~6 K: B(action_tile "sel_ok" "(setq txt $value)")
x6 E* w6 A0 W: V ]8 ~! N9 p(action_tile "accept" "(setq ok T)(done_dialog 1)(unload_dialog dcl_id)") & W4 k$ L: H/ Z4 v
(action_tile "cancel" "(unload_dialog dcl_id)") 5 b2 l u+ B9 U! y3 M [- E' D
(start_dialog) : `0 E4 \% [ n
) % H- U& n! \$ j+ G; {- L! s
(prompt "\n无法显示对话框FILETEXT! 请检查对话框内容!")
+ B0 _, N# L" S4 V+ {9 L5 L/ V) . Y" M8 T' K7 S( N: N: P. B
) & e2 s/ q3 N, b* t; l
(prompt "\n无法加载对话框文件#TXT.DCL! 请检查文件是否存在及路径是否正确!") 0 D2 j/ ^' C) c1 p8 I/ E R
)
2 _; A4 B) _6 ^1 N) 4 V+ m2 B4 `$ O- r' A# c/ G6 x5 b
; 初始化程序, 把第1个分组项中的词组读入表txt_tb中
c; J. g7 _* |(defun init( / fname fp txt1) . X$ }* W9 r4 s& m, C( s4 s( t7 c& L
(setq fname (findfile "$txt1.dat"))
0 f+ B0 D, d( V, O3 v2 G7 p r2 P(if (not fname) 8 ?. h/ \. x0 O4 X2 w+ h( M
(progn (princ "\n文件 $TXT1.DAT 不存在 !") (exit)) ; 文件不存在, 则退出 : U7 z2 u1 z3 C1 @( i1 @
)
3 m( h2 B) q3 A( |$ @+ X(setq fp (open fname "r")) " ?- P8 l1 g7 F* ]
(setq txt_tb '())
: Z4 N: w1 k% ]/ m(while (setq txt1 (read_line fp))
7 J6 K U1 k* Z8 ?+ w8 D1 B(setq txt_tb (cons txt1 txt_tb)) % d4 k/ {9 Z3 K7 }' d) w
)
& i+ G U5 J" W(close fp) 1 g5 C2 w- V4 ?3 o
(setq txt_tb (reverse txt_tb)) 5 Y7 W8 V* F& S: ?0 S
(setq old_nn 1)；记录索引号
8 a0 C2 G$ Z, n7 z4 t% a) % n2 m: r: B% f- y) ?' ]+ M
; 更换列表框内词组显示内容 4 b& F& c) k. `% O" P2 ~. U
(defun wr_txt ( / fname fname1 fp txt1 i) 2 J1 B; C* s& A. C
(setq i 1) # F3 K* d& G+ D: f, L: O" A' ^
(while (<= i nn); 判别哪个词组项被点中 ( X6 X. m+ B( z7 }* M
(if (= (get_tile (strcat "c" (itoa i))) "1") 6 ?' @5 I) j6 U' I4 b
(setq fname1 (strcat "$txt" (itoa i) ".dat")
2 i2 D: F z- e- f+ r% s2 _) Ni nn " N" m) e! g7 l: E5 \" i7 j# `0 E/ ]
) 3 n# E' ?, [8 q8 q3 f7 P9 e
) r# p- W, ~# k; b A
(setq i (1+ i)) $ E; C5 T9 H( H: |0 h
)
- a' q2 M% p6 L& K$ v(if (setq fname (findfile fname1)); 查找文件是否存在
2 A$ U: E2 V8 }- x3 R6 A(progn
2 ~( E0 @: `3 |) F3 f* B% ~(setq old_nn (atoi (substr fname1 5)))；记录索引号 4 M( Y( n5 [" F N9 }4 }; Z7 S7 G
(setq fp (open fname "r")) ; n+ i/ u1 ]5 c/ q
(setq txt_tb '())
/ Z/ x/ `5 a2 Q/ _: d& b(while (setq txt1 (read_line fp))；依次读出各词组 ( d- \1 V) r9 g- w4 ?; B. D& m! ?
(setq txt_tb (cons txt1 txt_tb))
W* _& c- [) {7 H6 L8 W0 Q8 E. ]) 6 l$ l3 ? |/ F2 o# X
(close fp) 5 N6 f, W+ w0 j- D- e8 ]
(setq txt_tb (reverse txt_tb))
& I4 z7 b4 O, J& d$ s; H5 P& A(start_list "what")；在列表框内显示词组内容
& z0 t, N8 M5 }, \* }0 p4 k4 b(mapcar 'add_list txt_tb)
) O6 L9 q/ @- t( v! q+ h9 V1 m+ Y(end_list) ) `# O0 a% ~. \
) ; progn ; R# T# r" n: q
(progn ; S3 l6 g( f. t, A: q
(alert (strcat "文件" fname1 "不存在!"))
5 f( T7 f8 w! ~' l, c(set_tile (strcat "c" (itoa old_nn)) "1")；恢复原记录号
; U/ e6 d1 Z4 V2 U/ k)
4 l! t, g- L! c" S- }) ; if
; S+ }+ @( Z/ K# })
$ N" e- b- _, I/ o. R. k1 G4 q$ N; 主程序开始 4 R; y4 ^) _' t( ~! L; d% n
(setq olderr *error* * K5 A5 `' E4 p+ h4 ]
*error* txterr 6 p7 E, p7 x+ a8 M, ?9 J
oldcmd (getvar "cmdecho") & h3 J7 v4 X. z& R/ C
) 4 b. {2 W4 K* V8 \, K) A2 y
(setvar "cmdecho" 0) ; 命令不回显 $ ^) j+ U2 _* }1 C' D8 `
(setq nn 9) ; 词组分类数 9 V8 Q$ [0 g7 a' j9 X9 i5 z5 R
(init) ; 初始化
$ h1 C3 m( Y* }1 K$ z! C7 Z6 y4 z(diag) ; 驱动对话框
3 r, N$ a5 x( y5 o(if (and ok txt) ) z; ^+ _: G* l3 h- _$ e+ E: I
(progn
, o# v8 \, E- V {1 W5 x(if (or (= (setq sty (tblsearch "STYLE" "HZ")) nil); "HZ"字型是否存在
+ e! t# ]. ^6 ]0 B1 b(/= (cdr (assoc 40 sty)) 0) ; 字高是否为定值
' Y+ g% r8 F- v6 t(/=(getvar "TEXTSTYLE") "HZ"); 当前字型是否为"HZ"
, q" ~8 s# R1 i; u% f, q5 Y# {)
0 i# m5 N( z: C6 ](command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n") ; 设置"HZ"字型
: q* \; J) F# ^* P2 o) 3 p! ?% G- R7 s/ D6 ]1 ?
(initget (+ 2 4))；下面的输入值要求大于0
9 L5 F$ }: W$ a- E/ N(setq ht (getreal "\n请输入字高<500>:")) 5 B1 d o4 A1 v7 Y, o& ~' n
(if (not ht) (setq ht 500))
" G* G+ {4 p6 \6 \(setq pt (getpoint "\n请点取文字起点:")) ( W' R H, X; l O/ p; I c$ \ D9 M
(command "text" pt ht 0 txt)
4 w. ?) ]) P0 K$ ]% t9 I8 M Q5 \) 5 W# P& E$ E& q7 }$ p0 u
) / @* e* z. e9 m
(setq *error* olderr)；恢复原设置
8 ~+ Q( e" N) y( v$ e( s2 D* l3 d(setvar "cmdecho" oldcmd)
: a/ p1 ]8 M% G U$ l2 x(princ) . q# N' _2 {2 E8 ]) V& R2 b
)
, F# n! g& m4 e, A( S" q// #txt.dcl 2 n) o1 T5 L3 Y$ Y/ e9 Z
// 供#txt.lsp调用 3 X& f8 n2 y* ~) h( M4 o: @
filetext : dialog { // 对话框名称
1 W0 |( R: ~( b2 d* M* R" Alabel = "常用词组"; // 对话框标识
# h. W, _( m5 ~4 m9 h% |: row { * a% }0 u$ G; n( a, M
: boxed_column {
/ B) Y1 X9 q) I9 j0 R" n/ q0 ^label = " 索 引 ";
4 n5 v' m4 t8 P3 u0 z a- u: radio_button {
* V" m, p3 q( a" Z5 Nlabel = "常用术语"; // 多选一按钮
, Z) m3 @* U# y: F% U1 e1 Lkey = "c1";
" E1 g# }/ \( Evalue = "1"; // 初始值为"1", 表示选中 . S a" W8 g& c8 X7 {8 J4 f( x0 U6 p
} : r6 ^* k! p z
: radio_button {
- s: Z1 C0 i k& ^$ Dlabel = "图纸名称"; : Z' V2 j0 ~; ^1 L, k
key = "c2"; ' F4 A5 x. i5 C# g, ^3 W
}
) }9 ~' |* b+ q: u! e) N: radio_button { 6 N, w& X/ X) g4 R2 R
label = "房间名称"; & Z7 I n8 N6 D7 ?+ J
key = "c3"; 1 E# K" O2 @3 s9 S
} % X2 r- m" t9 d
: radio_button { ; {" {( G8 E" r+ [7 Z6 n! u' H7 g
label = "卫生器具"; 6 Y' p3 `4 s; g8 P8 g' e
key = "c4"; 3 p' z% _% x- ]9 W1 H& P+ Q
}
, v3 M$ h& B: H' }: radio_button {
9 E9 ~( Q- t% d/ ]% I! |2 \. F/ dlabel = "管材配件"; 8 ~* r+ V7 O8 [5 P' f/ Z
key = "c5"; * J5 A* r( o4 D$ u& g
} 2 l( I2 P* p8 J5 Z3 O4 U. q6 Z
: radio_button {
4 k1 a7 X/ A S9 n8 F5 dlabel = "器材仪表";
9 `/ e- g6 Y% H& b( X" R: a, pkey = "c6"; 1 \# E$ A! Y- x& Q
}
+ ~* P T- |- t& C2 q5 z* ]: radio_button {
! Q: {3 Z" h9 e5 klabel = "常用设备"; ) c6 m1 b( l. Q5 \
key = "c7"; 9 b( B( m; w( |0 s+ m' ?7 ^
} % }8 c4 R% J. ^6 p: k/ E- N7 l
: radio_button { + n9 b8 p; F' `$ @' o
label = "构筑物";
: B. x* s6 H. A3 e. d( Bkey = "c8";
2 a% N- D* r" @- G" |} 4 C$ F- N: M8 y
: radio_button {
" h8 t3 [5 s7 Nlabel = "其它";
/ l5 u6 x4 j7 N' v Okey = "c9";
9 [4 H& J- Q/ g6 v9 ~% I. e% p} # d0 y3 B% h8 C& ]" V2 s+ `
}
0 X8 O4 F3 ?- ]$ t) v8 J7 @: list_box { 8 n- {9 {6 N- ?6 n: q* k
label = "词组内容";
l, ]; D9 C7 Z6 C( vkey = "what";
' B# Q9 v/ p6 U E; [- I0 B: E! Theight = 15; 0 v8 s! V2 G9 [) k N
width = 26;
+ ^# G" W1 r. o/ ] P4 L7 yallow_accept = true; // 可双击鼠标选取 9 n( R2 C! |" r' r
} % L: H8 |# a. d
} ) |9 [, O4 @, J5 x8 i
spacer_1; 1 g' `5 v' H5 K+ e
: edit_box {// 编辑框 ' @# k' _( n) k
label = "所选词组:";
, K" R+ ?( Y: J& `: \) [4 Mkey = "sel_ok";
: R' a) Y+ u2 r8 I% D2 d} + G9 C+ H8 y, @& ~ b, W. c
spacer_1;// 增加间距
* c$ Z6 E2 q. a# jok_cancel;
" [3 B5 \3 y8 K1 l+ T# r$ q} | 
发表于 2006-8-29 08:47:37
