AutoCAD内常用术语的自动标注方法

HEATS

　　摘要：本文提出了一种用对话框实现AutoCAD内常用术语自动标注的方法。用这种方法，可方便地将各种常用术语标注在图中，为CAD应用提供了方便。

# ]& W: ~/ _# n) m

　　一、引言

( f( I/ a: K7 F2 `5 _2 @ 2 Z) `! N8 f$ ]0 k# D( L: r% n

　　汉字的标注在CAD设计制图中是一个重要的部分，也是一个较为繁琐、困难的部分。目前，在AutoCAD内汉字的输入大多采用拼音方式，对拼音不熟悉的人来说汉字的输入就很困难。如果能将设计中常用的文字术语直观地显示出来供设计人员调用，将会极大地提高工作效率。本文就此进行研究，提出了一种用对话框(下图)将常用术语显示并供调用的方法，同时给出了源程序，供大家参考。该程序已应用于我院的实际生产中。

- M O* w. e8 t5 `) _1 A! v" A& X

　　二、原理及方法

% _* ]( Q" t& C% t3 F, g: k% [ * d! F( | u2 T& |; f- U

　　AutoCAD对话框结构包含有多种构件，如edit_box(编辑框)、list_box(列表框)、radio_button(多选一按钮)等，利用这些工具，可以开发出界面友好的实用程序。

5 c2 C p6 |! b9 c* E( P

　　左图就是用这种方法实现的。将常用词组分类，分别存于不同的文件中。根据多选一按钮中所驱动的分组号分别打开不同的文件，将文件内容读入并显示于列表框内，供设计人员使用。同时，设有一个编辑框，可将所点取的词组显示于编辑框中，便于用户对词组进行适当的修改，如删除或增加字符等。这种方法有一个优点，用户可十分方便地根据自己需要修改或添加词组内容。对话框文件及驱动程序分别见#CAL.DCL及#CAL.LSP。

　　三、程序使用方法

0 c9 {$ m$ A% |# A; Z0 t0 Z' `2 P

　　先用WPS、EDIT等编辑程序分类建立词组库(注意，需要存成纯文本格式)，每个词组占一行。程序要求将"常用术语"、"图纸名称"、"房间名称"等各分类所对应的词组库文件名分别为$TXT1.DAT、$TXT2.DAT、$TXT3.DAT厖。除第一个文件不能少外，其它文件可空缺，但当点取该分类项时，系统会提示有关文件不存在的信息。

4 U2 F- U+ o8 l8 L1 E

　　然后将所建立的词组库文件及所提供的程序#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以后可直接从菜单中驱动该程序。

. I& ]' i% o0 {" p8 m3 s6 v9 h

　　在COMMAND：状态下，键入#TXT后，系统弹出一个对话框，根据需要点取所需的词组类别，再从列表框内选择所需词组。所点取的词组会在编辑框［所选词组］中显示。用户可以在此对词组进行必要的修改，点取［OK］后，根据提示输入字高及起点即可把词组写到图中。

