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

HEATS

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

J; G$ [5 L- V% Y8 R3 e ; t4 {4 |* j- B8 K* ^; w

　　一、引言

8 e, r& \6 Y2 f6 `& w

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

: T/ {( q7 d& B. d3 s: H/ i

　　二、原理及方法

, O0 m4 C: w1 r }

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

* d j5 v. c$ Z6 [- i ( [. j1 [8 e$ |# O, F+ _

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

7 B# V( Z6 L. A; a$ @

　　三、程序使用方法

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

$ J* ]: ~) Q) t" `4 N' ^: u+ ^

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

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

1 k [' ]/ ?6 G" f , J+ |4 ]4 ?% ^/ A

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

+ _# Z+ J$ |9 n9 I0 U5 {) Z $ a8 @' K* s& s* M3 X9 R

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

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

! ]& h# J' _9 p+ e 0 X p$ [0 m* V0 u/ K

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

. C( ^( |* |# B

　　;定义错误处理子程序

　　(defun txterr(s)

. n6 e. J* w9 r% R

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

2 f+ [& d+ R' W' N- h + f, P D- {% t3 e

　　(/= s "Function cancelled")

　　(/= s "quit / exit abort")

　　)

: B4 G i/ ]8 Z- ` / h) W. A3 b5 h2 }6 _

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

$ `( F$ k5 k: a. ?/ _- k3 z# N0 x( v. t + q. A7 O" H$ {$ }

　　)

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

9 v- l8 m9 U Z6 p : X( q' P! |7 B( ^- d& v! `

　　(if oldcmd (setvar "cmdecho" oldcmd))

( U8 L. I/ z x3 d5 I- D * w0 Y( k0 I; S5 S8 H# O q( r, j4 }) ~

　　(princ)

. J" ]. v: [. q1 T# i# S( e7 n1 `

　　)

　　;对话框显示及驱动程序

　　(defun diag ( / i)

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

( ], N0 d! S: B

　　(progn

7 V/ I8 I9 v- g) w. f5 Y

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

' X4 m! a+ W% S5 |' I W

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

% E4 F# p! u- d# U& e * x( z) y* X9 f! Z, ?

　　(mapcar 'add_list txt_tb

* V8 O7 C/ i8 @, F" v! v

　　)

: P6 z* t& h7 Y$ M U1 d4 c 2 {3 D2 g' q3 T4 Q6 B# U0 ~

　　(end_list)

. }/ g7 S! D4 @6 L

　　(setq i 1)

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

- a% [7 P1 Q5 A

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

% L1 l9 ?4 P, P

　　(setq i (1+ i))

　　)

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

# k- I+ x$ M$ ]5 M$ H

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

　　)

z/ `! j# h# `8 s2 H7 _

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

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

& B& D* s m7 X1 m M$ w: t/ |

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

5 R0 E9 @6 A& i* q- s

　　(start_dialog)

5 V4 H8 v$ M* n2 L$ N5 z( D

　　)

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

1 J1 a/ K. K1 W

　　)

; u3 r8 X d* k- N: |( x 4 ^1 A! f$ i, c% T; [

　　)

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

9 c0 i5 M4 l3 C; }

　　)

; p/ Z* Y A0 k2 M

　　)

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

" J7 K1 Z( K+ `* L! c, X; l # ]& R9 ~, Q# V" x# s& ^6 N `9 J

　　(defun init( / fname fp txt1)

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

* ?- Y0 x0 v! [$ v# Y6 m

　　(if (not fname)

, n. p; G1 F5 q. X4 N1 b; a 6 {2 M9 d- U1 }+ Q& R' I5 {0 w

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

a. P: j' s4 r8 e- _

　　)

! ~8 s7 i9 x# h2 X2 _+ M/ [ 8 H+ ~- Z, _( T6 X

　　(setq fp (open fname "r"))

, i. k0 p2 z, }3 G/ y2 M2 L+ x9 J " k' D2 i' n( Y$ I( B

　　(setq txt_tb '())

/ O) X% _5 j/ W* i7 R+ h; Q* a9 {

　　(while (setq txt1 (read_line fp))

$ Q) {+ A; ~* s+ W8 } # T2 x( B8 @8 [# W

　　(setq txt_tb (cons txt1 txt_tb))

' T I2 \2 V) E% z3 }8 k

　　)

" ]# ]4 s; @9 b

　　(cl

" w( g" K4 n' C+ |& e1 l

　　ose fp)

* y2 ^4 B' M' Q. r! w/ Q

　　(setq txt_tb (reverse txt_tb))

3 E- K( _1 s0 @8 }1 p! f

　　(setq old_nn 1)；记录索引号

! x. m) q0 W7 q" _# I $ T8 w& W4 _3 c! a2 Z8 G W4 U

　　)

, y' E$ w: ]& H* ?) C& G0 r6 M ' z, X% g" ]) a' U" R+ [6 I

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

! i( x( c$ S# ]1 S" ?8 b- { " I' S* l! h9 G" v6 G: E/ b2 C4 x

　　(defun wr_txt ( / fname fname1 fp txt1 i)

+ {: @# ]6 ]& v. O- w

　　(setq i 1)

0 x3 l$ e" H; f! \6 ?0 T

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

% a! s7 \, T2 L+ b! g- C

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

/ ?( ]& ^. k8 p' j$ R8 v2 V/ T

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

2 S' w, i- Z* s& g ( H6 O; n6 q0 a! }% T, V

　　i nn

; o* h' f% {' ]& w8 t

　　)

9 P" R* [0 L% }) H# A2 E5 Y

　　)

* V7 _: d# h! f3 u. o5 @ 2 E/ ~4 V/ z- c2 E# J# F

　　(setq i (1+ i))

0 h1 e- A/ E( h; S5 f

　　)

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

0 ^7 e6 z% b/ n' N9 ]* a

　　(progn

- B2 Q9 g% V3 f. G2 B( Y

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

　　(setq fp (open fname "r"))

　　(setq txt_tb '())

) T: B2 X3 \& \( v9 Q4 ] / ]8 Z/ @& P! m3 ]" |

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

: O' q/ B) a6 V9 @ 0 T" \" D+ ?( A% `4 {9 o# q T

　　(setq txt_tb (cons txt1 txt_tb))

　　)

2 X' s; Q. t3 B! f9 ^* o3 b

　　(close fp)

2 A- R9 U9 ]5 W: j8 I. u . y1 Z8 U, u0 |4 {1 F

　　(setq txt_tb (reverse txt_tb))

' M2 ?( w1 ]8 g. f3 V8 ?% ^& { ' g, v4 P; R2 |

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

: {* x) a }, @6 S% \3 `/ l+ c

　　(mapcar 'add_list txt_tb)

　　(end_list)

1 F6 B8 Y5 Q% q2 N. \) \ L( U! s % b' c6 [% y4 A# f

　　) ; progn

　　(progn

) Y I* D" \/ Q : [8 E5 r! m, T2 e) p2 I2 o

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

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

　　)

　　) ; if

* V. J! N: R" ^- ]3 u8 ^6 o- [

　　)

# Y: m1 n0 L2 p# y+ _ , h% s0 F; U, P7 s7 S4 J& T$ k: o; Q

　　;主程序开始

/ |+ e* N E) r6 z: K3 q7 X5 |

　　(setq olderr *error*

　　*error* txterr

2 o. S5 J& E' @7 P7 W4 m4 p1 A

　　oldcmd (getvar "cmdecho")

; [: {9 r2 @, E0 c7 O

　　)

4 _+ F/ h& f; E9 _% [

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

8 j R2 I3 ]! } - {+ }( W9 p& Q

　　(setq nn 9) ;词组分类数

$ S1 m" a' w- Y+ x. ]( c6 j. C

　　(init) ;初始化

　　(diag) ;驱动对话框

: F4 D; }) y! u$ S

　　(if (and ok txt)

8 A8 `* S' ]9 }* l |1 l( n5 c $ a( V" U& h7 m) ]

　　(progn

( F. i" I) m) s( t2 e0 G

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

1 q. z- U8 L4 x' p : U2 B. B, _* o. t; K

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

3 t- X Z, ~: ~ W, l

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

# f, \& {& L0 ] `; J2 K' b8 g

　　)

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

　　)

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

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

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

3 X6 F6 |" h* f0 {: J' @: ]

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

3 l( e3 p3 I/ D4 F7 d

　　(command "text" pt ht 0 txt)

' K% U; M+ ~' @8 E. i' M

　　)

) w* d# _. d' d" _8 B

　　)

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

% I3 P1 e4 O& a8 H( w

　　(setvar "cmdecho" oldcmd)

　　(princ)

5 t ^, F2 J& ^7 o& Y6 B * V3 E2 e5 J, B4 t) F: J; e$ \

　　)

