【正文】 ______ A, 15, 1, 1, 1, 1, 1 存盤并退出 (保存在原目錄中 ) 注；以上所列文件 是在安裝 AutoCAD 時的缺省目錄中，如果在安裝 AutoCAD時改變了安裝目錄，需要在相關目錄中查找此文件?？梢詫D層理解為透明紙，可將圖形中的不同內容畫在不同的透明紙上，最終將這些透明紙疊加在一起就是一張完整的圖形。 在 “格式 ”菜單中選擇 “圖層 ”，打開如圖 1 對話框。對于A3 以上幅面，粗實線線寬設置為 ,其余線寬為 。在 選擇線型時要裝入 中修改過的相應線型。為使繪制的圖形便于識別與交流，國家標準 GB/T1466593《機械制圖用計算機信息交換制圖規(guī)則》對圖層、線型、顏色作了詳細規(guī)定。 2 建立圖層、線型及顏色 圖層 在 AutoCAD 中是一重要的特性。下面介紹如何在使用中文版 ACAD2020 繪制機械圖對有關系統(tǒng)變量進行設置，以及按比例繪圖的方法。由于其樣板文件是按國際標準設置的。^p ID_User [中心線 (zxx)]^C^C_(if(not zxx)(load d:/Acad R14/))。 [] ID_User [鍵槽圖繪制 (jct)]^C^C_(if(not jct)(load d:/Acad R14/))。while )。設置線型比例 (mand line (polar pt0 ( pi) (+ r l))。代碼示例如下所示。生成剖面線的邊界 (setq s2 (ssget l)) (mand zoom a) (mand hatch U 45 2 n s2 s1 )。計算螺紋線的各點坐標 pt11 (polar pc (+ (/ pi ) ang) r1) pt12 (polar pt11 ang l1) pt13 (polar pt12 ( ang (/ pi )) d) pt14 (polar pc (+ (* pi ) ang) r1)) (mand pline pt11 pt12 pt13 pt14 )。d2 表示螺紋小徑 ((= d ) (setq l1 18 l2 22 d2 )) ((= d ) (setq l1 22 l2 26 d2 )) ((= d ) (setq l1 24 l2 28 d2 )) ((= d ) (setq l1 28 l2 34 d2 )) ((= d ) (setq l1 30 l2 35 d2 )) ((= d ) (setq l1 32 l2 38 d2 )) ((= d ) (setq l1 36 l2 42 d2 )) ((= d ) (setq l1 40 l2 45 d2 )) ((= d ) (setq l1 44 l2 52 d2 )) ((= d ) (setq l1 52 l2 60 d2 ))) (setq r2 (/ d2 )。 (defun C:lwk() (setq pc (osnap (getpoint \n 輸入螺紋孔端面的中心點 :) near )) (setq ang (getangle pc \n 螺紋孔中心線與水平線的夾角 :)) (initget 7) 22 (setq d (getdist \n 請輸入螺紋孔的公稱直徑 (mm):)) (cond。if )。畫軸上鍵槽處剖視圖的剖面線 )。if (mand pline pt1 pt2 pt3 pt4 )。progn )。t1 表示軸上鍵槽的深度 ((and ( d 22) (= d 30)) (setq b 8 t1 t2 ))。if )。 一、鍵槽尺寸視圖的繪制命令 “jct” 在繪制軸、齒輪或帶輪等零件圖時，經(jīng)常需要畫軸上鍵槽處的剖視圖或輪轂鍵槽的端面視圖，比較麻煩；由于鍵槽的尺寸隨軸徑的變化而變化，所以我們可以用 LISP 程序來實現(xiàn)自動繪圖。其操作過程如下： Command: line From point: mid(設過直線的中點作垂線 ) of To point: 39。 假設過圓和一直線的交點作圓的切線的操作過程如下： Command: line From point: int(捕捉交點 ) of To point: 39。 4．作和一斜線相切的圓以及過圓上一點作圓的切線 利用 AutoCAD 正交模式可容易地畫出和垂直線或水平線相切的圓。仍以畫直線為例，操作過程如下： Command: line From point: 39。cal (啟動幾何計算器 ) Expression: (cen+end)/2 (輸入表達式，這里計算器把 OSNAP 的 cen 和 end 模式當作點坐標的臨時存儲單元 ) Select entity for CEN snap:(用光標捕捉圓心 ) Select entity for END snap:(用光標捕捉直線的端點 ) To point: 其它的目標捕捉模式如 int、 ins 、 tan 等等均可在幾何計算表達式中使用。 下面是利用 AutoCAD 幾何計算器的幾何運算功能實現(xiàn)在 AutoCAD 繪圖中經(jīng)常遇到的幾個快速定位的實例。因此，應該充分利用 AutoCAD 幾何計算器的幾何運算功能，來實現(xiàn) AutoCAD 繪圖中的快速定位。 在使用 AutoCAD 繪圖中，常常需要確定一些無法直接給出坐標的點。它可以作坐標點和坐標點之間的加減運算，可以使用 AutoCAD 的 OSNAP 模式捕捉屏幕上的坐標點參與運算，還可以自動計算幾何坐標點。 應用 AutoCAD 幾何計算器實現(xiàn)快速定位 引 言 幾何計算器是 AutoCAD R12 提供的一個十分有用的工具。 (修改尺寸標注形式 )源程序如下： 。同樣的問題也存在于一張圖中某些圖形進行了比例縮放時。 由于沒有安裝打印機或想用別人高檔打印機輸入 AutoCAD 圖形，需要到別的計算機去 17 打印 AutoCAD 圖形，但是別的計算機也可能沒安裝 AutoCAD，或者因為各種原因（如AutoCAD 圖形在別的計算機上字體顯示不正常，通過網(wǎng)絡打印，網(wǎng)絡打印不 正常等），不能利用別的計算機進行正常打印， 這時，可以先在自己計算機上將 AutoCAD 圖形打印到文件，形成打印機文件，然后，再在別的計算機上用 DOS 的拷貝命令將打印機文件輸出到打印機，方法為： copy ＜打印機文件＞ prn /b，須注意的是，為了能使用該功能，需先在系統(tǒng)中添加別的計算機上特定型號打印機，并將它設為默認打印機，另外， COPY 后不要忘了在最后加／ b，表明以二進制形式將打印機文件輸出到打印機。而一般的打印機或繪圖儀，也有 “橫向 ”和 “縱向 ”兩種送紙方向，所以同一尺寸的圖紙在 “圖紙尺寸 ”下拉菜單中列出兩次，但這里的橫向和縱向是指打印機內部判斷圖紙的方向， “橫向 ”送紙指的是打印機將打印紙放入打印機的物理方向作為 X 軸的方向，從出紙口首先出來的是的圖紙左邊界，而 “縱向 ”送紙是指打印機將打印紙放入打印機的物理方向作為 Y 軸方向，從出紙口首先出來的是圖紙的上邊界。具有線寬的對象除了可以使用線寬值打印外，還可以顯示線寬或通過輸出具有線寬的對象到其它應用程序中，但用戶不能用線寬特性來精確表示對象的寬度，所以如果對象實際是具有寬度的對象，最好還是使用 “Polyline”命令制定復合線寬度來繪制。在一個圖形文件中可以設定多個圖紙空間布局，每個布局都有一個唯一的名稱，布局可以復制、移動、重命名和刪除，也可以保存在模板文件中為新的圖形文件使用。 ，不再介紹。法蘭的繪制是可選擇的。 10 在主控程序中， (if (and (/= *bl nil) (/= * dwgscale nil) ) 判斷變量 *bl 及 *dwgscal 是否存在 .如不存在程序不再執(zhí)行， 因此需在 ACAD. LSP 中加載或在 mand 下賦值(注 :*bl=*dwgscale)。 CAD 技術已廣泛應用于各專業(yè)設計，但在化工工藝設計領域內商品化軟件不足，這就需要各設計單位自行開發(fā)應用軟件以適應 CAD 技術的發(fā)展 .本文提供的閥門繪制程序是在AutoCAD 二次開發(fā)的化工工藝計算機輔助設計 CPCAD 系統(tǒng)中的一個獨立程序，它以AutoLisp 語言編寫，功能全，使用方便，具有可讀性及一定的技巧。BXH 。改到寫文字圖層 text J M p1 txth 0 bx) 。寫文字 ) ((not p2) 。序號數(shù) 9 (if bxh (setq bx bxh)) (cond (p2 (mand layer set 2 ) 。圓圈半徑 (setq txth 5) 。根據(jù)該程序的編制原理，可演繹出使用在機械制圖中標注序號，標注焊接符號等程序。在另一端畫出一個 8～ 10mm 的圓 。當所輸入的數(shù)據(jù)不合適或計算結果溢出時對話框內會顯示錯誤提示信息。限于篇幅，本文不再提供該轉換函數(shù)，需要的同志可與筆者聯(lián)系。 在使用函數(shù) (rtos)將數(shù)據(jù)轉化為字符串時，筆者發(fā)現(xiàn)當數(shù)據(jù)大于 1e+100(即 10 的 100次方 )時，會將指數(shù) 100 自動地改為 99。 但在 AutoLISP 中當變量 base0 時，要求 power 只能是整型數(shù)或小數(shù)點后均為 0 的實數(shù)，如 2， 等，否則將得到錯誤信息或返回一個錯 誤結果 (視 power 值而定 )。最后編制對話框顯示及完成各種運算功能的驅動程序即可 (驅動程序 )，程序流程圖見圖 2。 1 原理及方法 AutoCAD 對話框結構包含多種構件，如 edit_box(編輯框 )、 text(文字 )、 button(按鈕 )等。 給 AutoCAD 增加計算器功能 在用 AutoCAD 進行繪圖時，經(jīng)常需要進行一些 必要的計算工作。 2. 用通用 C++編譯器將 編譯成 可執(zhí)行程序 ，將其拷貝到 CAD可找到的目錄下。 因 此建議采用以下步驟，使計算機按命令自動批量修改圖形文件。CHSCR 有兩個作用： ① 如果需要修改的圖形文件較少，可以在 ACAD 中通過 SCRLPT 命令直接調用。命令文件中的每個空格都是有意義的，因為 AotuCAD 將它看作回車，所以不能隨意增減。 因此，在編寫 SCR 命令文件時我們采用了修改圖中文字的 LISP 程序 (其清單附后 )。 例：把圖形文件 C80001～ C80098 中的圖紙編號 2066DD3 改變 2087DD2。然后利用AutoCAD 的 SCRIPT 命令，就可使計算機按命令自動批量修改圖形并存盤或生成 PLT 繪圖文件。 對于上述情況，過去一般的作法是將每一圖形文件調出來，逐一修改。 四、結束語 以上所舉例僅是該程序應用的一個簡單例子，在 實踐中還可用于圖塊的重新定義、圖框更新、建立繪圖標準配制、連續(xù)顯示幻燈片、連續(xù)出圖，限于篇幅不一一列舉。為此在 中，我們是這么處理的：當程序發(fā)現(xiàn)有相應圖形的 PLT文件，將自動把它刪除掉，并在屏幕上顯示出對應的信息。 在 ACAD命令狀態(tài)下，鍵入以下命令即可按 文件要求，對當前圖形完成所需的修改。 如果不需要輸出 PLT繪圖文件， PLOT后面四行可以不要。 在 DOS狀態(tài)下用文本編輯軟件建立 ： CHTEXT_all _ _2066DD3Enter 2087DD2Enter CHTEXT_all _ _C13Enter 2 D24〈 Enter〉 CHTEXT _all _ _DZ20Enter C45AD〈 Enter〉 PLOT〈 Enter〉 〈 Enter〉 〈 Enter〉 其中： _代表一個空格 〈 Enter〉代表回車 CHTEXT修改圖中文字的 LISP程序 二、如何使用 CHSCR 1. 創(chuàng)建 命令文件 AutoCAD 的命令和響應序 列所組成的 ASCⅡ 文件，是可在AotuCAD編輯狀態(tài)下執(zhí)行的文本文件。 中國最大的資料庫下載 能否將這些重復性的工作讓計算機來完成呢 ? AutoCAD是圖形設計的通用軟件，它為各種專業(yè)用的 CAD提供了盡可能多的圖形編輯功能，但很難實現(xiàn)自動化作圖的功能。 1 AutoCAD 中自動批量修改圖形文件的程序 一、概述 在工程 CAD繪圖中，常常會遇到下列棘手的問題： 在施工圖后期，大部分圖形文件都已完成，但因某一條件的變化，需在某卷圖中增加 (或減少 )一些圖紙，這將導致許多相關圖形文件的內容不得不進行相應的修改：如高層代號、圖紙編號等。在圖幅比較大時，只能反復使用 ZOOM命令，當所涉及的圖形文件較多時 (有時會有幾百個 )，采用手動操作，