AutoCAD內(nèi)常用術(shù)語(yǔ)的自動(dòng)標(biāo)注方法

arkv2006

摘要 [HT5SS]本文提出了一種用對(duì)話框?qū)崿F(xiàn)AutoCAD內(nèi)常用術(shù)語(yǔ)自動(dòng)標(biāo)注的方法。用這種方法，可方便地將各種常用術(shù)語(yǔ)標(biāo)注在圖中，為CAD應(yīng)用提供了方便。 5 C4 |. l5 Y- G5 X8 n7 K

一、引言

　　漢字的標(biāo)注在CAD設(shè)計(jì)制圖中是一個(gè)重要的部分，也是一個(gè)較為繁瑣、困難的部分。目前，在AutoCAD內(nèi)漢字的輸入大多采用拼音方式，對(duì)拼音不熟悉的人來(lái)說(shuō)漢字的輸入就很困難。如果能將設(shè)計(jì)中常用的文字術(shù)語(yǔ)直觀地顯示出來(lái)供設(shè)計(jì)人員調(diào)用，將會(huì)極大地提高工作效率。本文就此進(jìn)行研究，提出了一種用對(duì)話框（下圖）將常用術(shù)語(yǔ)顯示并供調(diào)用的方法，同時(shí)給出了源程序，供大家參考。該程序已應(yīng)用于我院的實(shí)際生產(chǎn)中。

4 A- R/ q8 {, X N/ z

二、原理及方法

　　AutoCAD對(duì)話框結(jié)構(gòu)包含有多種構(gòu)件，如edit_box(編輯框)、list_box(列表框)、radio_button(多選一按鈕)等，利用這些工具，可以開(kāi)發(fā)出界面友好的實(shí)用程序。

　　左圖就是用這種方法實(shí)現(xiàn)的。將常用詞組分類，分別存于不同的文件中。根據(jù)多選一按鈕中所驅(qū)動(dòng)的分組號(hào)分別打開(kāi)不同的文件，將文件內(nèi)容讀入并顯示于列表框內(nèi)，供設(shè)計(jì)人員使用。同時(shí)，設(shè)有一個(gè)編輯框，可將所點(diǎn)取的詞組顯示于編輯框中，便于用戶對(duì)詞組進(jìn)行適當(dāng)?shù)男薷模鐒h除或增加字符等。這種方法有一個(gè)優(yōu)點(diǎn)，用戶可十分方便地根據(jù)自己需要修改或添加詞組內(nèi)容。對(duì)話框文件及驅(qū)動(dòng)程序分別見(jiàn)#CAL.DCL及#CAL.LSP。

三、程序使用方法

先用WPS、EDIT等編輯程序分類建立詞組庫(kù)（注意，需要存成純文本格式），每個(gè)詞組占一行。程序要求將"常用術(shù)語(yǔ)"、"圖紙名稱"、"房間名稱"等各分類所對(duì)應(yīng)的詞組庫(kù)文件名分別為$TXT1.DAT、$TXT2.DAT、$TXT3.DAT厖。除第一個(gè)文件不能少外，其它文件可空缺，但當(dāng)點(diǎn)取該分類項(xiàng)時(shí)，系統(tǒng)會(huì)提示有關(guān)文件不存在的信息。

