摘要 [HT5SS]本文提出了一种用对话框实现AutoCAD内常用术语自动标注的方法。用这种方法,可方便地将各种常用术语标注在图中,为CAD应用提供了方便。 8 B5 T. j6 [! L7 o% Q& E6 @
一、引言
8 ^: r5 O1 Q: R l- y* r1 o- V% K 汉字的标注在CAD设计制图中是一个重要的部分,也是一个较为繁琐、困难的部分。目前,在AutoCAD内汉字的输入大多采用拼音方式,对拼音不熟悉的人来说汉字的输入就很困难。如果能将设计中常用的文字术语直观地显示出来供设计人员调用,将会极大地提高工作效率。本文就此进行研究,提出了一种用对话框(下图)将常用术语显示并供调用的方法,同时给出了源程序,供大家参考。该程序已应用于我院的实际生产中。
# a0 x' w2 s, r, \* J$ N2 J
, r) o6 i/ L9 q/ w, \二、原理及方法
# _$ \% }0 e ^+ k. ~ AutoCAD对话框结构包含有多种构件,如edit_box(编辑框)、list_box(列表框)、radio_button(多选一按钮)等,利用这些工具,可以开发出界面友好的实用程序。
/ M1 E+ e' F, K% a& Q 左图就是用这种方法实现的。将常用词组分类,分别存于不同的文件中。根据多选一按钮中所驱动的分组号分别打开不同的文件,将文件内容读入并显示于列表框内,供设计人员使用。同时,设有一个编辑框,可将所点取的词组显示于编辑框中,便于用户对词组进行适当的修改,如删除或增加字符等。这种方法有一个优点,用户可十分方便地根据自己需要修改或添加词组内容。对话框文件及驱动程序分别见#CAL.DCL及#CAL.LSP。
1 n2 L- J/ V2 u7 i3 a. C三、程序使用方法 ; l8 l# P& M9 {# w' F# D
先用WPS、EDIT等编辑程序分类建立词组库(注意,需要存成纯文本格式),每个词组占一行。程序要求将"常用术语"、"图纸名称"、"房间名称"等各分类所对应的词组库文件名分别为$TXT1.DAT、$TXT2.DAT、$TXT3.DAT厖。除第一个文件不能少外,其它文件可空缺,但当点取该分类项时,系统会提示有关文件不存在的信息。
& w4 c% I. B: C7 ?然后将所建立的词组库文件及所提供的程序#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以后可直接从菜单中驱动该程序。
4 ~/ N# v' D! k* V* |在COMMAND:状态下,键入#TXT后,系统弹出一个对话框,根据需要点取所需的词组类别,再从列表框内选择所需词组。所点取的词组会在编辑框[所选词组]中显示。用户可以在此对词组进行必要的修改,点取[OK]后,根据提示输入字高及起点即可把词组写到图中。 9 a n, ^: i( `
需要说明的是,本程序中是将文字以"HZ"字型写到图中,要求字体为TXT.SHX及HZTXT.SHX。若您的软件中无这两种字体,可将其它字体改名为该两种字体(要求一个为英文字体,一个为中文字体),或将程序修改为您所具有的字体。但需要注意,也许您的字体在用于设置字型时会多一个选项,询问是否垂直书写文字,此时,可将字型设置一句改为:(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n" "n")即可。
; I+ }; t/ e, |: L E本程序在AutoCAD R12.0 For DOS及For WINDOWS版上均调试通过。
~$ [0 y& V. d+ g0 X+ K& H(defun c:#txt ( / oldcmd olderr ok txt_tb txt dcl_id sty fp nn ht pt txterr diag init wr_txt old_nn)
( g' }/ z ]: Q; s; 定义错误处理子程序
! M- J8 G' X' I& d3 u(defun txterr(s) 3 V! |3 }1 {5 u4 o" m% t
(if (and (/= s "console break")
6 T! M9 o$ T$ n1 a6 C/ l(/= s "Function cancelled")
. P; H0 ^' B M# c5 L# h g(/= s "quit / exit abort") 2 H# u2 k, K# j& m! Y! I) O
)
, D: {: ]. [; h1 d1 J. C- i* X(princ (strcat "\nError:" s)) / `2 ^" n$ j9 W
)
' Y& q, h4 q0 Z6 z$ [1 c; Z& ^1 H(if olderr (setq *error* olderr)); 恢复原系统设置
/ u/ C4 ~/ H8 q(if oldcmd (setvar "cmdecho" oldcmd)) ( F* |1 H" | z/ U+ _ G
(princ)
' R8 o' m) }$ n! G) c: x6 @8 A)
% Q7 T. G) G8 i$ {! C, ^ m/ B, b; 对话框显示及驱动程序 0 t* V) Z( Y* \. `6 Y! E
(defun diag ( / i)
; U' u7 k6 `9 d(if (> (setq dcl_id (load_dialog "#txt")) 0);加载对话框文件
* u& b) F' j( s) C9 P. P9 T(progn $ Q* k" |$ a2 |; _) |
(if (new_dialog "filetext" dcl [JX*6]id); 显示对话框
' a6 b5 N8 ]$ c+ C: }4 R(progn start_list "what");将词组显示到列表框内
% J; \( K2 }3 P# L(mapcar 'add_list txt_tb 1 u6 ]3 X6 |' |" V1 O% K
) Q! s( |. x/ W% E3 R3 A% M
(end_list)
' H6 z9 d/ Z# {- ^6 n. U4 p2 p(setq i 1)
" ^' r+ n4 B; \/ [" O1 h! T: s9 }(repeat nn;点取词组分类项后的操作
. Q; V' O$ C" B t" X(action_tile (strcat "c" (itoa i)) "(wr_txt)") + d7 p9 H3 V$ [3 |* }6 S
(setq i (1+ i)) ! R- e8 b( I7 A! ?4 S, Z- v
) / n% t5 f7 Y2 Z# I) Q) Z9 \2 B
(action_tile "what" "(setq i (atoi $value));选中词组
" L2 q/ |7 |9 ^) I" p* ?3 u(setq txt (nth i txt_tb))(set_tile \"sel_ok\" txt)"
8 e$ w. t9 a/ T) 3 w2 k; |4 n4 S
(action_tile "sel_ok" "(setq txt $value)")
; }- I, J H. H; Z; w; n(action_tile "accept" "(setq ok T)(done_dialog 1)(unload_dialog dcl_id)")
- h \1 u# r" ]1 I8 Z( p' M- @9 d(action_tile "cancel" "(unload_dialog dcl_id)") . m( H' x. l2 }% [2 Q* S7 F5 n( v4 v
(start_dialog) 5 [4 o1 Q( m# @+ O+ ~
)
+ t5 \3 x$ d* P, m" P8 U2 g(prompt "\n无法显示对话框FILETEXT! 请检查对话框内容!")
5 L" y7 e! }' D+ H2 {, Y l) " F s% D& S* m' m
) - S/ Y' k9 k5 L% F
(prompt "\n无法加载对话框文件#TXT.DCL! 请检查文件是否存在及路径是否正确!")
, o+ d9 ?, }, L9 c)
8 o' J- B# r* J" w; S7 z& F) 7 u w8 V3 J, K1 |
; 初始化程序, 把第1个分组项中的词组读入表txt_tb中
2 ~8 A! t) l$ p! a% g0 f(defun init( / fname fp txt1) 5 {2 J7 M) o Z( G( `
(setq fname (findfile "$txt1.dat")) / ]3 J5 e9 |) d
(if (not fname) 3 p1 a% v. }# L6 i0 O" j) ~: J
(progn (princ "\n文件 $TXT1.DAT 不存在 !") (exit)) ; 文件不存在, 则退出 & @9 s, j: J" e5 D9 y
)
8 G& X$ Z( k+ x8 ^(setq fp (open fname "r")) . ^3 {0 Q6 l( e+ E3 {1 u! f5 {% h+ w
(setq txt_tb '())
( ^- ?) X+ ^3 w8 J5 v(while (setq txt1 (read_line fp)) 7 R' w7 i! r5 a8 R2 l1 y; J
(setq txt_tb (cons txt1 txt_tb)) - M6 R# D& @2 [0 k1 n M% U
)
! b: s$ Q7 r9 F5 c4 f. [ k/ o9 y. b(close fp) 0 U4 z8 W# }. b1 T* P' i( C9 J2 ~
(setq txt_tb (reverse txt_tb)) 0 Z3 }3 C5 T, h( \, k2 M
(setq old_nn 1);记录索引号 : F% c2 M- A$ ^* O+ [
) 4 B( p( z. o8 Y; o9 r+ D) }
; 更换列表框内词组显示内容
0 J2 r1 a8 d# Q; t* b' O(defun wr_txt ( / fname fname1 fp txt1 i)
+ B5 `. C# r; K+ i0 r! l(setq i 1)
% B m5 A; a+ s' f! O8 H/ J(while (<= i nn); 判别哪个词组项被点中
1 E% K8 M1 D' I! @/ D" K(if (= (get_tile (strcat "c" (itoa i))) "1")
3 z1 J6 x# C3 t7 m. R(setq fname1 (strcat "$txt" (itoa i) ".dat") 7 i$ a% G/ p+ x" T' v% v
i nn
& G2 P" S {. I, t" G) $ A4 |7 {5 x! n7 `' k
)
4 k- _1 M3 |- X3 {(setq i (1+ i)) 3 ?4 C) _6 P: h+ l0 R
)
- M* p6 M- Y+ G(if (setq fname (findfile fname1)); 查找文件是否存在 . t, N) W. M& E: S4 Q
(progn
; K, |1 C4 l' _% W& \(setq old_nn (atoi (substr fname1 5)));记录索引号 / a2 W. L; u' G2 N
(setq fp (open fname "r"))
0 O: R( f, q3 o4 A5 W(setq txt_tb '())
- s* R; J1 y/ M) N" G: j(while (setq txt1 (read_line fp));依次读出各词组 6 f _+ V/ W2 x% w7 X* `- ~3 a) k
(setq txt_tb (cons txt1 txt_tb))
+ E: ^# f4 G3 T. q+ X)
9 D& }! C8 t7 j9 @3 q& [3 p(close fp) ! b' y$ I* Y/ T" w/ h6 c2 S
(setq txt_tb (reverse txt_tb))
" ]1 Z& K, m7 y/ x! n0 N! C(start_list "what");在列表框内显示词组内容 * ]" s! J, {( Y9 w5 f
(mapcar 'add_list txt_tb)
}2 Y5 E; [! G ~8 V(end_list) , G' K& _/ R1 E
) ; progn
% v4 e9 F/ q2 X(progn - P% j! q% R& y( _: I, Q' i3 h. Z
(alert (strcat "文件" fname1 "不存在!"))
/ R2 }* P( T2 D! V(set_tile (strcat "c" (itoa old_nn)) "1");恢复原记录号
& o0 S7 ~ e7 h. Q. ?) 9 N. C7 c# p4 C+ Q
) ; if ' T% b- V& Y: r& u' d4 v
) ( u& }1 i; O( f: I; K
; 主程序开始 + n: X" x6 k- \
(setq olderr *error* . `" B3 ?1 J4 c9 W
*error* txterr . d) C* ]' R1 P
oldcmd (getvar "cmdecho")
8 a B0 J/ Q% Z4 a9 V7 t' B)
8 G" D1 k/ t9 n% G+ \(setvar "cmdecho" 0) ; 命令不回显 3 g+ G% L$ b/ @9 [1 Q) ~8 N5 ]
(setq nn 9) ; 词组分类数 - M$ H: s" H* U
(init) ; 初始化 0 G4 z+ j- N7 l/ F" w$ J7 P
(diag) ; 驱动对话框 ! |. ]/ p; d7 u4 C
(if (and ok txt)
$ p" m( b; D% t7 f: r8 G(progn
* v% z6 @" A5 |. @. M# X. \: x(if (or (= (setq sty (tblsearch "STYLE" "HZ")) nil); "HZ"字型是否存在 : n) b% D' d3 |( @
(/= (cdr (assoc 40 sty)) 0) ; 字高是否为定值 " B1 ]' K- r# C4 B4 Z1 n0 A' F
(/=(getvar "TEXTSTYLE") "HZ"); 当前字型是否为"HZ" 3 P( Y6 f" |$ r1 Z% ?% J+ B4 t
) ) }! W; `6 h" b" j9 I, O
(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n") ; 设置"HZ"字型
! j" R, y+ Q8 U k" t8 j) - X- ~% Y; j0 a! n: l
(initget (+ 2 4));下面的输入值要求大于0 9 j$ }1 J: V% ?" T `
(setq ht (getreal "\n请输入字高<500>:")) . w5 Q b# U/ M' c# M
(if (not ht) (setq ht 500))
5 U' G% S) ]) K' W(setq pt (getpoint "\n请点取文字起点:")) , j( I9 @* U/ K
(command "text" pt ht 0 txt)
) c6 j5 d1 {8 B# i4 u) . z7 V4 }0 [4 h
) % Z* Z+ O5 J0 ]* R" y
(setq *error* olderr);恢复原设置 ' L6 g3 W/ U+ I0 I' G
(setvar "cmdecho" oldcmd) . f+ C+ B, ~3 F8 }4 s5 l8 z3 \
(princ) " k* W5 _; T( G4 a) A
) 0 j( V m: s4 T( m" t" P
// #txt.dcl & i3 ?8 T3 j, D
// 供#txt.lsp调用 " ^: M9 ^) D; U% E6 y
filetext : dialog { // 对话框名称 / e/ r1 L; o2 X% Y7 Y
label = "常用词组"; // 对话框标识 ! ~" l; w. \' e& A& P$ X
: row { ; k1 V$ r% ?' \: d$ G5 Y
: boxed_column {
( ~* d5 W3 y7 b% tlabel = " 索 引 ";
1 s" R$ e& |+ M- n: radio_button {
- u+ D( B3 e$ ^- K1 ]label = "常用术语"; // 多选一按钮 ' N8 f# H2 _& S
key = "c1"; 0 C! a! S0 R' l. g' E9 y* j) S# ^9 J
value = "1"; // 初始值为"1", 表示选中 3 P- D9 {/ S; s4 a' \! c# n
} $ L. a( f3 t( S( K9 O& W! D
: radio_button { 9 R) _& |( J8 L: y& E9 A$ b- u
label = "图纸名称"; 7 _/ S$ S X$ `2 M
key = "c2"; # o- _( |* V0 q* m
}
4 H8 o6 M1 z6 T6 f' k- J: radio_button { 9 @( W% U) z* h
label = "房间名称"; $ R3 \+ Q! a% y/ l7 q: F
key = "c3";
8 Y9 W. A7 z7 k% X$ j' u} 6 u( U. h# B8 p8 }2 _& i# q
: radio_button { % W1 q* ]1 J; R+ ?3 ]/ D0 d" @
label = "卫生器具"; % Y( { a& ]1 q6 Q4 V
key = "c4";
4 x$ ~% N: p" x9 O4 F6 R} / G# [# @6 O1 @9 g: k6 X/ g
: radio_button {
' t* {( X+ |- ]; L; l5 e9 Wlabel = "管材配件"; 0 o2 N% D" B2 `6 @5 }
key = "c5"; " v( n- m4 B1 G5 k3 ?) T
} 0 v2 u, m, V5 @9 K k
: radio_button { 3 u% k; X# ?6 D) K$ M1 |& o
label = "器材仪表";
$ @5 ]: L5 v3 x% Ckey = "c6";
w) [- E z+ n( J' h* R8 \% C+ L} 3 r# h) n9 w5 r
: radio_button { / w" b$ @, d# O: p) ^5 C2 _0 R0 w
label = "常用设备"; 1 @5 H: g/ a! }' o8 I
key = "c7"; 7 I" ]% S% r* B
} / U, Z/ d: {; K }' m! M- n; i
: radio_button {
' q- y1 B6 u0 ]4 O8 O$ Olabel = "构筑物"; - ~. `" T" s" B1 C
key = "c8";
7 q0 W8 [- V- j+ x( r7 \}
: K' I% y2 C9 o8 g1 y% V4 Z: radio_button { : Z! }# n7 C! q6 J6 H2 B6 ^" }% Z
label = "其它";
7 v/ B+ J$ [! X& H Z) @key = "c9"; 3 l8 b. @/ u: N
}
2 Z i! ^# ?, P! u; D- r; A" F} 6 j2 S! r. ^9 j
: list_box { # I$ m5 [' R1 U3 u' v
label = "词组内容"; * P/ b- A W+ i/ J+ w! A( C7 S
key = "what"; 3 E# @$ P; G8 [$ S4 l
height = 15;
& [4 @# r7 ?/ Hwidth = 26;
2 K/ h z9 D _% w4 }$ dallow_accept = true; // 可双击鼠标选取 3 k. Z) d" t1 O& t; x
} ; t# C. J P4 u* r
} 1 r- J6 z4 Y& t2 G% z0 F2 X
spacer_1;
! O# K9 P5 x$ \: edit_box {// 编辑框
2 ?& O* A7 j& L% C& G' F2 d+ c6 Wlabel = "所选词组:"; 3 [ n$ }/ @! f7 b0 ^4 `6 b j
key = "sel_ok";
# s9 c$ Z/ J D; ~, W6 a9 B( E+ a} 9 X! w$ |1 c& [& j& M
spacer_1;// 增加间距 1 c y5 h" ^4 z f. J& c) d
ok_cancel;
! T t8 _0 @3 D- f& e, W} |