. r S) m; ?, v+ A. \

　　// #txt.dcl

4 W$ y! [3 \# w7 v2 p& U

　　//供#txt.lsp调用

! c7 E! e* q" [/ Z8 w" n % Y" V! o) ]2 }. t! X h

　　filetext : dialog { //对话框

　　名称

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

) }9 @, T/ |- o

　　: row {

# q n0 W+ r2 k/ \) f! M

　　: boxed_column {

! U% ?! z4 ]2 ~5 C* H4 z' ]: k

　　label = "索引";

5 Q9 S+ B6 Y! z3 P% P* P5 @! j: C 6 w! x6 i: \; I) s

　　: radio_button {

' R6 Q- {% E' T4 B: {0 A/ [3 l) L 7 j/ b4 Q. c4 H

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

, n9 w6 v$ V' c* L* j0 Q! h

　　key = "c1";

, ~2 K: I$ a- m& _

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

3 F1 _6 v; H8 c 6 ^& |3 P; \' U; g: o- |- F( A

　　}

　　: radio_button {

9 k4 W2 ^) s9 {, a( ` 4 `' f' Z" S, |

　　label = "图纸名称";

0 F' N, ~8 M' }$ W/ H % O1 Q r6 F |3 b3 j

　　key = "c2";

　　}

1 `4 k, |' |8 `& N- r2 l- B) G0 a

