AutoCAD內常用術語的自動標注方法

arkv2006

摘要 [HT5SS]本文提出了一種用對話框實現AutoCAD內常用術語自動標注的方法。用這種方法，可方便地將各種常用術語標注在圖中，為CAD應用提供了方便。 , U$ [. [. `0 Q9 p, a

一、引言

　　漢字的標注在CAD設計制圖中是一個重要的部分，也是一個較為繁瑣、困難的部分。目前，在AutoCAD內漢字的輸入大多采用拼音方式，對拼音不熟悉的人來說漢字的輸入就很困難。如果能將設計中常用的文字術語直觀地顯示出來供設計人員調用，將會極大地提高工作效率。本文就此進行研究，提出了一種用對話框（下圖）將常用術語顯示并供調用的方法，同時給出了源程序，供大家參考。該程序已應用于我院的實際生產中。

# B1 P" j( K+ T) r% V! e# K1 g

二、原理及方法

" u) }1 I: j; K, T) g) Z

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

- A& l* l" d' a5 K3 Q$ `( |

　　左圖就是用這種方法實現的。將常用詞組分類，分別存于不同的文件中。根據多選一按鈕中所驅動的分組號分別打開不同的文件，將文件內容讀入并顯示于列表框內，供設計人員使用。同時，設有一個編輯框，可將所點取的詞組顯示于編輯框中，便于用戶對詞組進行適當的修改，如刪除或增加字符等。這種方法有一個優點，用戶可十分方便地根據自己需要修改或添加詞組內容。對話框文件及驅動程序分別見#CAL.DCL及#CAL.LSP。

三、程序使用方法

先用WPS、EDIT等編輯程序分類建立詞組庫（注意，需要存成純文本格式），每個詞組占一行。程序要求將"常用術語"、"圖紙名稱"、"房間名稱"等各分類所對應的詞組庫文件名分別為$TXT1.DAT、$TXT2.DAT、$TXT3.DAT厖。除第一個文件不能少外，其它文件可空缺，但當點取該分類項時，系統會提示有關文件不存在的信息。

然后將所建立的詞組庫文件及所提供的程序#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］后，根據提示輸入字高及起點即可把詞組寫到圖中。

. C V. w- q4 v) J7 c

需要說明的是，本程序中是將文字以"HZ"字型寫到圖中，要求字體為TXT.SHX及HZTXT.SHX。若您的軟件中無這兩種字體，可將其它字體改名為該兩種字體（要求一個為英文字體，一個為中文字體），或將程序修改為您所具有的字體。但需要注意，也許您的字體在用于設置字型時會多一個選項，詢問是否垂直書寫文字，此時，可將字型設置一句改為：(command "STYLE" "HZ" "txt,hztxt" 0 0.7 0 "n" "n" "n")即可。

6 T& N# H1 }9 k( ], e

本程序在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)

0 N6 `: ^# w v) N; O: T' z' h

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

9 x# `3 n2 L! e+ C0 h% t; y

(/= s "Function cancelled")

( S6 g$ T# W" k

(/= s "quit / exit abort")

)

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

4 I8 @1 c2 F0 C" X3 |# D

)

" U; H( p+ Y7 `% Y. V8 m

(if olderr (setq *error* olderr)); 恢復原系統設置

(if oldcmd (setvar "cmdecho" oldcmd))

(princ)

4 Z% v) o' Z0 j) w; d( r

)

; 對話框顯示及驅動程序

(defun diag ( / i)

( |4 ~( o8 Z- O0 Q- j/ T* Q) c

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

' S' l; G1 {$ u& }! N

(progn

8 v' O# c& L& [* a; C+ O3 b

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

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

8 g: r3 Y- b3 H' u" f) n

(mapcar 'add_list txt_tb

( B) {% O" t' e5 a- l4 \

)

(end_list)

(setq i 1)

(repeat nn；點取詞組分類項后的操作

# @% o0 J1 Z8 `9 W* ^' r: Q

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

(setq i (1+ i))

)

% }4 ?' k9 L" u

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

& G g! `8 j# n7 n" b' G( X

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

* M4 K9 b& x$ t9 o+ T

)

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

' m" _2 u9 `8 V) J

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

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

(start_dialog)

)

/ s' E2 N# i; c. P) H; I- ^" F d

(prompt "\n無法顯示對話框FILETEXT! 請檢查對話框內容!")

)

! r( C4 }& n) C: T- h! f+ ^' \- [$ \

)

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

2 a" Y0 E9 \0 F0 { Q9 g' L- r. V

)

)

; 初始化程序, 把第1個分組項中的詞組讀入表txt_tb中