+ J- t& g7 | n4 [* K9 B

然后將所建立的詞組庫(kù)文件及所提供的程序#TXT.LSP和對(duì)話框文件#TXT.DCL拷貝到AutoCAD所能找到的目錄（環(huán)境變量ACAD所設(shè)置的任一目錄如ACAD\SUPPORT或當(dāng)前目錄）中，在Command：命令下鍵入（LOAD "#TXT"）進(jìn)行程序的加載，即可象其它AutoCAD內(nèi)部命令一樣使用#TXT了。也可在所使用的菜單文件（如ACAD.MNU）中的下拉式菜單或屏幕菜單部分加上下面一行：［常用詞組］^C^C^P(if (null c:#txt) (load"#txt")) #txt以后可直接從菜單中驅(qū)動(dòng)該程序。

在COMMAND：狀態(tài)下，鍵入#TXT后，系統(tǒng)彈出一個(gè)對(duì)話框，根據(jù)需要點(diǎn)取所需的詞組類別，再?gòu)牧斜砜騼?nèi)選擇所需詞組。所點(diǎn)取的詞組會(huì)在編輯框［所選詞組］中顯示。用戶可以在此對(duì)詞組進(jìn)行必要的修改，點(diǎn)取［OK］后，根據(jù)提示輸入字高及起點(diǎn)即可把詞組寫(xiě)到圖中。

需要說(shuō)明的是，本程序中是將文字以"HZ"字型寫(xiě)到圖中，要求字體為T(mén)XT.SHX及HZTXT.SHX。若您的軟件中無(wú)這兩種字體，可將其它字體改名為該兩種字體（要求一個(gè)為英文字體，一個(gè)為中文字體），或?qū)⒊绦蛐薷臑槟哂械淖煮w。但需要注意，也許您的字體在用于設(shè)置字型時(shí)會(huì)多一個(gè)選項(xiàng)，詢問(wèn)是否垂直書(shū)寫(xiě)文字，此時(shí)，可將字型設(shè)置一句改為：(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n" "n")即可。

本程序在AutoCAD R12.0 For DOS及For WINDOWS版上均調(diào)試通過(guò)。

) r8 ]/ u$ n F1 S7 I4 L

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

3 r1 H# L' D- @+ X' o T

; 定義錯(cuò)誤處理子程序

(defun txterr(s)

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

(/= s "Function cancelled")

(/= s "quit / exit abort")

)

) q# y1 ?% C! |: m' e$ D

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

. m* a- V- N9 B5 p3 |% d& w

)

4 M& a% k0 l8 G5 w

(if olderr (setq *error* olderr)); 恢復(fù)原系統(tǒng)設(shè)置

(if oldcmd (setvar "cmdecho" oldcmd))

* {4 M8 P2 z% p+ G; q. X+ s" o

(princ)

3 t7 M6 \1 e* m1 I6 P

)

- E" J- _- b9 v6 {5 b; d

; 對(duì)話框顯示及驅(qū)動(dòng)程序

