【正文】 ion point:))　　 )　　 (setq x (car s2) y (cadr s2))　　 (princ \n按先后次序選取文字)(princ)　　 (setq ss (ssget))　　 (setq n (sslength ss) index 0 i 0 j 0)　　 (rep eat n　　(setq ent (entget (ssname ss index)))　　(if (= TEXT (cdr (assoc 0 ent))) 　　(pr ogn 　　(setq i (+ i 1))　　( if (= s1 1) 　　(setq zb (car (CDR (assoc 10 (entget (ssname ss index))))))　　(setq zb (CADR (cdr (assoc 10 (entget (ssname ss index))))))　　)　　(set q wb (cdr (assoc 1 (entget (ssname ss index)))) 　　wg (cdr (assoc 40 (entget (ssname ss index))))　　zk (cdr (assoc 41 (entget (ssname ss index))))　　jd (cdr (assoc 50 (entget (ssname ss index))))　　zx (cdr (assoc 7 (entget (ssname ss index)))) 　　 )　　 (set (read (strcat b (itoa i))) zb)。　　2．多文字的間距調整　　 edit date: 　　(defun c:zd jt ( / new old ent ent1 index s ss s1 s2 cj sj n x xs y ys wb wg wc wg0 wg1 zb type fs i j bbb bj1 bj2 aj1 aj2 cj1 cj2 $a $c $b ss1 ss2 dj1 dj2 zx ej1 ej2 fj1 fj2 zk jd) 　　 (setvar cmdecho 0)　　。 　　 。 四、源程序如下：　　1．多文字的對齊：　　 。* 點取斜線終點。 　　 選“3”，則：* 按先后次序選取文字?！　　? 其它類推。 　2．多文字的間距調整，提示如下：　 　文字間距調整方式如下：　　1. 水平 2. 垂直 3. 斜向 1：　?、?若選“1”或缺省值，則* 輸入各文字水平距值(或用鼠標點取)* 選擇對齊方式：(C中心/L左側/R右側/H中心) L　　　1 若選“L”或缺省，則：* 輸入這組文字起點。 三、操作過程　1．多文字對齊?！?．兩程序在使用中基本為中文提示，易用，現(xiàn)已在我院網絡上全面使用。用鼠標點取下拉菜單即可調用?！。圩值膶R］^C^C^P(“ZDDQ”)；ZDDQ；^P。　1．將程序調用裝入系統(tǒng)菜單　　，并編輯它。這次我提供如下兩個程序：二、程序的安裝及使用　　先把ZDDQ．LSP和ZDJT．LSP 拷貝到一個特定的目錄下(如:C:\R12\SUPPORT或C:\TCH\SYS等)。若用AUTOCAD基本命令來處理，會很麻煩，并影響作圖速度。增加AUTOCAD在文字處理上的功能一、說明 　　在用AUTOCAD制圖的過程中，必然要寫說明性文字。(3)做好工作組或公司內部的系統(tǒng)規(guī)劃，充分利用用戶定制的優(yōu)勢。AutoCAD可以繪制任意復雜的圖形，但AUTODESK從來不推薦用戶用最基本的命令一筆一劃地繪圖。相關系統(tǒng)變量是TREEMAX和TREEDEPTH。硬盤預留一定的空間，以備系統(tǒng)緩沖之用。安裝更多的RAM可以降低AutoCAD使用臨時交換和頁調度的需求，達到優(yōu)化性能的目的。FILLMODE=0。IMAGEHLT=0。系統(tǒng)變量RTDISPLAY=1?？梢允褂肰IEWRES命令和FACETRES系統(tǒng)變量控制圓、圓弧和橢圓的顯示精度?！钸\用虛擬屏幕，減少重生成。(6)使用SHX字體替換TTF字體。(4)管理光柵圖像，如：臨時卸載圖像，拆離圖形中不再需要的圖像，控制圖像顯示質量。(3)改變臨時交換文件位置　Windows的Temp目錄是臨時交換文件的缺省位置。(2)關閉可見元素　圖形的復雜程度會影響AutoCAD刷新屏幕或處理命令的速度。(1)凍結或關閉圖層　凍結圖層時AutoCAD不刷新被凍結圖層上的物體數據庫，從而提高速度。如果處理一個很大的圖形，可以使用“局部打開”選項選擇圖形中要處理的視圖和圖層中的對象（僅限于圖形對象）。換句話說，被參照的材料是根據需要讀取的。通過結合使用按需加載和保存索引的圖形，可以提高包含外部參照的圖形的性能。在服務器上安裝AutoCAD可以讓用戶共享一份可執(zhí)行文件，從而節(jié)省磁盤空間并使軟件的安裝和升級大大簡化。兩種方法各有其優(yōu)點。如若存在大量空的編組，嚴重影響選擇速度。編組是屬于命名對象，但可惜不能夠用PURGE命令清除。注意若在開始繪圖時，執(zhí)行清理廢料，可能會清理掉已定義的繪圖模板。清理操作只刪除一個層次的引用。，有效縮減圖形文件尺寸隨著時間流逝，圖形中可能會積累一些無用的命名對象（不在圖中繪制出的對象）。運行“磁盤碎片整理程序”整理磁盤碎片？二、優(yōu)化AutoCAD系統(tǒng) R13或早期版本創(chuàng)建的二維多段線和關聯(lián)填充自R14版起，AutoCAD以一種優(yōu)化格式創(chuàng)建二維多段線和關聯(lián)填充，這種優(yōu)化格式可以節(jié)省內存和磁盤空間。就如同一本小說不是印刷在連續(xù)的頁面上，而是每隔幾行需要出現(xiàn)“轉到xxx頁”。，優(yōu)化Windows系統(tǒng)性能什么是磁盤碎片？同一磁盤文件的各個部分分散在磁盤的不同區(qū)域，當在磁盤中刪除舊文件添加新文件就會產生碎片。Windows系統(tǒng)在啟動時會自動檢查丟失的磁盤簇。因此，可用“窗口”方式在圖框線對角點外選兩點確定打印區(qū)域，即可完全顯示(打印) 出來。　　在打印前盡量利用“完全預覽”功能，觀察圖框線是否完全顯示出來?！　∵x“文件”“打印”“打印設置”“圖紙尺寸”選圖號（例如A3）。8 打印　　打印時需要對“打印設備”“打印設置”進行設置。　　 （4）寫文字時字的高度等于實際高度乘以5?！?（2）改變線型比例因子,選“格式”“線型”“顯示細節(jié)”“全局比例因子”改為5?！　∠旅嬉栽贏3圖幅中用1:5比例繪圖為例,說明有關系統(tǒng)變量的設置步驟。并分別將圖形存盤（存為DWG文件即可）,文件名分別為A0,A1,A2,A3,A4，以后每次畫新圖時打開相應的圖幅，以此圖為樣板文件開始繪新圖,并另外起名存盤?！?按圖5尺寸繪制國標標題欄。設置后使用ZOOM命令并鍵入ALL顯示該工作區(qū)。5 按1：1比例繪制圖框和標題欄　　在下拉菜單中選擇“格式”“圖形范圍”，設置選項“ON/OFF”為“ON”(禁止圖限外畫線)，重復該命令，將左下角設為0，0,右上角為L，B。 圖3 將“文字”項設置成圖4所示。用此中、西文字體寫出的同行中、西文字體中不會出現(xiàn)字高度不一致或上下錯位問題。在“字體”項中，啟用“使用大字體”，“SHX字體”項選“”，“大字體” 項選“”。表一：圖層名及線型圖層名顏 色線　型1白色continuse粗實線2紅色continues細實線3藍色continuse波浪線、折線4黃色dashed虛線5綠色center點劃線68center粗點劃線7紫色phantom雙點劃線8紅色continues尺寸9青色continues文字圖13 設置中、西文字體、。對于A3以下幅面，(),?！　≡凇案袷健辈藛沃羞x擇“圖層”，打開如圖1對話框。為使繪制的圖形便于識別與交流，國家標準GB/T1466593《機械制圖用計算機信息交換制圖規(guī)則》對圖層、線型、顏色作了詳細規(guī)定?？梢詫D層理解為透明紙，可將圖形中的不同內容畫在不同的透明紙上，最終將這些透明紙疊加在一起就是一張完整的圖形。2 建立圖層、線型及顏色 圖層在AutoCAD中是一重要的特性。1 從桌面選“我的電腦” 打開文件“c:\program files\ACAD2000\support\文件，找到下列行(點劃線)；*CENTER,Center ____ _ ____ _ ____ _ ____ _ ____ _ ____A, , , , 改為*CENTER,Center ____ _ ____ _ ____ _ ____ _ ____ _ ____A,15,1,1,1找到下列行（虛線）*DASHED,Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _A, , 改為*DASHED,Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _A,4,1找到下列行（雙點劃線）*PHANTOM,Phantom ______　__　__　______　__　__　______ A, , , , , , 改為*PHANTOM,Phantom ______　__　__　______　__　__　______ A, 15, 1, 1, 1, 1, 1存盤并退出(保存在原目錄中)注；，如果在安裝AutoCAD時改變了安裝目錄，需要在相關目錄中查找此文件。下面介紹如何在使用中文版ACAD2000繪制機械圖對有關系統(tǒng)變量進行設置，以及按比例繪圖的方法。需要對相關的系統(tǒng)變量進行重新配置，以適合我國國家標準。由于其樣板文件是按國際標準設置的。用中文版ACAD2000繪制機械圖有關系統(tǒng)變量的設置在中文版ACAD2000中，圖形樣板文件是保存在*.DWT文件中的。四、結束語　　以上所舉例僅是該程序應用的一個簡單例子，在實踐中還可用于圖塊的重新定義、圖框更新、建立繪圖標準配制、連續(xù)顯示幻燈片、連續(xù)出圖，限于篇幅不一一列舉。　　2. 用通用C++，將其拷貝到CAD可找到的目錄下。我們是這么處理的：當程序發(fā)現(xiàn)有相應圖形的PLT文件，將自動把它刪除掉，并在屏幕上顯示出對應的信息?！　　　∫虼私ㄗh采用以下步驟，使計算機按命令自動批量修改圖形文件?！　≡贏CAD命令狀態(tài)下，對當前圖形完成所需的修改。CHSCR有兩個作用：　?、偃绻枰薷牡膱D形文件較少。如果不需要輸出PLT繪圖文件，PLOT后面四行可以不要。命令文件中的每個空格都是有意義的，因為AotuCAD將它看作回車，所以不能隨意增減。　　　　因此，(其清單附后)?！　。骸　HTEXT_all _ _2066DD3Enter　　2087DD2Enter　　CHTEXT_all _ _C13Enter　　D24〈Enter〉　　CHTEXT _all _ _DZ20Enter　　C45AD〈Enter〉　　PLOT〈Enter〉　　〈Enter〉　　〈Enter〉　其中：　　_代表一個空格　　〈Enter〉代表回車　　CHTEXT修改圖中文字的LISP程序　　　　例：把圖形文件C80001～ C80098中的圖紙編號2066DD3改變2087DD2。二、如何使用CHSCR　　1. 創(chuàng)建CHSCR命令文件　　Ⅱ文件，是可在AotuCAD編輯狀態(tài)下執(zhí)行的文本文件。然后利用AutoCAD的 SCRIPT命令，就可使計算機按命令自動批量修改圖形并存盤或生成PLT繪圖文件。　　能否將這些重復性的工作讓計算機來完成呢?　　AutoCAD是圖形設計的通用軟件，它為各種專業(yè)用的CAD提供了盡可能多的圖形編輯功能，但很難實現(xiàn)自動化作圖的功能。　　對于上述情況，過去一般的作法是將每一圖形文件調出來，逐一修改。}AutoCAD中自動批量修改圖形文件的程序一、概述 　　在工程CAD繪圖中，常常會遇到下列棘手的問題：　　在施工圖后期，大部分圖形文件都已完成，但因某一條件的變化，需在某卷圖中增加(或減少)一些圖紙，這將導致許多相關圖形文件的內容不得不進行相應的修改：如高層代號、圖紙編號等。}spacer_1。: edit_box {// 編輯框label = 所選詞組:。allow_accept = true。height = 15。}}: list_box {label = 詞組內容。}: radio_button {label = 其它。}: radio_button {label = 構筑物。}: radio_button {label = 常用設備。}: radio_button {label = 器材儀表。}: radio_button {label = 管材配件。}: radio_button {label = 衛(wèi)生器具。}: radio_button {label = 房間名稱。 // 初始值為1, 表示選中}: radio_button {label = 圖紙名稱。 // 多選一按鈕key = c1。 // 對話框標識: row {: boxed_column {label = 索