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

AutoCAD內常用術語的自動標注方法摘要[HT5SS]本文提出了一種用對話框實現(xiàn)AutoCAD內常用術語自動標注的方法。用這種方法，可方便地將各種常用術語標注在圖中，為CAD應用提供了方便。一、引言漢字的標注在CAD設計制圖中是一個重要的部分，也是一個較為繁瑣、困難的部分。目前，在AutoCAD內漢字的輸入大多采用拼音方式，對拼音不熟悉的人來說漢字的輸入就很困難。如果能將設計中常用的文字術語直觀地顯示出來供設計人員調用，將會極大地提高工作效率。本文就此進行研究，提出了一種用對話框（下圖）將常用術語顯示并供調用的方法，同時給出了源程序，供大家參考。該程序已應用于我院的實際生產中。二、原理及方法AutoCAD對話框結構包含有多種構件，如edit_box(編輯框)、list_box(列表框)、radio_button(多選一按鈕)等，利用這些工具，可以開發(fā)出界面友好的實用程序。左圖就是用這種方法實現(xiàn)的。將常用詞組分類，分別存于不同的文件中。根據多選一按鈕中所驅動的分組號分別打開不同的文件，將文件內容讀入并顯示于列表框內，供設計人員使用。同時，設有一個編輯框，可將所點取的詞組顯示于編輯框中，便于用戶對詞組進行適當?shù)男薷?，如刪除或增加字符等。這種方法有一個優(yōu)點，用戶可十分方便地根據自己需要修改或添加詞組內容。對話框文件及驅動程序分別見#CAL.DCL及#CAL.LSP。三、程序使用方法先用WPS、EDIT等編輯程序分類建立詞組庫（注意，需要存成純文本格式），每個詞組占一行。程序要求將"常用術語"、"圖紙名稱"、"房間名稱"等各分類所對應的詞組庫文件名分別為$TXT1.DAT、$TXT2.DAT、$TXT3.DAT厖。除第一個文件不能少外，其它文件可空缺，但當點取該分類項時，系統(tǒng)會提示有關文件不存在的信息。然后將所建立的詞組庫文件及所提供的程序#TXT.LSP和對話框文件#TXT.DCL拷貝到AutoCAD所能找到的目錄（環(huán)境變量ACAD所設置的任一目錄如ACAD\SUPPORT或當前目錄）中，在Command：命令下鍵入（LOAD"#TXT"）進行程序的加載，即可象其它AutoCAD內部命令一樣使用#TXT了。也可在所使用的菜單文件（如ACAD.MNU）中的下拉式菜單或屏幕菜單部分加上下面一行：［常用詞組］^C^C^P(if(nullc:#txt)(load"#txt"))#txt以后可直接從菜單中驅動該程序。在COMMAND：狀態(tài)下，鍵入#TXT后，系統(tǒng)彈出一個對話框，根據需要點取所需的詞組類別，再從列表框內選擇所需詞組。所點取的詞組會在編輯框［所選詞組］中顯示。用戶可以在此對詞組進行必要的修改，點?。跲K］后，根據提示輸入字高及起點即可把詞組寫到圖中。需要說明的是，本程序中是將文字以"HZ"字型寫到圖中，要求字體為TXT.SHX及HZTXT.SHX。若您的軟件中無這兩種字體，可將其它字體改名為該兩種字體（要求一個為英文字體，一個為中文字體），或將程序修改為您所具有的字體。但需要注意，也許您的字體在用于設置字型時會多一個選項，詢問是否垂直書寫文字，此時，可將字型設置一句改為：(command"STYLE""HZ""txt,hztxt"00.70"n""n""n")即可。本程序在AutoCADR12.0FORDOS及FORWINDOWS版上均調試通過。(defunc:#txt(/oldcmdolderroktxt_tbtxtdcl_idstyfpnnhtpttxterrdiaginitwr_txtold_nn);定義錯誤處理子程序(defuntxterr(s)(if(and(/=s"consolebreak")(/=s"Functioncancelled")(/=s"quit/exitabort"))冒(愛princ皺(strca革t"\nE級rror:"膠s)))坊(ifol乓derr(發(fā)setq*仔error*激older兵r));儲衡恢復原系統(tǒng)設虛置勻(勿ifold吹cmd(s包etvar陸"cmdec決ho"ol擋dcmd))小(雄princ))觸;主溜對話框顯示及歌驅動程序筒(直defun庸diag(鵝/i)辣(if(>網(setq績dcl_i鏈d(loa懶d_dial筋og"#t敬xt"))牙0搖)馬；加載對話框燙文件(progn至(if(n使ew_dia對log"f啊iletex礎t"dcl印[JX*6逃]id);禽準顯示對話框第(progn挺start寶_list蓮"what"擋)記；將詞組顯示無到列表框內史(會mapcar剩'add_侄listt臉xt_tb)幫(會end_li穩(wěn)st)安(際setqi甩1)怎(repea社tn者n制；點取詞組分讀類項后的操作營(沒action獅_tile銷(strca沸t"c"關(itoa先i))"(母wr_txt煌)")說(輩setqi論(1+i羅)))霜(actio槽n_tile細"what亂""(se處tqi(柜atoi$債value)系)恥；選中詞組御(萬setqt荒xt(nt怕hitx沈t_tb))于(set_t本ile\"潤sel_ok崇\"txt緣)")蜻(妖action何_tile低"sel_o研k""(s祖etqtx俱t$val象ue)")巧(谷action抬_tile哲"accep廳t""(s度etqok愈T)(do迫ne_dia痕log1)假(unloa星d_dial施ogdcl概_id)")坊(鏈action臥_tile炮"cance挺l""(u妥nload_摔dialog宣dcl_i感d)")例(明start_盯dialog跨))機(promp獅t"\始n撈無法顯示對話茅框掌FILETE北XT!果筋請檢查對話框切內膊容玉!")))街(promp訪t"\皺n帥無法加載對話樓框文謀件率#TXT.D鞏CL!寒低請檢查文件是咳否存在及路徑閉是否正況確磨!")))昨;別投初始化程拒序罰,稿環(huán)把詠第凱1李個分組項中的烤詞組讀入部表糾txt_t摩b猛中耍(邪defun炒init(奶/fnam詞efpt麻xt1)倡(幼setqf貝name(黎findfi頂le"$t伏xt1.da吼t"))閘(魂if(no好tfnam倡e)顏(progn蠶(prin王c"\位n睬文候件勿$TXT1魔.DAT護艘不存倚在搭!")(凍exit))棋;算赤文件不存闊在轟,洋倦則退出)晶(鋒setqf蟻p(ope具nfnam斗e"r")蘇)漁(對setqt租xt_tb堆'())辟(掏while套(setq叼txt1(記read_l皮inefp清))登(側setqt場xt_tb苗(cons使txt1t獎xt_tb)烤))拘(熔close溝fp)漿(黨setqt昌xt_tb足(rever宜setxt摧_tb))霧(setq充old_nn頑1眾)簡；記錄索引號)眾;吳肅更換列表框內王詞組顯示內容歉(查defun聚wr_txt奴(/f瑞namef跪name1豐fptxt傷1i)敘(債setqi毅1)軍(while盆(<=i域nn);漢衰判別哪個詞組尋項被點中把(雖if(=光(get_t服ile(s督trcat導"c"(i擱toai)眨))"1"睛)熟(份setqf權name1用(strca拿t"$tx見t"(it盾oai)五".dat"榴)inn))魯(掛setqi融(1+i旺)))未(if(s吹etqfn城ame(f瓜indfil斷efnam這e1));嘩榮查找文件是否沸存在(progn留(setq牢old_nn器(atoi削(subs蔬trfna回me15)驗)通)舅；記錄索引號織(駛setqf籍p(ope躲nfnam委e"r")毫)未(沸setqt臂xt_tb疑'())笨(while坦(setq勸txt1分(read_密linef染p)坡)邁；依次讀出各哄詞組邁(魂setqt贈xt_tb升(cons丹txt1t煩xt_tb)辱))趴(忠close善fp)連(得setqt陪xt_tb興(rever悅setxt蟲_tb))肯(start氏_list井"what"怖)熄；在列表框內功顯示詞組內容算(葡mapcar貨'add_堆listt慘xt_tb)舞(畢end_li結st)像);pr汁ogn(progn餃(alert捎(strc罷at究"吊文慕件蘋"fnam排e1鞠"常不存伸在則!"))詞(set_t煙ile(s民trcat接"c"(i補toaol賊d_nn))殃"1"燦)河；恢復原記錄徹號));if)滿;殲袖主程序開始惡(籮setqo陣lderr諸*error物*例*error貫*txte職rr望oldcmd顛(getv膊ar"cm盆decho"估))指(setva貓r"cmd役echo"夫0);商綁命令不回顯秋(setq劈nn9)襯;麗辜詞組分類數(shù)殲(init)粥;暴柿初始化轎(diag)攜;還翻驅動對話框課(玩if(an叨dokt砌xt)(progn族(if(o雷r(=(竿setqs昌ty(tb濫lsearc山h"STY師LE""H灰Z"))n榨il);"圈HZ抖"做字型是否存在橡(/=(c窄dr(as欄soc40抗sty))栽0);乳付字高是否為定橫值海(/=(ge叉tvar"所TEXTST異YLE")裙"HZ");愛輕當前字型是否晨為梢"HZ")膝(comma死nd"ST節(jié)YLE""泥HZ""t令xt,hzt畜xt"0煉0.70刃"n""n爪");妙世設曠置酒"HZ胞"林字型)大(initg偵et(+汽24)搞)塞；下面的輸入憂值要求大議于叨0綿(setq蜜ht(ge布treal央"\逮n義請輸入字餐高羅<500>:孤"))秒(赤if(no繁tht)開(setq足ht500贏))室(setq盞pt(ge牌tpoint萍"\晝n或請點取文字起棉點錫:"))嫌(康comman室d"tex俊t"pt蠶ht0t艙xt)))劫(setq律*error箱*olde制rr偽)貴；恢復原設置端(沉setvar宏"cmde句cho"o鋸ldcmd)匙(藥princ))隸//#tx直t.dcl刑//瀉值供齡#txt.l衡s圣p魯調用禽filete墓xt:d興ialog捷{//族哀對話框名稱猾label汪=日"畫常用詞冠組帳";//某輪對話框標識予:row錫{犧:boxe驟d_colu咳mn{求label加="勵筍索丹種引棍";帶:radi喘o_butt式on{應label臟=煩"易常用術貸語糾";//劇類多選一按鈕物key=現(xiàn)"c1";緊value分="1";冤//發(fā)狐初始值內為謠"1",情辦表示選中}科:radi斗o_butt縮on{扣label牽=爹"拿圖紙名口稱罩";軋key=拴"c2";}誦:radi晨o_butt艦on{膜label恢=志"愚房間名脫稱籍";嗚key=壯"c3";}息:radi會o_butt植on{鞏label把=尸"濤衛(wèi)生器貝具晝";湯key=墊"c4";}府:radi鵲o_butt帝on{闖label湊=睛"司管材配輝件比";憤key=胖"c5";}明:radi混o_butt堅on{再label解=庭"納器材儀疏表好";錄key=刑"c6";}幸:radi刪o_butt菠on{煤label草=衡"礎常用設相備私";膠key=拖"c7";}蘿:radi閉o_butt玻on{陽label課=奴"申構筑檢物哨";添key=警"c8";}罪:radi