(defun diag ( / i)

(if (> (setq dcl_id (load_dialog "#txt")) 0)；加載對(duì)話框文件

8 w0 {9 R' ]7 T5 I* [

(progn

& F/ ^ |( I5 c. f

(if (new_dialog "filetext" dcl [JX*6]id); 顯示對(duì)話框

(progn start_list "what")；將詞組顯示到列表框內(nèi)

4 g5 R5 ?! a8 ^3 h1 x

(mapcar 'add_list txt_tb

3 P. r1 K! e3 s! h3 d: l

)

(end_list)

2 X, Z; q, C/ b6 A* z

(setq i 1)

5 S" r } b" p9 o( W

(repeat nn；點(diǎn)取詞組分類項(xiàng)后的操作

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

(setq i (1+ i))

)

(action_tile "what" "(setq i (atoi $value))；選中詞組

: H- k7 y+ c: _* Q. T- J

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

* f) o' O& h% y7 r- q% Z0 U5 R

)

6 o2 c; R; U: a, i% x

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

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

, i: f' q5 ?& B! U; O' H

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

(start_dialog)

)

(prompt "\n無(wú)法顯示對(duì)話框FILETEXT! 請(qǐng)檢查對(duì)話框內(nèi)容!")

/ D& \0 [/ _; y, b" K t. v: E

)

% ]- ~4 `! X' W" k3 b

)

(prompt "\n無(wú)法加載對(duì)話框文件#TXT.DCL! 請(qǐng)檢查文件是否存在及路徑是否正確!")

)

)

; 初始化程序, 把第1個(gè)分組項(xiàng)中的詞組讀入表txt_tb中

3 G9 n/ s& B0 a& A" @+ }2 v7 g6 n. \

(defun init( / fname fp txt1)

- L1 m) p5 T3 J. x+ z( W- b) n

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

(if (not fname)

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

) X( z, f/ O( N8 W3 K- Z

)

(setq fp (open fname "r"))

8 N5 @6 P6 n: V9 E- @; u

(setq txt_tb '())

(while (setq txt1 (read_line fp))

, f2 v, o+ j/ Y! _2 `

(setq txt_tb (cons txt1 txt_tb))

0 F. K# w$ }7 R! Y; P

)

. Q. A: v7 c4 [

(close fp)

9 M/ f& U: g0 c6 I: b' k# O

(setq txt_tb (reverse txt_tb))

0 D" ]. a& u$ z" I; B

(setq old_nn 1)；記錄索引號(hào)

)

; 更換列表框內(nèi)詞組顯示內(nèi)容

(defun wr_txt ( / fname fname1 fp txt1 i)

(setq i 1)

! _( f3 I( k3 j4 i6 y4 h- s0 \/ u# x& f

(while (<= i nn); 判別哪個(gè)詞組項(xiàng)被點(diǎn)中

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

4 @0 G" K( }# i

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

# {3 y8 G, Y* _9 G% t! P

i nn

& B8 ]( Z4 W2 o; X+ Q* U E

)

)

(setq i (1+ i))

)

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

j" h" r' q3 }' t2 X! f+ f( ?

(progn

(setq old_nn (atoi (substr fname1 5)))；記錄索引號(hào)

(setq fp (open fname "r"))

(setq txt_tb '())

(while (setq txt1 (read_line fp))；依次讀出各詞組

(setq txt_tb (cons txt1 txt_tb))

)

(close fp)

(setq txt_tb (reverse txt_tb))

(start_list "what")；在列表框內(nèi)顯示詞組內(nèi)容

; ]$ B, C6 d! f: i9 }

(mapcar 'add_list txt_tb)

(end_list)

) ; progn

6 T* l6 l" d% Z5 N

(progn

* A* f( A' M3 q% h" J0 R" J

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

- G( Z4 k5 h" O( }# o

(set_tile (strcat "c" (itoa old_nn)) "1")；恢復(fù)原記錄號(hào)

)

) ; if

)

; 主程序開(kāi)始

(setq olderr *error*

. {. G; a& o3 n7 h/ n0 E4 A5 ]7 ~! i

*error* txterr

oldcmd (getvar "cmdecho")

( q8 b% m& p% [8 F" @$ i0 s

)

- i$ s2 R: a3 e+ e

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

( R0 S3 V7 L% B) m/ u, w7 d* w

(setq nn 9) ; 詞組分類數(shù)

- E9 `4 m; H, G% D3 S

(init) ; 初始化

. k. K! p6 W; B9 f; m. i- O- C

(diag) ; 驅(qū)動(dòng)對(duì)話框

(if (and ok txt)

; A1 v2 \. o. j1 O

(progn

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

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

(/=(getvar "TEXTSTYLE") "HZ"); 當(dāng)前字型是否為"HZ"

)

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

) N7 n" v4 }$ o' X4 q# j! r. S

)

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

7 W" h/ O; @6 U7 ~1 y7 S

(setq ht (getreal "\n請(qǐng)輸入字高<500>:"))

2 h' N0 ^; z# j4 n6 b/ l

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

2 m% u7 Z1 o% W) P% d% p

(setq pt (getpoint "\n請(qǐng)點(diǎn)取文字起點(diǎn):"))

: W. Y: Q7 x* @2 w

(command "text" pt ht 0 txt)

: Y& O2 S6 R* [4 i

)

)

" g% g1 E. Z/ E8 A. R, ~

(setq *error* olderr)；恢復(fù)原設(shè)置

(setvar "cmdecho" oldcmd)

8 k! h: X. K+ Z0 B3 ]

(princ)

5 f* x0 s/ C& w Z2 {

)

// #txt.dcl

, o% n U+ K7 Q$ r ]

// 供#txt.lsp調(diào)用

7 K C+ t/ U4 j+ v

filetext : dialog { // 對(duì)話框名稱

4 K8 q8 ~3 V# X0 B7 k& Z5 X5 R/ i8 S

label = "常用詞組"; // 對(duì)話框標(biāo)識(shí)

: row {

: boxed_column {

, F2 J3 N0 V* W# c9 {6 y, j

label = " 索 引 ";

5 ~: V" _. c4 k

: radio_button {

label = "常用術(shù)語(yǔ)"; // 多選一按鈕

5 y, p: w0 [! l. n2 U+ [

key = "c1";

6 W- ^- W7 O/ t; ]! z" Q( C: z

value = "1"; // 初始值為"1", 表示選中

/ @" y* N" j3 {" n, G0 a3 V

}

# u( q' J' |0 C0 Y4 ]

: radio_button {

label = "圖紙名稱";

key = "c2";

6 i* A( ]* K: X+ v/ K( l+ {

}

& x! Z2 D2 l7 p3 n* p2 J- L

: radio_button {

label = "房間名稱";

/ ^3 h/ i( a' {' J8 c5 X E

key = "c3";

}

1 Z; k$ e6 W, c0 `% W& y: ~- C# ~

: radio_button {

label = "衛(wèi)生器具";

6 @7 \- c9 O$ k$ A/ F

key = "c4";

y1 r# o; t. u e2 [ ?6 ~$ g

}

: radio_button {

label = "管材配件";

" g! G3 G* ?* P/ z3 m

key = "c5";

2 m6 h! M0 p7 v6 V- G9 f

}

9 m# `$ q' b" ]1 y* F4 O+ G

: radio_button {

. n; J2 G' s3 w7 R; H

label = "器材儀表";

key = "c6";

9 q7 }# |& s! r, ^9 ~% j+ J4 I

}

7 @; S5 K2 G' p' m$ e

: radio_button {

1 Y/ ~+ } s$ l2 [, t

label = "常用設(shè)備";

" \% F8 P' c2 y- e4 T' ~

key = "c7";

}

0 X* b: }0 b$ W M

: radio_button {

4 \ U# `4 z3 Q- z5 \

label = "構(gòu)筑物";

key = "c8";

& j, M0 L3 G& I$ O' }# i

}

, s7 d1 K; i/ m/ z- _, p

: radio_button {

label = "其它";

% q, F, q/ B5 m) p6 k6 A

key = "c9";

- S6 K2 T( {: {' ?- R

}

}

7 G# r' G+ e- j- e

: list_box {

2 J! s5 I( z+ H' ?1 g

label = "詞組內(nèi)容";

key = "what";

height = 15;

* V+ j2 p. y F

width = 26;

allow_accept = true; // 可雙擊鼠標(biāo)選取

3 o5 V, ^" \4 ^: \4 ~: t' f% `

}

}

spacer_1;

8 u3 y8 ^/ Z c/ Y6 C& B9 W" K

: edit_box {// 編輯框

label = "所選詞組:";

key = "sel_ok";

}

! A, l) |' E* j* C2 c G8 ?

spacer_1;// 增加間距

3 q3 y3 G6 N1 a6 W

ok_cancel;

}

昊令天下

就是啊，有點(diǎn)過(guò)于專業(yè)了，能不能淺顯易懂的講解一下，謝謝

monkeyzxp

有點(diǎn)過(guò)于專業(yè)了，能不能淺顯易懂的講解一下

文章aa

程序設(shè)計(jì)專用詞匯。使用者不用看

隨風(fēng)求學(xué)

這個(gè)不太懂，如果解決完，可以共同探討一下嗎？

英武殿大學(xué)士

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

jsj306

有對(duì)話框，挺高級(jí)的，不過(guò)這是機(jī)械社區(qū)，樓主是搞建筑滴

janbo

這個(gè)很專業(yè)啊。。。。謝謝！