　　: radio_button {

2 t! f8 X, u8 E) G0 f

　　label = "房间名称";

　　key = "c3";

　　}

% K `5 k; D3 k- d c

　　: radio_button {

5 `; x4 k2 p1 ~% L) Z' f2 V/ Y$ F7 ~. ~

　　label = "卫生器具";

　　key = "c4";

/ ]: W3 e4 R1 ?: p7 {

　　}

4 ]& |; V4 ]) P1 q0 l5 f / w/ z7 j2 N: u$ f* R1 H6 @) {

　　: radio_button {

! H7 X. I6 P* H" ~- J! M5 Y

　　label = "管材配件";

: K3 C( \4 a3 x D5 V$ e

　　key = "c5";

- D! c& s/ R8 c6 J0 f* A* r0 B- z

　　}

: V1 ~9 D+ L" t5 m) q9 v) \7 I$ k

　　: radio_button {

8 M$ p( ^# N/ l- D0 n & W% ]# x6 z* S8 {0 ?( `

　　label = "器材仪表";

, U7 P5 ? D& J7 e2 ?$ P% m# x7 `

　　key = "c6";

　　}

　　: radio_button {

　　label = "常用设备";

　　key = "c7";

　　}

　　: radio_button {

　　label = "构筑物";

# e* r+ E8 ?( n: C. }

　　key = "c8";

: F" G* Y: q/ Z0 _ [ , N0 a9 ~: _" X! R5 l" y2 a4 Y

　　}

2 t# `. Y8 F/ u& c# k

　　: radio_button {

　　label = "其它";

( c% g, M2 t* e# \/ p |' W a

　　key = "c9";

9 s& M0 x0 F1 C: s$ Y# t

　　}

v$ S9 Y3 ~5 s* P5 {, A1 I 0 S6 v. j+ W4 @3 j

　　}

　　: list_box {

　　label = "词组内容";

4 N& c+ ~5 V6 `

　　key = "what";

3 o: b1 G4 r+ e6 S' h8 }! P 8 J+ k# n% l# A: s" G1 W

　　height = 15;

　　width = 26;

" ^- F& K: B2 I3 _7 w( b- ^ ! h3 G9 R! e* j" R

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

; l2 L& M4 f, I( N2 R# T* s- Q) z! [ # k0 W4 u' H2 B- {! |* e. Z1 {3 H

　　}

D4 \) j" \4 E9 U9 ~$ V

　　}

　　spacer_1;

　　: edit_box {//编辑框

　　label = "所选词组:";

8 O9 N! _1 N" ^( I5 S

　　key = "sel_ok";

# [$ b1 x# P9 ~ M3 _3 L

　　}

' X# x" S6 y, P# S! o

　　spacer_1;//增加间距

$ a# t" `6 O! E! N0 J( p & x& ?3 p* Z! e- Z/ q

　　ok_cancel;

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

e: G$ |5 ]6 Y) i: h; ]( R6 s + H1 ?' v' H, X+ f W' @