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)用提供了方便,。

一,、引言

　　漢字的標(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)中。

0 N; w2 k( s" {0 }

! S$ {1 M( i# ^# R' r, \4 y

二,、原理及方法

$ R1 l4 g( A0 \3 E

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

* j7 ^( Y3 G1 ~5 q" P

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

三、程序使用方法

- a1 U; ~: ^0 i2 @! C. `

先用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)文件不存在的信息,。

然后將所建立的詞組庫(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)�,。跲K］后,，根據(jù)提示輸入字高及起點(diǎn)即可把詞組寫到圖中。

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

& w! T$ h2 Y1 v

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

) ]0 T/ j- u- C8 d5 o( [

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

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

(defun txterr(s)

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

* M; R/ H/ v( ~ E6 z

(/= s "Function cancelled")

(/= s "quit / exit abort")

)

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

)

0 h" Z" | n( Z* h6 x

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

& Z% A# n3 a, D' v3 M) d

(if oldcmd (setvar "cmdecho" oldcmd))

(princ)

)

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

: C7 L2 h* F! i* v( L K9 H

(defun diag ( / i)

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

(progn

! J9 H! W' F/ l: n" n& k

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

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

& G9 b1 y9 a0 w8 ^8 ~8 e2 ^

(mapcar 'add_list txt_tb

)

& D2 @8 G6 H9 t* z6 b7 N

(end_list)

(setq i 1)

1 U& q1 q. X2 O7 c* y) \# P

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

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

(setq i (1+ i))

/ q5 Y1 w* `0 W' K

)

$ y2 e. C$ Q# k

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

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

)

2 }0 M- o1 h: Z" R3 \$ {$ w4 \9 R

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

5 K5 k" u* {& D; ^# f# D

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

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

& v ?# r) K9 Q, [

(start_dialog)

$ W" b. p x; V9 r8 D, }8 I

)

1 \/ ]' F4 Y% \. T6 P% w

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

+ L- y; e# ?- A9 p

)

)

a y+ B( A+ x! P7 U, h6 v

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

)

)

0 I* c# T! d) i. H5 T

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

2 L2 o9 i% w2 U

(defun init( / fname fp txt1)

- f. Y' D/ W% @8 r2 V* h

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

( P3 {& ~; c$ a9 U1 {/ j

(if (not fname)

; V! B3 \( B% U) q

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

$ k5 A3 W0 U$ b4 g/ l

)

/ a. ?5 B* ]2 S* ~( S/ V

(setq fp (open fname "r"))

(setq txt_tb '())

(while (setq txt1 (read_line fp))

" q% F i2 j& i

(setq txt_tb (cons txt1 txt_tb))

)

(close fp)

(setq txt_tb (reverse txt_tb))

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

)

/ ^, [+ j5 Z/ _

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

(defun wr_txt ( / fname fname1 fp txt1 i)

7 @9 c* W. \5 U' f J6 a/ z7 N# x

(setq i 1)

7 d/ G( J* u5 J$ B3 _1 t

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

k6 s1 C5 h/ Q! X& A6 _

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

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

i nn

% d4 D0 h5 Y5 O$ I& [% R" l0 x

)

)

(setq i (1+ i))

/ \6 t3 M Y; G8 O8 F

)

q2 m1 T8 ~3 M p% v

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

* A0 R; I; V7 l- T( d

(progn

# P' A, V8 j. O* w, k

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

% V- w, w% [0 u. W

(setq fp (open fname "r"))

5 F0 a n6 t3 ?) }" U* Z5 O

(setq txt_tb '())

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

(setq txt_tb (cons txt1 txt_tb))

)

(close fp)

5 v+ l, c! f2 y1 o, Y

(setq txt_tb (reverse txt_tb))

7 z- n) Z2 _0 r, _: S

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

(mapcar 'add_list txt_tb)

- l x/ R: A2 O3 O3 w+ O. b

(end_list)

) ; progn

(progn

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

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

% T9 F: Z4 V0 W4 h, L+ e

)

3 w4 V% T0 ^: ?- [9 N" g

) ; if

)

+ H- [% _. g8 ?- ]

; 主程序開始

4 d- N6 s3 N- y3 W$ x, ^; M

(setq olderr *error*

*error* txterr

! O% N4 h, t2 O$ _8 W

oldcmd (getvar "cmdecho")

" O6 l1 X8 r# Z5 V- z- R

)

& Y, h/ i, f" ?: j

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

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

0 d- w4 q/ T& C# _3 X+ n" a* [; ^+ a

(init) ; 初始化

8 }2 W+ ~) D- p/ f( j, ]

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

(if (and ok txt)

(progn

- y, S# G& j1 I2 d

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

" I8 @" c) q9 R* I$ \

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

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

)

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

3 j4 l t! O/ U8 s

)

) K- c- `0 e9 e; c. L; Q

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

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

% q' ^3 Q) U1 ?& h6 l- ?0 Y f* p

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

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

(command "text" pt ht 0 txt)

)

)

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

(setvar "cmdecho" oldcmd)

(princ)

)

// #txt.dcl

/ X: b& U$ E& {4 f6 d; E

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

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

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

/ [- _ n$ ]# t1 [( v! o/ U) y$ C. c

: row {

: boxed_column {

label = " 索 引 ";

- f5 L; K7 z% |! i# u. k9 _

: radio_button {

# l+ w7 Y4 C4 {; b% f

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

" u; S, k' D/ h1 J7 @8 m. a

key = "c1";

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

# C& o. k; @# D9 x, B# ^

}

: radio_button {

' U7 A4 f: m; X9 e3 o2 h# O/ d5 Y

label = "圖紙名稱";

key = "c2";

}

+ R5 p% ^% L6 \& H; f

: radio_button {

3 a$ y) N( S: a- \

label = "房間名稱";

key = "c3";

}

" C& _0 B3 h6 ^1 S

: radio_button {

4 j" Y5 _: C7 M h% y7 z% y3 V

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

key = "c4";

}

: radio_button {

label = "管材配件";

; g0 U. ~, v2 y3 q/ W: c2 R* D C

key = "c5";

/ ?3 P! l: p7 N. o- F

}

: radio_button {

0 b' e9 t) ^& @

label = "器材儀表";

* S- s( [ f* P& D9 a6 m# ^

key = "c6";

}

: radio_button {

0 @' |6 L+ f" B S+ A! Y

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

key = "c7";

}

% V! J1 m+ g, I, d7 O

: radio_button {

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

key = "c8";

}

5 d* `$ h2 z2 v: v/ U& B4 w* ^

: radio_button {

label = "其它";

6 T: Z6 {/ U% ^( {& Z2 o2 S

key = "c9";

$ J% u1 b0 ~9 M( o+ z6 I

}

' v4 N8 A1 {% Z3 l# H4 a r7 x' s

}

: list_box {

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

# |* U3 ]4 x6 h8 I4 d. I

key = "what";

height = 15;

width = 26;

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

}

5 O2 }- X5 I5 t6 Y* B$ A

}

' X5 B% j& ^3 m h

spacer_1;

: edit_box {// 編輯框

label = "所選詞組:";

, C' u# ?6 N" Q

key = "sel_ok";

}

3 q2 r5 J1 k4 K2 _

spacer_1;// 增加間距

ok_cancel;

9 D ^6 ]7 p6 S

}

昊令天下

就是啊,，有點(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è)啊。,。,。。謝謝,！