久久久国产一区二区_国产精品av电影_日韩精品中文字幕一区二区三区_精品一区二区三区免费毛片爱

機械社區

標題: AutoCAD內常用術語的自動標注方法 [打印本頁]
作者: arkv2006    時間: 2006-8-29 08:47
標題: AutoCAD內常用術語的自動標注方法
摘要 [HT5SS]本文提出了一種用對話框實現AutoCAD內常用術語自動標注的方法。用這種方法，可方便地將各種常用術語標注在圖中，為CAD應用提供了方便。 3 _" p( f6 Z8 t v! s0 b

一、引言

/ M* ~/ e8 S( k* b9 Q

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

0 W( p ~& }! E$ g

D# G/ v) @& g# f

二、原理及方法

( C: C* o/ Q) D0 T0 R1 Y

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

/ N7 G# i" [4 \( \

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

: ~# T) i" A, b7 M

三、程序使用方法

4 T! p) q3 T0 N$ q

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

& N, @0 \& _# N. ^6 Y% Y, 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以后可直接從菜單中驅動該程序。

" s3 @6 I6 I& k

在COMMAND：狀態下，鍵入#TXT后，系統彈出一個對話框，根據需要點取所需的詞組類別，再從列表框內選擇所需詞組。所點取的詞組會在編輯框［所選詞組］中顯示。用戶可以在此對詞組進行必要的修改，點取［OK］后，根據提示輸入字高及起點即可把詞組寫到圖中。

; s, H6 Q6 Y* v

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

0 w& ^8 p" u' u( c

本程序在AutoCAD R12.0 For DOS及For WINDOWS版上均調試通過。

: `2 W6 S, P2 @" N& ^+ F) s# K, t6 x

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

' A! x: e+ V8 P0 R. u& Z/ [+ H

; 定義錯誤處理子程序

5 K0 w9 e' r. h& R* T0 i' m( G I

(defun txterr(s)

# \& H: k( j2 d

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

8 x9 M1 b( l& x* U4 y

(/= s "Function cancelled")

+ a" I3 {2 i' I& L9 \6 j0 v" P

(/= s "quit / exit abort")

9 c! y. I! O% z; F1 M# I$ p

)

- M* Y9 H( I7 m+ b8 x

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

0 P' @+ k0 Z0 X% D" x

)

% v8 {' B7 l" a, d

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

0 Z1 c% V( X" @6 x) M+ d

(if oldcmd (setvar "cmdecho" oldcmd))

6 A8 ^/ O' F+ d$ C! Y2 l3 E

(princ)

8 ]3 ]5 n# N# d, g- K$ W f! i7 r

)

8 {' s" C: s0 I# t. ~; R3 C

; 對話框顯示及驅動程序

4 ?3 p9 R1 t! {: y

(defun diag ( / i)

/ Q+ O" A2 b' ?# E

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

5 N% O2 z, |9 k G2 I

(progn

5 [. k! e2 y! o4 s& n

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

6 M0 R4 @4 C# \ [) \1 v

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

- e4 h# C% l: N( N

(mapcar 'add_list txt_tb

! `) ?- r/ d6 |2 G

)

* c- D5 y' V. {, J

(end_list)

' D" _6 k4 O* E. ]. b8 N

(setq i 1)

4 V2 S! d2 J6 D3 d1 M" }" Q% X/ a

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

- R4 ^ c" [2 y9 h- D

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

7 f. ]8 [ ?4 Q2 n& G

(setq i (1+ i))

9 c6 m" J- y' O' d! y

)

( G9 R, y( V: Z' F4 V/ F7 A4 H

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

+ c9 s/ J9 z+ F0 H; q2 p

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

6 u3 W5 p* M* ?+ Z

)

* O$ w8 Z' U* o* e+ y; k+ |

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

; l5 h1 X7 Z2 m0 m' i' `

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

; C) ]/ |! D0 o% A% a( X

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

* v% f2 L/ U6 e: i: W: a

(start_dialog)

1 x) s- o' W. N

)

1 w2 j, w/ c/ |' M3 d

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

1 R7 ~+ @# B3 K# z( r+ d. n& `1 f

)

6 n2 |7 I% S* h1 r% X( Y

)

2 ^ `: j- i1 d, W+ a' l) K. |

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

9 }4 C% P+ U. p7 y( P# N

)

" f) f# V2 D5 x( Q1 q3 C O' }1 H

)

: e; d2 }/ O- {& ?9 q' s* S) }

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

& U5 M, B, D# U: s; Y: c

(defun init( / fname fp txt1)

5 g: z# Y: r% d# ]

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

3 S- A- c; ~( v( Y8 q

(if (not fname)

: O) E. l2 j6 P! c& C$ O

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

, s+ S2 `; Z( |4 F) h

)

