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

arkv2006

摘要 [HT5SS]本文提出了一种用对话框实现AutoCAD内常用术语自动标注的方法。用这种方法，可方便地将各种常用术语标注在图中，为CAD应用提供了方便。 I5 s, U' F% S( E, v5 w

一、引言

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

二、原理及方法

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

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

三、程序使用方法

/ H, p5 t5 c7 O! m ^

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

/ ^% T3 t) z; M3 O- B7 k

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

6 H, H6 r* _. l) \

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

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

7 F1 n/ ?( q- u3 `

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

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

; 定义错误处理子程序

(defun txterr(s)

7 L* Q* {. d( X# p- E6 j

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

6 K4 b9 m* I* o+ [* t7 N

(/= s "Function cancelled")

(/= s "quit / exit abort")

)

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

5 s2 k3 n. K# y8 b5 @* h+ y

)

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

(if oldcmd (setvar "cmdecho" oldcmd))

" q/ k# M# G4 u/ M

(princ)

)

; 对话框显示及驱动程序

' i- N4 x3 ?& J. _, s! Q& s

(defun diag ( / i)

" i( G# B6 Q R @! ?

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

& w) g* O }4 c

(progn

8 |' q$ h9 J+ l* c7 s9 g

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

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

(mapcar 'add_list txt_tb

)

(end_list)

* i/ u/ b- @0 e: I4 v

(setq i 1)

0 h: T: X9 W9 y; \. U0 @

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

2 Z# _$ z( ?7 V5 [7 E' I

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

; H! Q: F k- r2 f9 e

(setq i (1+ i))

' e3 P; Q. v z9 V

)

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

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

)

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

% m2 J, I: G8 p3 k! A

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

q c! d% v4 X) A" c

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

- @; s3 L$ z7 X) U4 S8 a# N

(start_dialog)

)

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

)

)

3 D- K: H3 Z. n8 ?8 W

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

0 K" V1 J, b+ Z6 W$ [

)

$ {' G5 k+ p: P V* k

)

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

9 d7 \1 G1 x( ^* J+ d7 ~/ F7 F

(defun init( / fname fp txt1)

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

, U1 p0 Z9 `5 y! P1 b

(if (not fname)

; M5 N$ Y" p8 _9 I, F' k2 s, M

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

)

+ j+ f. q2 \' J7 W, W8 ~4 h" ?

(setq fp (open fname "r"))

2 U- M- [( \$ H+ v; i, r

(setq txt_tb '())

( ^; a# v4 l, }* Z

(while (setq txt1 (read_line fp))

+ {& [5 v8 _9 x2 ~: Y4 \. a: f

(setq txt_tb (cons txt1 txt_tb))

)

) R& P4 k: U* D/ J

(close fp)

(setq txt_tb (reverse txt_tb))

(setq old_nn 1)；记录索引号

7 d# q/ [* j( w4 |' A. l

)

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

(defun wr_txt ( / fname fname1 fp txt1 i)

(setq i 1)

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

3 ?, z# L# i0 |; t" c4 Z

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

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

i nn

)

* h! T4 C4 K, g# `$ c2 P6 m

)

. I- _0 ?% E8 j6 {* m4 A

(setq i (1+ i))

)

; u! B9 I' t2 H+ u9 U" L

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

(progn

: `* r4 I9 p! ~4 e$ W k9 i8 [( n

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

(setq fp (open fname "r"))

(setq txt_tb '())

/ w- D: l9 Z- S0 a

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

(setq txt_tb (cons txt1 txt_tb))

5 ]' Y! B; k# F5 c; j& \6 z0 I n7 q8 {

)

(close fp)

(setq txt_tb (reverse txt_tb))

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

(mapcar 'add_list txt_tb)

(end_list)

/ ~) d- _" i2 p3 C. S' w o2 H

) ; progn

(progn

" ~: U& u# y! h X4 N

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

- {/ \" I) O: x5 _

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

" [* T% p4 Q3 t6 w! B( h: `$ p. Z* j

)

1 {7 ^4 l9 [" j8 H

) ; if

)

, i/ t/ d5 |; \$ P6 l/ Z. R3 Z% G, h

; 主程序开始

(setq olderr *error*

7 T6 r( T6 ?2 E

*error* txterr

oldcmd (getvar "cmdecho")

)

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

(setq nn 9) ; 词组分类数

1 J- X$ v+ Y- s' E7 ~! g$ K

(init) ; 初始化

(diag) ; 驱动对话框

(if (and ok txt)

(progn

0 ~, b* u8 c5 w0 o

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

) M- `- z, F6 S; i5 ]

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

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

3 ~. \6 A5 j5 B: d

)

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

B3 S# ^* a* g9 E j h, R3 Q

)

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

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

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

9 R; G" Y) m3 e& ?2 R% X

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

(command "text" pt ht 0 txt)

)

)

2 {4 u: x4 E3 k; s5 g. W2 s

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

, x/ Q6 y0 E5 X* M) s

(setvar "cmdecho" oldcmd)

(princ)

3 y% A& W& T. a/ N1 G6 H

)

# c6 J: B; H, T) m! H2 D$ y

// #txt.dcl

% P! g1 c* u0 R l

// 供#txt.lsp调用

filetext : dialog { // 对话框名称

- F9 p- j# o" q! f; c3 @( R

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

5 f2 s9 J8 l0 a* d5 V1 |

: row {

. T: o% X: }" `3 I$ C

: boxed_column {

label = " 索 引 ";

: radio_button {

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

key = "c1";

7 h0 U6 A, d1 v4 v& w/ m/ t

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

$ e1 A* ] Z% d2 E+ ?5 P

}

: radio_button {

label = "图纸名称";

( L% ?* v- Q1 E

key = "c2";

" B% w& T& @. K) w9 M

}

: radio_button {

label = "房间名称";

; v3 P8 { x4 E

key = "c3";

}

: radio_button {

7 q; q. G; @; `/ F2 c

label = "卫生器具";

s9 G/ g7 u8 ^$ y, ?" O" e. L. i

key = "c4";

. ?0 W8 o' i5 l8 l9 w- |! b/ r3 K

}

! i2 a! M, q0 m/ _

: radio_button {

) h5 o# P" c, M7 Q

label = "管材配件";

* i8 u$ R9 o& A: r% X8 p

key = "c5";

+ i1 M, x; F4 l5 i- H- L; s# |; U4 [

}

' ? z1 n& o4 j

: radio_button {

9 I7 u; Y1 @9 i# y* K" ~/ Q, F

label = "器材仪表";

key = "c6";

}

; H( \7 j: G9 x" Q" U

: radio_button {

label = "常用设备";

/ Y+ A; R) ]$ L$ _1 o) |

key = "c7";

' P6 r8 h8 `, J( ?5 u

}

1 h' b- }- w# V6 S- R# T9 v' b

: radio_button {

9 f- r, Z7 k- P1 s

label = "构筑物";

! q T/ ?6 ~0 e" t% t

key = "c8";

, ?+ ^4 D/ S8 ~0 n6 i+ d

}

- e& ~8 U3 z! A5 q5 e# @: f: }

: radio_button {

( u! k, Y- t5 T# }5 f# v4 `

label = "其它";

key = "c9";

}

3 g' [ Z w* h4 C% ^

}

: list_box {

label = "词组内容";

key = "what";

height = 15;

width = 26;

5 `1 l6 ]1 \6 Y/ {5 |- x' o: r

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

* S: O5 [8 R& |+ f; K

}

3 r3 W1 d: X2 W

}

+ Q$ E" q* e; \. w" E; v

spacer_1;

; q' m& |+ N9 t h3 V3 q- Q

: edit_box {// 编辑框

label = "所选词组:";

key = "sel_ok";

% a, B2 \9 A& ? ], F2 d: i$ J

}

9 | w g& H$ {

spacer_1;// 增加间距

; S- @" t1 m2 ^! w& O9 x( D

ok_cancel;

7 W8 Q, K2 q X Z, n& G+ @( `* L8 C

}

昊令天下

就是啊，有点过于专业了，能不能浅显易懂的讲解一下，谢谢

monkeyzxp

有点过于专业了，能不能浅显易懂的讲解一下

文章aa

程序设计专用词汇。使用者不用看

随风求学

这个不太懂，如果解决完，可以共同探讨一下吗？

英武殿大学士

不太懂啊·············

jsj306

有对话框，挺高级的，不过这是机械社区，楼主是搞建筑滴

janbo

这个很专业啊。。。。谢谢！