用AutoCAD進行機械設計時，標注尺寸公差是設計人員經常遇到的一個問題。用Text命令手工標注，不僅速度慢，而且容易出錯；通過對話框設定參數進行標注，每個不同的公差值都要設定一次。這些方法在標注時都需要翻閱手冊，給設計者帶來很大的不便。曾有一些標注公差的程序，使用效果并不很理想。筆者利用Autolisp語言編寫了一個尺寸公差自動標注的程序。使用該程序進行公差標注不必翻閱手冊，只需選擇基本尺寸和公差帶代號即可自動標注尺寸公差，可大大提高標注公差的速度。
　　一、公差值數據存貯
　　在標注公差過程中，對于一定的基本尺寸而言，能否根據基本尺寸大小、公差等級和基本偏差代號迅速查詢出上、下偏差值，是實現公差自動標注的關鍵。為此，可將國標中常用的極限偏差以Data·txt為文件名保存在數據文件中。數據文件格式如下：
　　f6　　　　　　 g6　　　　h6　　　　h7　　　　
　　……
　　(… -0.025 -0.041　-0.009 -0.025　0 -0.016　0 -0.025 …)；dimt40～50mm (… -0.030 -0.049　-0.010 -0.029　0 -0.019　0 -0.030 …)；dimt50～65mm
　　(… -0.030 -0.049　-0.010 -0.029　0 -0.019　0 -0.030 …)；dimt65～80mm (… -0.036 -0.058　-0.012 -0.034　0 -0.022　0 -0.035 …)；dimt80～100mm
　　……
　　第一行為公差帶代號，實際文件中沒有。若公差帶代號為g6，基本尺寸為45mm，則其上偏差為-0.009mm，下偏差為-0.025mm。因查詢函數是以字符位置獲取上、下偏差的，所以公差數值表應整齊，否則獲取的公差值將出錯。
　　二、基本尺寸的獲取
　　用Entget、Substr函數獲取基本尺寸dimt、字高Txth及旋轉角Angd，便于在標注公差時確定公差的字高、角度等參數。這里要注意，在尺寸標注前Dimaso應設定為off，否則取不到尺寸。對于基本尺寸前有R、r、Φ等符號時，應作特殊處理。對用“Text”命令標注的尺寸和用“Dimension”命令標注的尺寸，處理方法略有不同，詳見源程序。
　　三、公差數值的查詢
　　為自動查詢出所需的公差數值，我們高設定了兩個函數：首先用Record()函數檢索出數據文件中符合基本尺寸（dimt）范圍的數據行，用Read()函數將該行中所有公差值賦給相應的變量hi，以便將相應的公差值設置為上、下偏差。例如，當獲取的基本尺寸為40mm、輸入的公差帶代號為h7時，Record()得到的數據行號為8，用Read()將該行上的公差數值全部賦給hi，則h29為上偏差，h30為下偏差值。相應的程序如下：
　　(defun read (record fname)