2 L( H- a7 ?) \( K8 P# Z4 B& E

(setq fp (open fname "r"))

9 ^6 T. b# X9 B& y/ t- b

(setq txt_tb '())

8 {7 c6 b d1 b: [

(while (setq txt1 (read_line fp))

; B+ t5 b8 i8 G# e

(setq txt_tb (cons txt1 txt_tb))

/ e7 g) B1 L0 A; v4 J3 Y, A

)

9 d% C! P1 K* O; z* g

(close fp)

8 [, y t$ L) X

(setq txt_tb (reverse txt_tb))

; l% b# A1 G2 Y4 A3 x+ I

(setq old_nn 1)；記錄索引號

$ Q" } J, M9 @3 U2 c

)

, e. ^2 _! c# `# z3 z7 K

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

) G4 J- u h1 D) d/ y

(defun wr_txt ( / fname fname1 fp txt1 i)

4 ^4 H" R. ?6 M0 `( ^. o

(setq i 1)

' P$ x: D1 @8 ~, V2 T# W

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

( s/ E8 {8 M0 M9 K9 d

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

9 F! M& c5 q, {' o7 o% g0 }

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

; _( M0 w0 U& b/ \2 O; _& ^

i nn

) P$ e$ Z4 ^( e0 g& V# ]

)

" z: w$ T4 }' p3 m+ ?+ {$ y, p

)

/ I3 J0 U0 b Z( ~8 m6 @: A

(setq i (1+ i))

7 g% R" }+ W3 B- x% m1 T

)

; \7 L. L9 U& ^ o) D, v, O# R3 k7 P

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

1 v5 g3 J# q5 V' V3 @( m9 Z2 Q! L

(progn

& _: g3 g7 i5 `* {7 t

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

1 e. j' s# {7 a& z/ i% j; q

(setq fp (open fname "r"))

, m9 C- i% k& m' ]: P3 K

(setq txt_tb '())

& L& b- Z, X2 [, V. A2 D8 v+ p

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

2 Q; {' P, R; I% X3 g2 S

(setq txt_tb (cons txt1 txt_tb))

G4 M6 M2 n* ~% `! k

)

- O3 E3 p9 t; A5 @ Z/ {

(close fp)

& @; }* |) `; Z: Y6 E

(setq txt_tb (reverse txt_tb))

/ H. i9 T* q; p- X+ J

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

& f+ y% q8 H+ ~, j

(mapcar 'add_list txt_tb)

0 ?$ [9 j/ m, ?1 t8 K; l

(end_list)

. z2 a2 V* x4 d

) ; progn

1 x0 w1 }( g; H/ |3 \; \. I

(progn

5 D5 }* Y* m7 y& M, ]

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

7 \% N( x7 \9 D# ?# n

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

* R- A, o' D% l# u, s O8 A# m

)

7 u1 V U! O1 l m

) ; if

' A* g3 H5 D2 a/ I4 @% A& X

)

1 W: ]# W7 Z7 O$ q6 V

; 主程序開始

( a0 I# V1 |3 K6 r+ v

(setq olderr *error*

. L3 M3 A& W; a% Q3 e4 Q+ A' e

*error* txterr

% w7 k$ S% @7 V) d% ~% W

oldcmd (getvar "cmdecho")

9 k5 w' w) z3 S" G: b4 o. Y

)

, u* D* t0 a$ P& |; O0 R

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

+ M5 n8 w- ?; F8 S, ?3 @

(setq nn 9) ; 詞組分類數

3 P' [# t0 ^) \8 e7 [

(init) ; 初始化

3 n; P* O$ r8 n6 R- }# |

(diag) ; 驅動對話框

" j7 v. P4 Q( r' B3 q v

(if (and ok txt)

w# f# H; U F$ E, c

(progn

0 P9 j& ?; l( s. h

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

) s6 R+ W2 k* f1 ~

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

S" h- o; `( e9 I6 v. `

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

: [! ?( \- q! ?+ z1 i) r

)

* t4 v5 k# H/ `2 `- e- _

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

. W9 K& p* L% Q( X

)

. L4 R2 h7 H. X/ I n- u, \4 q6 P) p2 U

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

' ^# z/ u" l: ~* Q% k4 I

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

( P' g$ @) h- R! u- j

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

# o2 M( J b M1 K6 l8 @

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

$ O* R6 j6 c% h2 m

(command "text" pt ht 0 txt)

1 h; E8 ]$ K3 f @" _

)

6 l; m+ O t7 H& Y+ c6 J

)

! K, S& z0 a* k5 q

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

. X9 g7 X1 P" K) P9 L0 k# I2 [' {

(setvar "cmdecho" oldcmd)

~8 y( C6 }: i' F+ d8 r2 ~

(princ)

, \- @( g; W# h0 O( l# B1 R* [

)

4 Y) u: O3 Q/ Z( w8 c2 i' ?& b

// #txt.dcl

2 D+ t$ ?3 m/ x8 x( O6 Y m

// 供#txt.lsp調用

/ }1 Q' g, \0 G' Y% m

filetext : dialog { // 對話框名稱

% i6 c9 K& g. w5 Q3 \8 \

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

! K/ a- ~ [2 l) H

: row {

0 w; |. O4 K: N% `& {; |2 G

: boxed_column {

8 p1 x. }: P( y9 z; q* x

label = " 索 引 ";

- i. d0 g* S4 R8 A! {

: radio_button {

# P9 N4 @9 E! u- E, X3 A; D u! ]

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

0 H; b# R5 r8 U0 Y, N& x

key = "c1";

2 K6 b) f: ?: C+ C3 [

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

# w/ K! ?1 m" z5 v" h3 N+ J

}

% f* l# o8 l6 E$ v0 V- z" _. N! X% G

: radio_button {

; Z7 v+ R9 W9 O0 L( G

label = "圖紙名稱";

% v' S0 J# G8 q3 m

key = "c2";

# f7 N* A1 [% Z* N

}

( x7 d/ [5 i X

: radio_button {

' h. y9 V6 z; C7 R5 Q

label = "房間名稱";

: M+ m7 B E0 q* U5 I2 `8 k

key = "c3";

. u* x2 y) S$ w# N7 Y' k+ p

}

* U; @% N- f/ w1 u* Q$ `" h

: radio_button {

# k: e7 ~6 Y" I! S( q- G

label = "衛生器具";

- C T! t% Q6 E0 h% l

key = "c4";

9 W2 O6 q5 J6 G: \# m9 f) }

}

5 w5 L& H/ `' C' r X

: radio_button {

* W# D g, o" c, h

label = "管材配件";

W0 q3 q8 H. Q! ]

key = "c5";

0 v7 q7 h% C! n

}

9 s* n4 S2 b/ x& ^4 N

: radio_button {

d: o% Y* w* Z: h* J3 r

label = "器材儀表";

# T4 f6 C" \: Y9 e3 }" Y3 h6 c1 _0 e! j

key = "c6";

3 G# [% ]2 C+ N0 J( o" O

}

; v! X9 g1 f' R% w' R

: radio_button {

- n. u" Z# w) E# r, K% M. k% J

label = "常用設備";

s% N) z7 p ?) t M4 x$ c

key = "c7";

" l3 K+ O; n* J! t# }

}

4 k7 ` |) J+ e' b! _9 D9 ?* f

: radio_button {

0 m- F d6 z/ { f, B6 [

label = "構筑物";

x( | k, K8 R4 r

key = "c8";

% B$ @$ |0 w! ^" i3 m

}

: i k- X1 G! w/ B9 E# Y2 b

: radio_button {

1 w; c7 a" ?: L

label = "其它";

# ]4 y, K% R9 @& k4 e6 n5 k' K& ]

key = "c9";

6 B. o; W: Z) F& D8 `

}

6 j" u! p4 |9 S) T2 i9 }

}

6 ^8 O3 F! ~6 R1 x$ n q0 E) n

: list_box {

% k z( ]. A% x! |% E

label = "詞組內容";

5 ~+ N U* d1 m

key = "what";

) |# G' @5 _+ n K/ Z& s9 w/ h

height = 15;

7 B5 y. }% o2 N) P9 x4 }& J

width = 26;

7 h$ V; `: w" S, j' k; o

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

% Z, X$ n# L$ ~6 `

}

& ? l( J% f* ~* p- J/ ]" x

}

% r6 D3 T3 R& P( r/ ~1 l7 E# h' w

spacer_1;

2 X+ o! o" n, C3 _$ B

: edit_box {// 編輯框

" U s8 j9 b3 ]1 c4 w ~) k2 v

label = "所選詞組:";

5 o, @" E- O- U! R9 k: I( F

key = "sel_ok";

" l3 k) w& s8 L* [

}

3 K2 ^. S9 x" m/ [

spacer_1;// 增加間距

# c. C' d- o5 n! H% K( g

ok_cancel;

, M- g; T' h5 b& G3 I% D7 \0 y

}

作者: 昊令天下    時間: 2010-1-22 11:01
就是啊，有點過于專業了，能不能淺顯易懂的講解一下，謝謝
作者: monkeyzxp    時間: 2010-8-3 19:09
有點過于專業了，能不能淺顯易懂的講解一下
作者: 文章aa    時間: 2010-9-29 10:44
程序設計專用詞匯。使用者不用看
作者: 隨風求學    時間: 2010-9-29 20:33
這個不太懂，如果解決完，可以共同探討一下嗎？
作者: 英武殿大學士    時間: 2010-9-29 20:59
不太懂啊·············
作者: jsj306    時間: 2010-10-17 23:45
有對話框，挺高級的，不過這是機械社區，樓主是搞建筑滴
作者: janbo    時間: 2012-5-30 11:12
這個很專業啊。。。。謝謝！



歡迎光臨 機械社區 (http://www.ytsybjq.com/) Powered by Discuz! X3.5