! [' V3 V0 ~9 q1 L1 b8 g% B: L

(defun init( / fname fp txt1)

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

* i, s2 _6 j1 `/ |

(if (not fname)

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

)

( }: ^( S$ q9 g

(setq fp (open fname "r"))

! X% j- ^& ` |* `

(setq txt_tb '())

(while (setq txt1 (read_line fp))

(setq txt_tb (cons txt1 txt_tb))

! y, g6 B+ U/ \2 D

)

(close fp)

5 P0 s/ V: K# I! l6 q

(setq txt_tb (reverse txt_tb))

(setq old_nn 1)；記錄索引號

: o2 G+ b3 }* ?6 r& `6 t& [

)

; 更換列表框內詞組顯示內容

(defun wr_txt ( / fname fname1 fp txt1 i)

& n# T9 T; l( d& }4 G

(setq i 1)

' P- }2 g0 ?* B

(while (<= i nn); 判別哪個詞組項被點中

6 i5 L$ O% E) m. z& D: E! v

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

2 }+ P0 r6 R+ U4 R4 l4 l

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

$ Q: p1 d$ m1 a+ b- z, }1 `

i nn

)

)

1 g/ t) j T5 }. f- \/ ^" L& g

(setq i (1+ i))

4 @8 p3 C+ s+ M4 r% p) W- W: }

)

- Q- i) V8 }) m$ y3 Y2 F' k

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

(progn

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

: N* ^$ \1 g& e$ E+ ~( v; M# l

(setq fp (open fname "r"))

(setq txt_tb '())

G5 c k2 t' K

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

(setq txt_tb (cons txt1 txt_tb))

)

(close fp)

* S! W) p. ]' G& t4 {

(setq txt_tb (reverse txt_tb))

4 W" h; X& e& l0 A* n% @

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

5 N) {4 F- R7 S; B8 V/ M

(mapcar 'add_list txt_tb)

(end_list)

) ; progn

(progn

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

2 C F* h" C2 U( t8 l% m) R% j( Z

(set_tile (strcat "c" (itoa old_nn)) "1")；恢復原記錄號

2 Y9 a% c% }6 G, [$ r

)

* ?+ v- v0 `. @! F6 F6 a

) ; if

)

; 主程序開始

(setq olderr *error*

*error* txterr

p$ e1 w8 U$ Q5 w, m" O

oldcmd (getvar "cmdecho")

)

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

(setq nn 9) ; 詞組分類數

(init) ; 初始化

) x0 ]- @) w' N0 b( L

(diag) ; 驅動對話框

$ h) ] A4 r: S8 H( U+ t7 ?5 ?6 l! R

(if (and ok txt)

; D8 i, r7 i% [4 q. G

(progn

& X3 g# l5 q1 x# h# _, O0 n( A, A3 i

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

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

" v$ Z) j8 s1 e0 H! j' t

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

1 | G4 C9 w: ]$ V/ a3 \$ K

)

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

# L0 o$ B: J7 [0 ?' a) Z$ }

)

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

6 W* j5 ~ r7 ]! E' c% A: I

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

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

(setq pt (getpoint "\n請點取文字起點:"))

8 x; Y7 }" B+ B- Y; C: d

(command "text" pt ht 0 txt)

)

)

5 n3 b P. k/ n6 ^& C7 B4 w

(setq *error* olderr)；恢復原設置

(setvar "cmdecho" oldcmd)

( Z M- z- J& B- ~; f

(princ)

' E( H1 a) O: V) M" \; n+ n7 h. H. q" G

)

// #txt.dcl

// 供#txt.lsp調用

filetext : dialog { // 對話框名稱

: y2 d; K: i8 L) M2 J

label = "常用詞組"; // 對話框標識

: row {

: boxed_column {

label = " 索 引 ";

: radio_button {

4 Y9 a, r* @: M) m w

label = "常用術語"; // 多選一按鈕

key = "c1";

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

1 p3 |3 b, r9 g' R( B

}

9 F' H" o) @- p4 v9 v+ a

: radio_button {

8 I/ }* O7 ] h1 B8 F

label = "圖紙名稱";

key = "c2";

}

: radio_button {

# p6 v9 j$ M1 G5 W0 P H

label = "房間名稱";

key = "c3";

8 @) G, Y( L4 w( Y8 b! H E0 x

}

: radio_button {

# Y" {4 u S2 k7 b8 v

label = "衛生器具";

# G) [( ^/ q; @2 _3 T

key = "c4";

}

: radio_button {

3 h" z- c3 h$ h! A

label = "管材配件";

key = "c5";

}

* j' I: e' o9 _+ G: n

: radio_button {

- r: B! c" |. P7 l- B4 Z

label = "器材儀表";

key = "c6";

; f, @) ?( N$ M: _+ A, i! J& y( ?

}

9 |; w a, q: i( Z' k7 O

: radio_button {

label = "常用設備";

: Q% n9 H: c5 _0 m

key = "c7";

}

: radio_button {

. o5 ^* c a- V& ~; `; B1 |: L

label = "構筑物";

8 ~+ P' R q. l1 {0 v0 O

key = "c8";

! C( }$ h" b9 q. F3 R

}

: radio_button {

label = "其它";

/ p! K! ?# l6 _

key = "c9";

7 |1 Y: _8 {( S$ ], K8 G* p/ T" s

}

}

: list_box {

$ p& O$ j. @: [, _+ e9 ~

label = "詞組內容";

key = "what";

/ i5 U8 v G) ^% w6 j

height = 15;

width = 26;

allow_accept = true; // 可雙擊鼠標選取

}

}

, l! T7 H' O+ y5 d( a! A! i

spacer_1;

: edit_box {// 編輯框

" B: u4 r p/ a8 S8 u+ O

label = "所選詞組:";

key = "sel_ok";

}

0 Z+ N( O% e4 ~+ B9 f0 Q/ U: r

spacer_1;// 增加間距

6 \5 _! P6 ^) O4 T8 K) ]: H# ^

ok_cancel;

4 }- s4 g6 [! h5 ~% @+ h+ J

}

昊令天下

就是啊，有點過于專業了，能不能淺顯易懂的講解一下，謝謝

monkeyzxp

有點過于專業了，能不能淺顯易懂的講解一下

文章aa

程序設計專用詞匯。使用者不用看

隨風求學

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

英武殿大學士

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

jsj306

有對話框，挺高級的，不過這是機械社區，樓主是搞建筑滴

janbo

這個很專業啊。。。。謝謝！