【正文】 字體改名為該兩種字體（要求一個為英文字體，一個為中文字體），或?qū)⒊绦蛐薷臑槟哂械淖煮w。但需要注意，也許您的字體在用于設(shè)置字型時會多一個選項，詢問是否垂直書寫文字，此時，可將字型設(shè)置一句改為：(mand STYLE HZ txt,hztxt 0 0 n n n)即可。本程序在AutoCAD FOR DOS及FOR WINDOWS版上均調(diào)試通過。 (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)(if (and (/= s console break)(/= s Function cancelled)(/= s quit / exit abort) )(princ (strcat \nError: s)))(if olderr (setq *error* olderr))。 恢復(fù)原系統(tǒng)設(shè)置(if oldcmd (setvar cmdecho oldcmd))(princ))。 對話框顯示及驅(qū)動程序(defun diag ( / i)(if ( (setq dcl_id (load_dialog txt)) 0)；加載對話框文件(progn(if (new_dialog filetext dcl [JX*6]id)。 顯示對話框(progn start_list what)；將詞組顯示到列表框內(nèi)(mapcar 39。add_list txt_tb)(end_list)(setq i 1)(repeat nn；點取詞組分類項后的操作(action_tile (strcat c (itoa i)) (wr_txt))(setq i (1+ i)))(action_tile what (setq i (atoi $value))；選中詞組(setq txt (nth i txt_tb))(set_tile \sel_ok\ txt))(action_tile sel_ok (setq txt $value))(action_tile accept (setq ok T)(done_dialog 1)(unload_dialog dcl_id))(action_tile cancel (unload_dialog dcl_id))(start_dialog))(prompt \n無法顯示對話框FILETEXT! 請檢查對話框內(nèi)容!)))(prompt \n無法加載對話框文件! 請檢查文件是否存在及路徑是否正確!)))。 初始化程序, 把第1個分組項中的詞組讀入表txt_tb中(defun init( / fname fp txt1)(setq fname (findfile $))(if (not fname)(progn (princ \n文件 $ 不存在 !) (exit)) 。 文件不存在, 則退出)(setq fp (open fname r))(setq txt_tb 39。())(while (setq txt1 (read_line fp))(setq txt_tb (cons txt1 txt_tb)))(close fp)(setq txt_tb (reverse txt_tb))(setq old_nn 1)；記錄索引號)。 更換列表框內(nèi)詞組顯示內(nèi)容(defun wr_txt ( / fname fname1 fp txt1 i)(setq i 1)(while (= i nn)。 判別哪個詞組項被點中(if (= (get_tile (strcat c (itoa i))) 1)(setq fname1 (strcat $txt (itoa i) .dat)i nn))(setq i (1+ i)))(if (setq fname (findfile fname1))。 查找文件是否存在(progn(setq old_nn (atoi (substr fname1 5)))；記錄索引號(setq fp (open fname r))(setq txt_tb 39。())(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)容(mapcar 39。add_list txt_tb)(end_list)) 。 progn(progn(alert (strcat 文件 fname1 不存在!))(set_tile (strcat c (itoa old_nn)) 1)；恢復(fù)原記錄號)) 。 if)。 主程序開始(setq olderr *error* *error* txterroldcmd (getvar cmdecho) )(setvar cmdecho 0) 。 命令不回顯(setq nn 9) 。 詞組分類數(shù)(init) 。 初始化(diag) 。 驅(qū)動對話框(if (and ok txt)(progn(if (or (= (setq sty (tblsearch STYLE HZ)) nil)。 HZ字型是否存在(/= (cdr (assoc 40 sty)) 0) 。 字高是否為定值(/=(getvar TEXTSTYLE) HZ)。 當(dāng)前字型是否為HZ )(mand STYLE HZ txt,hztxt 0 0 n n) 。 設(shè)置HZ字型)(initget (+ 2 4))；下面的輸入值要求大于0(setq ht (getreal \n請輸入字高500:))(if (not ht) (setq ht 500))(setq pt (getpoint \n請點取文字起點:))(mand text pt ht 0 txt)))(setq *error* olderr)；恢復(fù)原設(shè)置(setvar cmdecho oldcmd)(princ))// // 供filetext : dialog { // 對話框名稱label = 常用詞組。 // 對話框標(biāo)識: row {: boxed_column {label = 索 引 。: radio_button {label = 常用術(shù)語。 // 多選一按鈕key = c1。value = 1。 // 初始值為1, 表示選中}: radio_button {label = 圖紙名稱。key = c2。}: radio_button {label = 房間名稱。key = c3。}: radio_button {label = 衛(wèi)生器具。key = c4。}: radio_button {label = 管材配件。key = c5。}: radio_button {label = 器材儀表。key = c6。}: radio_button {label = 常用設(shè)備。key = c7。}: radio_button {label = 構(gòu)筑物。key = c8。}: radio_button {label = 其它。key = c9。}}: list_box {label = 詞組內(nèi)容。key = what。height = 15。width = 26。allow_accept = true。 // 可雙擊鼠標(biāo)選取}}spacer_1。: edit_box {// 編輯框label = 所選詞組:。key = sel_ok。}spacer_1。// 增加間距ok_cancel。}AutoCAD中自動批量修改圖形文件的程序一、概述 　　在工程CAD繪圖中，常常會遇到下列棘手的問題：　　在施工圖后期，大部分圖形文件都已完成，但因某一條件的變化，需在某卷圖中增加(或減少)一些圖紙，這將導(dǎo)致許多相關(guān)圖形文件的內(nèi)容不得不進(jìn)行相應(yīng)的修改：如高層代號、圖紙編號等?！　≡趯嶋H工程設(shè)計中，為了提高效率，60%的圖形是通過修改已有的設(shè)計而形成新的圖形，這時常常進(jìn)行一些重復(fù)性的工作，比如圖框的替換、設(shè)備元器件的變更等，有時，要幾張圖，甚至幾十張圖做同樣的修改。　　對于上述情況，過去一般的作法是將每一圖形文件調(diào)出來，逐一修改。在圖幅比較大時，只能反復(fù)使用ZOOM命令，當(dāng)所涉及的圖形文件較多時(有時會有幾百個)，采用手動操作，其工作量非常大，而且大部分操作都是重復(fù)性的工作，長時間操作很容易發(fā)生混淆和遺漏，不但效率低，圖紙質(zhì)量又不能保證?！　∧芊駥⑦@些重復(fù)性的工作讓計算機(jī)來完成呢?　　AutoCAD是圖形設(shè)計的通用軟件，它為各種專業(yè)用的CAD提供了盡可能多的圖形編輯功能，但很難實現(xiàn)自動化作圖的功能?！　≡趯嵺`中我們用C語言編寫了CHSCR應(yīng)用程序，經(jīng)過CHSCREXE應(yīng)用程序轉(zhuǎn)換，形成一個可以處理FILETAB所列出的所有文件的CHGESCR命令文件。然后利用AutoCAD的 SCRIPT命令，就可使計算機(jī)按命令自動批量修改圖形并存盤或生成PLT繪圖文件。由于采用了易于為非專業(yè)編程人員所接受的SCR文件方式來編寫命令CHSCR，使用非常方便。二、如何使用CHSCR　　1. 創(chuàng)建CHSCR命令文件　?、蛭募强稍贏otuCAD編輯狀態(tài)下執(zhí)行的文本文件?！　?。　　例：把圖形文件C80001～ C80098中的圖紙編號2066DD3改變2087DD2。高層代號C13改為D24，設(shè)備型號DZ20改為C45AD。　?。骸　HTEXT_all _ _2066DD3Enter　　2087DD2Enter　　CHTEXT_all _ _C13Enter　　D24〈Enter〉　　CHTEXT _all _ _DZ20Enter　　C45AD〈Enter〉　　PLOT〈Enter〉　　〈Enter〉　　〈Enter〉　其中：　　_代表一個空格　　〈Enter〉代表回車　　CHTEXT修改圖中文字的LISP程序　　AotoCAD中文字修改功能較弱，但只能用鼠標(biāo)器手工修改，且一次只能改一個字符串不適用程序化操作?！　∫虼?，(其清單附后)。，只要鍵入CHTEXT，就可按漢字提示使用，它一次可以修改多個字符串?！　‘?dāng)編寫命令文件時，必須考慮每條AutoCAD命令中的所有響應(yīng)和提示。命令文件中的每個空格都是有意義的，因為AotuCAD將它看作回車，所以不能隨意增減?！　∪绻恍枰敵鯬LT繪圖文件，PLOT后面四行可以不要?！　HSCR有兩個作用：　　①如果需要修改的圖形文件較少?！　、诳梢栽贏CAD中通過SCRIPT命令試運行一次，看是否有錯?！　≡贏CAD命令狀態(tài)下，對當(dāng)前圖形完成所需的修改。　　Command:scriptEnter　　Script file:chEnter　　當(dāng)所涉及的圖形文件較多時(十幾個以上)，采用手動操作，將每一圖形文件調(diào)出來，逐一修改，效率太低。因此建議采用以下步驟，使計算機(jī)按命令自動批量修改圖形文件?！　?. 　　，下一步應(yīng)把需要修改圖形文件名(.DWG)：　　例如：　　C80001　　C80002　　C80003　　　.　　　.　　　.　　C80098　　3. 　　(試運行正常后)，就可以進(jìn)行編譯工作，在DOS狀態(tài)下鍵入CHSCR〈Enter〉即開始編譯，若編譯出現(xiàn)問題，系統(tǒng)會給出相應(yīng)的提示，編譯完成后，(自動修改圖形的文本文件)?！　。浩涔δ苁桥渲芐CR文件格式的命令字符串并調(diào)入相關(guān)的繪圖參數(shù)(源程序用C語言編寫，清單附后)?！　‘?dāng)ACAD輸出PLT文件時，如果發(fā)現(xiàn)有對應(yīng)圖形的PLT文件，將提示出是否覆蓋掉它，這將引起SCRIPT命令中斷運行。，我們是這么處理的：當(dāng)程序發(fā)現(xiàn)有相應(yīng)圖形的PLT文件，將自動把它刪除掉，并在屏幕上顯示出對應(yīng)的信息?！　。骸　pen y C80001　　CHTEXT all 2066DD3　　2087DD2　　CHTEXT all C13　　D24　　CHTEXT all DZ20　　C45AD　　PLOT　　Enter　　Enter　　Enter　　save　　　.　　　.　　　.　　open y C90098　　CHTEXT all 2066DD3　　2087DD2　　CHTEXT all C13　　D24　　CHTEXT all DZ20　　C45AD　　PLOT　　Enter　　Enter　　Enter　　save　　quit y　　4. 執(zhí)行SCRIPT命令　　①：　　Command:script chgeEnter　?、趩?