0 d: {- ~! Q3 k8 t7 Q1 B b2 c4 U, T7 L

　　需要说明的是，本程序中是将文字以"HZ"字型写到图中，要求字体为TXT.SHX及HZTXT.SHX。若您的软件中无这两种字体，可将其它字体改名为该两种字体(要求一个为英文字体，一个为中文字体)，或将程序修改为您所具有的字体。但需要注意，也许您的字体在用于设置字型时会多一个选项，询问是否垂直书写文字，此时，可将字型设置一句改为：(command "STYLE"

4 E- @' B0 h9 { j

　　"HZ" "txt,hztxt" 0 0.7 0 "n" "n" "n")即可。

6 p* G% h+ A7 o

　　本程序在AutoCAD R12.0 FOR DOS及FOR WINDOWS版上均调试通过。

/ @1 i- Y5 g0 z" R/ E* i" [2 c

　　(defun c:#txt ( / oldcmd olderr ok txt_tb txt dcl_id sty fp nn ht pt txterr diag init wr_txt old_nn)

5 {+ w6 k/ K& a1 M" u

　　;定义错误处理子程序

; ]" o) j' ~: f& Q* N, E & C+ M n- x% q- k$ l2 Q

　　(defun txterr(s)

+ [0 g& m7 A5 T: ?

　　(if (and (/= s "console break")

　　(/= s "Function cancelled")

" T% k7 U/ f' E0 W

　　(/= s "quit / exit abort")

* F6 s9 G! N( v8 I% P

　　)

; F2 y4 l; Z }% D( X$ L4 V% k

　　(princ (strcat "\nError:" s))

6 \; I: x/ Q9 d, l3 l( b

　　)

1 K/ [+ @3 v* K 8 Z5 A+ T) b8 o( m$ S

　　(if olderr (setq *error* olderr));恢复原系统设置

　　(if oldcmd (setvar "cmdecho" oldcmd))

& e1 g' q! S" ]8 m% T : b" G6 a, `' m4 q) d: [ ^

　　(princ)

　　)

　　;对话框显示及驱动程序

- z6 |& \3 D* o 9 _9 o+ Y+ S7 B3 G7 E. D

　　(defun diag ( / i)

' Z9 T; u4 r* c; l, f

　　(if (> (setq dcl_id (load_dialog "#txt")) 0)；加载对话框文件

　　(progn

8 g; Z" V8 W$ m- S8 c 0 }5 e1 }+ S' @& h" o. c7 V# {

　　(if (new_dialog "filetext" dcl [JX*6]id);显示对话框

" A3 `7 |! T; w0 H+ z: c" Y 5 E l0 q- r# |! D' A

　　(progn start_list "what")；将词组显示到列表框内

% q0 ^8 s, y n6 F# i4 t+ U ; y4 q7 X" r; V# J# y

　　(mapcar 'add_list txt_tb

4 f! k# Q3 s8 f2 q# z/ G

　　)

　　(end_list)

　　(setq i 1)

! f" R7 @9 M, d

　　(repeat nn；点取词组分类项后的操作

7 [$ S' u. `: l4 f! t

　　(action_tile (strcat "c" (itoa i)) "(wr_txt)")

7 b: O2 ^4 C8 ]9 F) S- Z

　　(setq i (1+ i))

　　)

　　(action_tile "what" "(setq i (atoi $value))；选中词组

$ a7 b0 h% |1 h; H1 H Y. n' W

　　(setq txt (nth i txt_tb))(set_tile \"sel_ok\" txt)"

! Y/ p$ v4 Y0 Q) X' l

　　)

9 N1 J. a' u" v

　　(action_tile "sel_ok" "(setq txt $value)")

9 h Y$ a' o. k x9 D4 b: V$ E

　　(action_tile "accept" "(setq ok T)(done_dialog 1)(unload_dialog dcl_id)")

　　(action_tile "cancel" "(unload_dialog dcl_id)")

0 K( {: x: s% C4 Z" Z. V , f$ h! a' `8 D' h9 o

　　(start_dialog)

$ l+ t; j* X) E& ~

　　)

4 b; K( a9 d; b9 e0 i5 v5 Z 3 l( T; O7 Z9 h3 q( o% X" G

　　(prompt "\n无法显示对话框FILETEXT!请检查对话框内容!")

( L H& G: H5 p& C, i6 a: U! d * r! H6 J& K2 |) t+ ?

　　)

. v9 w- T+ Y* P- j$ E

　　)

/ P% E, n( E% Y' y3 o! `

　　(prompt "\n无法加载对话框文件#TXT.DCL!请检查文件是否存在及路径是否正确!")

0 D& L* s, k& C+ q' F& k Z- ?# E* l4 ^5 p( C% d8 k. M

　　)

% y) t1 I. F0 z; a6 R

　　)

% Z O4 g9 j8 b: O1 x8 B& C % w3 u& _$ l- _- g7 |8 r0 m

　　;初始化程序,把第1个分组项中的词组读入表txt_tb中

) L9 Z4 V% U, \' I% i( ~/ t* y% g

　　(defun init( / fname fp txt1)

: L& m* C( H" I3 Q1 _

　　(setq fname (findfile "$txt1.dat"))

. f1 d- Z: M( t, R : U$ ? _: l B6 {* b0 @5 u. x

　　(if (not fname)

1 X/ h) y1 D* L; @1 c

　　(progn (princ "\n文件$TXT1.DAT不存在!") (exit)) ;文件不存在,则退出

　　)

4 f! {# g( ?# }+ J5 e . ]" D9 I1 h& {! Y0 y

　　(setq fp (open fname "r"))

　　(setq txt_tb '())

& ~/ M' K* G! ?% ]

　　(while (setq txt1 (read_line fp))

1 j( H3 Z) B8 D0 b" }

　　(setq txt_tb (cons txt1 txt_tb))

　　)

0 t- R; b9 i. B) _, p & U. \" R8 a: Q; E+ G

　　(cl

) G1 W+ ^, @2 ~" E# g ' ?+ `4 P- t8 F) U$ ^

　　ose fp)

: G* ]* T# M9 T N

　　(setq txt_tb (reverse txt_tb))

　　(setq old_nn 1)；记录索引号

　　)

3 z) d. s/ s( y, L5 V+ L C 8 `. f6 L+ K5 r0 @8 }* q% [

　　;更换列表框内词组显示内容

; C7 l/ R. ]* Z) l $ t ^2 l# K5 l2 y6 Y# p6 D

　　(defun wr_txt ( / fname fname1 fp txt1 i)

/ a! N: [: N" e) h: ] H ` 3 Q! Y& O* r0 K6 y, G

　　(setq i 1)

% D2 T6 ?2 T; E% q; i9 U0 q

　　(while (<= i nn);判别哪个词组项被点中

　　(if (= (get_tile (strcat "c" (itoa i))) "1")

7 D0 X1 O2 f2 r) |' C! E # }! V+ J+ {! q9 G$ k

　　(setq fname1 (strcat "$txt" (itoa i) ".dat")

6 R2 Y6 I7 q% V# | ( Z; D* B" Y. C! R8 {$ \

　　i nn

　　)

　　)

6 ` n. P, U5 R; Z3 }3 D2 T ! B6 l" f5 l/ k" `9 Y! i

　　(setq i (1+ i))

5 f& M9 l: w; E( J4 a. E

　　)

$ x- Q/ L9 `4 ]) P: T- R U

　　(if (setq fname (findfile fname1));查找文件是否存在

　　(progn

4 B6 v& M& |0 r+ `$ E5 i( ]; |

　　(setq old_nn (atoi (substr fname1 5)))；记录索引号

4 R A. m* |0 F) j& t& Y

　　(setq fp (open fname "r"))

7 \* w+ v, e6 _ _7 I

　　(setq txt_tb '())

( s* ?. I& H# W5 B5 C

　　(while (setq txt1 (read_line fp))；依次读出各词组

* X8 |& m9 V2 ~, a$ w9 W, J4 }

　　(setq txt_tb (cons txt1 txt_tb))

　　)

& z" f0 ~4 P: v, O

　　(close fp)

: B: w* C1 i4 [ n4 R

　　(setq txt_tb (reverse txt_tb))

# [; v# j- Y, {9 U) r

　　(start_list "what")；在列表框内显示词组内容

L1 \/ I% U, [ / \, t4 [; T* Y

　　(mapcar 'add_list txt_tb)

! P& }' k* S. o$ J1 M( `! n . K; [0 q t( g/ ^# H2 ]3 j: A

　　(end_list)

6 y1 {+ Y/ Z9 [

　　) ; progn

/ D, ~% E/ \ I( u3 Z

　　(progn

* s3 `8 r9 h" o& `1 I# Q# E$ m

　　(alert (strcat "文件" fname1 "不存在!"))

2 H( ]1 }$ l: T5 Z( e x 8 F, }; I) E- U" G' G N

　　(set_tile (strcat "c" (itoa old_nn)) "1")；恢复原记录号

　　)

　　) ; if

　　)

( D$ | s" o: Q( k1 {3 n

　　;主程序开始

) F1 B2 T$ ^7 ?, d/ F7 V$ T( q 1 a: n3 g) {1 y& H- R/ W

　　(setq olderr *error*

　　*error* txterr

. J) X8 c5 N6 d8 J% w

　　oldcmd (getvar "cmdecho")

' U* y4 O& N5 H: F' P* q* [ 3 w6 v4 ?9 U) Y! Q3 u5 N _

　　)

　　(setvar "cmdecho" 0) ;命令不回显

: x# r/ s( I& H: l, H& v: O

　　(setq nn 9) ;词组分类数

7 [+ D) q4 H0 V( ?, H" b8 n2 b2 {7 s4 ?

　　(init) ;初始化

- ]# `% |' v0 w8 s. s

　　(diag) ;驱动对话框

* ]6 I5 P$ f2 }; `

　　(if (and ok txt)

2 f( Z) o: c" k5 D$ @7 L

　　(progn

! U2 ?9 [7 f8 i4 `0 w* t% u 0 _8 |' V* k3 v) s" d' \, D v

　　(if (or (= (setq sty (tblsearch "STYLE" "HZ")) nil); "HZ"字型是否存在

; c$ r: T7 l$ H$ p" d* ^8 k8 X

　　(/= (cdr (assoc 40 sty)) 0) ;字高是否为定值

3 o2 @& f. V+ Q; l! T; _. S3 O+ m 1 V* M# g$ O6 j4 G) m$ f" q

　　(/=(getvar "TEXTSTYLE") "HZ");当前字型是否为"HZ"

　　)

　　(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n") ;设置"HZ"字型

3 r. z3 _# t( D* V5 x

　　)

, P* O! S$ c3 y4 t! Q0 N

　　(initget (+ 2 4))；下面的输入值要求大于0

( c, X( {" z, ] " x I$ Y# }. [) Y3 T

　　(setq ht (getreal "\n请输入字高<500>:"))

g. u3 r* D# P) L, o* q

　　(if (not ht) (setq ht 500))

& l% @( `: X. e Y% H, e- L

　　(setq pt (getpoint "\n请点取文字起点:"))

1 { Z8 j+ n) o) j( f: i

　　(command "text" pt ht 0 txt)

　　)

P+ U) J6 o' Q$ _8 g, B

　　)

$ k: O- y4 i# k1 j, [: ]. |' J4 w' r' ^, N

　　(setq *error* olderr)；恢复原设置

　　(setvar "cmdecho" oldcmd)

　　(princ)

* d, S$ {% Y$ W/ l1 f6 _0 B

　　)

8 Y2 }' I' w/ ?8 s O# q

　　// #txt.dcl

　　//供#txt.lsp调用

. k9 F7 G2 F+ k+ O8 ?- v$ H B" k3 |$ W- |2 x6 N) o3 D Y

　　filetext : dialog { //对话框

`5 z6 p9 O9 {# l& E5 t8 ^% H6 @ : W1 q7 f" G1 c- j- ?4 h6 b3 s

　　名称

% R6 N, w. }' l" N. P! @. M m9 o

　　label = "常用词组"; //对话框标识

! F) {% }. @/ E4 e+ r/ {

　　: row {

! `/ T% D8 A$ h. @2 L ; o2 d% e: K5 f* K

　　: boxed_column {

9 S1 F/ J/ }1 u! x

　　label = "索引";

　　: radio_button {

* s% ]% e5 n- v# J. b( Z

　　label = "常用术语"; //多选一按钮

　　key = "c1";

　　value = "1"; //初始值为"1",表示选中

5 L: Q, d" N) \7 T( z% w+ L

　　}

　　: radio_button {

　　label = "图纸名称";

　　key = "c2";

2 f$ V: {' T& [( K& i

　　}

5 T6 B% r* W6 o8 u2 Y1 q# N * H8 F4 a( k3 @/ @

　　: radio_button {

: A4 e+ q9 I2 S \$ e: R . \* q8 ~1 \. N0 v8 y& b7 _

　　label = "房间名称";

) [" ] Z' e! a o3 o5 D & l4 H5 `* \4 x

　　key = "c3";

+ d% N5 L3 K5 F/ Q4 P1 u% a

　　}

　　: radio_button {

　　label = "卫生器具";

; R" u7 O4 e& b: i1 N ( q. ]: D! V0 O* x) g2 p, J" I

　　key = "c4";

　　}

　　: radio_button {

　　label = "管材配件";

　　key = "c5";

& {& i# L1 |! ?, t! w) C6 C5 u% Q8 G" B

　　}

" K U, J- s4 K2 G. u1 U

　　: radio_button {

0 u& ^) @9 u$ g# K* a+ p

　　label = "器材仪表";

　　key = "c6";

9 y* Z) y+ U( W5 B6 ?" u2 a# \2 ^6 s 1 O! J% {5 s# a* `, C9 H: ~2 G

　　}

B- P( K4 A) u' z6 x# e; Y

　　: radio_button {

* a$ i. P$ j: v2 P+ {0 W6 F, w ' p9 Q1 @" m$ E. f, k

　　label = "常用设备";

5 S" C0 C) W2 V' `- Q* X/ E* q 2 V& g z1 k: o2 |

　　key = "c7";

O# P& ?) Z$ _

　　}

1 h+ g) F5 C" _3 X: ~* Z E" F

　　: radio_button {

5 S2 J y' _& K, s2 O' F

　　label = "构筑物";

1 T3 `! [6 F8 H, T, S3 A/ P

　　key = "c8";

5 Q( B4 ?. N) k3 f9 ~ , D6 q6 i! R+ {) V# M7 j

　　}

* K) X" q% Q6 E. r

　　: radio_button {

　　label = "其它";

5 g2 f, A+ A L. F& Z9 D- u " V8 b+ R# L6 D, Y; Q+ D

　　key = "c9";

4 M* R/ J. h4 G) ?

　　}

$ ~+ _/ U9 q. }4 T) V' @, d _1 O6 D

　　}

. U* |+ M! y6 E

　　: list_box {

; ^; T) g; g$ u- ? ) W4 O2 \" ]' a$ S4 B8 c" m a7 v

　　label = "词组内容";

* x" L* g4 U& b

　　key = "what";

3 V# @" t a' D6 x) c% a

　　height = 15;

　　width = 26;

) n& `) s8 g3 R F

　　allow_accept = true; //可双击鼠标选取

+ j% j' z4 A/ M9 V, U! U% W2 {

　　}

' T" k8 z3 k, h% Q/ @2 U/ L

　　}

. S* ^4 ~0 g+ k- b, M0 U ( U f9 T7 o$ y

　　spacer_1;

1 R! U7 W! J# T" d3 p

　　: edit_box {//编辑框

& D! S7 s' L9 d8 Y+ X 7 S4 s- i- |! `! H6 K

　　label = "所选词组:";

0 G; [, J) d( T$ g; `

　　key = "sel_ok";

. N% `" A8 u& l. g/ t7 N. V9 ?

　　}

9 t( x' I! R1 y) T+ O. d7 J

　　spacer_1;//增加间距

* ~8 b; E' Z' \9 ~0 U2 z

　　ok_cancel;

　　} www.mechnet.com.cn" >【MechNet】