【正文】 每一圖層可以設置不同的線型和顏色，并可設定打開或關(guān)閉、凍結(jié)或解凍、鎖定或解鎖等。lwk。加載后在命令行中鍵入 “zxx”并回車，只要按提示選擇圓并輸入中心線的延伸長度，即可自動生成該圓的中心線，并可連 23 續(xù)繪制。代碼示例如下所示。計算軸鍵槽上點的坐標 (setq pt2 (list (+ (car pt0) ((/ d ) t1)) (+ (cadr pt0) dy)) pt3 (polar pt2 ( (/ pi )) b) pt4 (polar pt3 0 ( dx ( (/ d ) t1)))) )。實際上這是一個如何確定垂線的另一個端點的問題。操作過程如下： Command: line From point: 39。但重要的是，和一般的計算器不同， AutoCAD 幾何計算器可以作幾何運算。從而只顯示和輸出該零件的圖線，而當設計者在模型空間修改設計后，布局中要輸出的圖形將自動更新。 (一般地，如需粗線可在出圖時對繪圖儀的參數(shù)進行設置 ) 該子程序中又調(diào)用法蘭設計子程序，這是AutoLisp 允許的， 而且是一很好的功能。因為這個命令經(jīng)常使用，建議把它裝在菜單文件，在 適當位置中加入一項 : 標序號］ ^c^c(LOAD BXH) 。標序號 (setq radi 5) 。當然，通過編制另外的轉(zhuǎn)換程序是可以將最大數(shù)據(jù)提高到 AutoCAD 所能接受的最大數(shù)據(jù) (經(jīng)測試發(fā)現(xiàn)其最大值可為 +308)。該程序已應用于我院的實際工作中。 Command:scriptEnter Script file:chEnter 當所涉及的圖形文件較多時 (十幾個以上 )，采用手動操作，將每一圖形文件調(diào)出來，逐一修改，效率太低。 包含了可在指定圖形中自動重復執(zhí)行命令序列。 當 ACAD輸出 PLT文件時，如果發(fā)現(xiàn)有對應圖形的 PLT文件，將提示出是否覆蓋掉它，這將引起 SCRIPT命令中斷運行。將其裝入 后，只要鍵入 CHTEXT，就可按漢字提示使用，它一次可以修改多個字符串。 1 AutoCAD 中自動批量修改圖形文件的程序 一、概述 在工程 CAD繪圖中，常常會遇到下列棘手的問題： 在施工圖后期，大部分圖形文件都已完成，但因某一條件的變化，需在某卷圖中增加 (或減少 )一些圖紙，這將導致許多相關(guān)圖形文件的內(nèi)容不得不進行相應的修改：如高層代號、圖紙編號等。 為此在 中，我們是這么處理的：當程序發(fā)現(xiàn)有相應圖形的 PLT文件，將自動把它刪除掉，并在屏幕上顯示出對應的信息。 例：把圖形文件 C80001～ C80098 中的圖紙編號 2066DD3 改變 2087DD2。因 此建議采用以下步驟，使計算機按命令自動批量修改圖形文件。 1 原理及方法 AutoCAD 對話框結(jié)構(gòu)包含多種構(gòu)件，如 edit_box(編輯框 )、 text(文字 )、 button(按鈕 )等。限于篇幅，本文不再提供該轉(zhuǎn)換函數(shù)，需要的同志可與筆者聯(lián)系。圓圈半徑 (setq txth 5) 。BXH 。 ，不再介紹。 由于沒有安裝打印機或想用別人高檔打印機輸入 AutoCAD 圖形，需要到別的計算機去 17 打印 AutoCAD 圖形，但是別的計算機也可能沒安裝 AutoCAD，或者因為各種原因（如AutoCAD 圖形在別的計算機上字體顯示不正常，通過網(wǎng)絡打印，網(wǎng)絡打印不 正常等），不能利用別的計算機進行正常打印， 這時，可以先在自己計算機上將 AutoCAD 圖形打印到文件，形成打印機文件，然后，再在別的計算機上用 DOS 的拷貝命令將打印機文件輸出到打印機，方法為： copy ＜打印機文件＞ prn /b，須注意的是，為了能使用該功能，需先在系統(tǒng)中添加別的計算機上特定型號打印機，并將它設為默認打印機，另外， COPY 后不要忘了在最后加／ b，表明以二進制形式將打印機文件輸出到打印機。它可以作坐標點和坐標點之間的加減運算，可以使用 AutoCAD 的 OSNAP 模式捕捉屏幕上的坐標點參與運算，還可以自動計算幾何坐標點。cal (啟動幾何計算器 ) Expression: (cen+end)/2 (輸入表達式，這里計算器把 OSNAP 的 cen 和 end 模式當作點坐標的臨時存儲單元 ) Select entity for CEN snap:(用光標捕捉圓心 ) Select entity for END snap:(用光標捕捉直線的端點 ) To point: 其它的目標捕捉模式如 int、 ins 、 tan 等等均可在幾何計算表達式中使用。其操作過程如下： Command: line From point: mid(設過直線的中點作垂線 ) of To point: 39。progn )。 (defun C:lwk() (setq pc (osnap (getpoint \n 輸入螺紋孔端面的中心點 :) near )) (setq ang (getangle pc \n 螺紋孔中心線與水平線的夾角 :)) (initget 7) 22 (setq d (getdist \n 請輸入螺紋孔的公稱直徑 (mm):)) (cond。代碼示例如下所示。^p ID_User [中心線 (zxx)]^C^C_(if(not zxx)(load d:/Acad R14/))。為使繪制的圖形便于識別與交流，國家標準 GB/T1466593《機械制圖用計算機信息交換制圖規(guī)則》對圖層、線型、顏色作了詳細規(guī)定。可以將圖層理解為透明紙，可將圖形中的不同內(nèi)容畫在不同的透明紙上，最終將這些透明紙疊加在一起就是一張完整的圖形。^p ID_User [螺紋孔繪制 (lwk)]^C^C_(if(not lwk)(load d:/Acad R14/))。end 三、圓的中心線繪制命令 “zxx” 在繪圖中，若需要繪制已知圓的中心線，可調(diào)用下面的程序。加載后在命令行中鍵入 “l(fā)wk”并回車，根據(jù)提示輸入相應的參數(shù)即可。Zc 表示畫軸鍵槽的剖視圖 ,Lc 表示畫輪轂鍵槽的端面視圖 21 (setq zrl (getkword \n 畫軸鍵槽的剖視圖還是輪轂鍵槽的端面視圖 (Z/L)?)) (if (= zrl Zc) (progn。利用幾何計算器可直接畫出和斜線垂直并且為確定長度的直線。例如，要從一個圓心和一直線的端點之間的中心為起點畫一直線。這使得用戶在使用 AutoCAD 繪圖過程中，可以在不中斷命令的情況下用計算機進行算術(shù)運算， AutoCAD 則將運算的結(jié)果直接作為命令的參數(shù)使用。 機械設計與輸出一體化的實現(xiàn) 我們在使用 CAD 進行輔助設計時，按照設計的步驟就應有設計草圖、裝配圖、工程圖（零件圖），這些圖之間應 保持一定的關(guān)聯(lián)關(guān)系：裝配圖與零件圖依據(jù)設計圖繪制；當修改設計即修改設計草圖后，應能同時修改裝配圖與工程圖，由于 AutoCAD2020 提供了布局以及頁面設置等新功能，我們完全可以實現(xiàn)設計圖、裝配圖以及零件圖位于同一個文件中，但由于在這樣的一個文件中，圖線比較復雜，為了編輯和打印輸出的需要，一般用不同的層和顏色進行管理，將設計草圖、裝配圖以及零件圖分別位于不同的層內(nèi)，這樣當要顯示或者編輯某個零件的圖線時，可以將其它層關(guān)閉或凍結(jié)，做到編輯操作不影響其它不相關(guān)的圖線；同時對應要輸出的每個零件圖與裝配圖都要創(chuàng)建一個布 局，若要輸出某一個零件圖，則在輸出該布局的浮動視口中凍結(jié)其它層，即通過在激活的浮動視口中選擇性地凍結(jié)圖層以及平移和縮放模型空間的對象，就可以指定顯示或輸出模型空間中圖型的不同部分。需要強調(diào)的是對 Pline 折線不適用， 其原因是起點與終點的連線和要繪閥門不一致。 程序的使用方法，在 Command:提示符下，鍵入 (LoadBXH)回車后再鍵入 BXH，然后按屏幕提示輸入對應項即可。 (defun C:Bxh (/ p1 p2 p3 1 ang 1 bx bxh radi txth) 。所以本程序規(guī)定最大數(shù)據(jù)不能大于 1e+99，否則將顯示溢出錯誤。本文通過對 AutoCAD 內(nèi)對話框結(jié)構(gòu)及 AutoLISP 進行研究，提出了一種用對話框結(jié)構(gòu)實現(xiàn)計算器功能的方法，同時給出程序流程圖，供大家參考。 在 ACAD 命令狀態(tài)下，鍵入以下命令即可按 文件要求，對當前圖形完成所需的修改。 二、如何使用 CHSCR 1. 創(chuàng)建 命令文件 文件的內(nèi)容是由 AutoCAD 的命令和響應序列所組成的 ASCⅡ 文件，是可在AotuCAD 編輯狀態(tài)下執(zhí)行的文本文件。 因此，在編寫 SCR命令文件時我們采用了修改圖中文字的 LISP程序 (其清單附后 )。 在實際工程設計中，為了提高效率， 60%的圖形是通過修改已有的設計而形成新的圖形，這時常常進行一些重復性的工作，比如圖框的替換、設備元器件的變更等，有時，要幾張圖，甚至幾十張圖做同樣的修改。 當編寫命令文件時，必須考慮每條 AutoCAD命令中的所有響應和提示。 經(jīng) 所生成的 文件： open y C80001 CHTEXT all 2066DD3 2087DD2 CHTEXT all C13 D24 CHTEXT all DZ20 C45AD PLOT Enter Enter 4 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 命令 ① 在 ACAD中通過 SCRIPT命令直接調(diào)用 ： Command:script chgeEnter ② 啟動 AutoCAD 時從操作系統(tǒng)提示符處輸入以下正文： C： acad script chgeEnter 三、程序的安裝 1. 將 裝入 中。高層代號C13 改為 D24，設備型號 DZ20 改為 C45AD。 2. 建立圖形文件表 創(chuàng)建完 后，下一步應把需要修改圖形文件名 (.DWG)存入 中： 例如： C80001 C80002 C80003 . . . C80098 3. 編譯生成 文件 當具備 (試運行正常后 )和 文件后，就可以進行編譯工作，在 DOS 狀態(tài)下鍵入 CHSCR〈 Enter〉即開始編譯，若編譯出現(xiàn)問題，系統(tǒng) 會給出相應的提示，編譯完成后，你會發(fā)現(xiàn)目錄中多了一個 文件 (自動修改圖形的文本文件 )。利用這些工具，可以 開發(fā)出界面友好的實用程序。 2 程序使用方法 將程序 及對話框文件 拷貝到 AutoCAD 所能找到的目錄中，在Command：命令下鍵入 (LOAD CAL)進行程序的加載，即可象其它 AutoCAD 內(nèi)部命令一樣使用 CAL 了。字高 (if (not bx) (setq bx 1)) (setq p1 (getpoint \n 請選擇起點 :)) 。用鼠標點取最為方便。 ●.附源程序清單 VA (defun *ERROR* (st) (menucmd s=s) (mand osnap none) (mand layer s cl ) (setvar regenmode 1) (princ st) (terpri) ) (defun qs （） (setq fc (* *bl)) (menucmd s=s) (initget Y N) (if (not *yffl) (setq *yffl N)) (princ \n 有否法蘭 : [ Y/N ] ) (princ *yffl) (setq fl (getkword )) (if (not fl) (setq fl *yffl) (setq *yffl fl)) ) (defun dfw ( ) (mand OSNAP NEAR) (setq e1 (entsel \n 閥心位置 :)) (mand osnap none) (defun gy（） (setq zx (cadr e1) e2 (entget (car e1)) p01 (cdr (assoc 10 e2)) p02 (cdr (assoc 11 e2)) zj (+ (* (/ ) pi) (angle p01 p02)) l1 (/ fc ) l2 (/ l1 ) p1 (polar zx