AutoCAD中尺寸公差的自動標注AutoCAD中尺寸公差標注很麻煩，本文給出一短小AutoLISP程序，實現(xiàn)了公差值的自動標準，通過鼠標兩次選擇即可完成其操作，使用起來非常方便、快捷。
.KB^3pOpx }Sm(]y AutoCAD在用于機械設計時，公差標注有兩種方法；其一是通過DIM參數(shù)設定完成，但參數(shù)設定繁瑣，速度也慢，每一個不同公差值都要設定一次，在R12 0中名義尺寸與公差值的小數(shù)點位數(shù)相同使名義尺寸顯得累贅(R13 0對此作了改進)；其二是用TEXT指令直接寫入，但速度也慢，字的位置也不易寫準，常需用MOVE指令移動一次。上述兩種方法都需在作圖時備公差數(shù)值表，先查表后標注，因此在尺寸公差標注上所花時間很多。
s [RAHU 筆者用AutoLisp編寫了一尺寸公差自動標注程序，使用效果良好，速度也快，調用時僅兩次操作即可完成：首次操作選擇公差等級；再次操作選擇被標注尺寸即可完成尺寸公差的自動標注。程序由四部分組成：輸入公差等級自動查表；選取被標注尺寸并進行相應處理；尺寸大小分類并查取上下偏差值；公差值寫入。若將該指令加入菜單后操作起來將更方便，即將公差等級符號(如H7、b6、r6、JS7等)做成幻燈片在菜單上調用。
.9/ hHCp 一、輸入公差等級和查表
rT=rrvV3g 在菜單上選擇了公差標準條目后、屏幕上出現(xiàn)相應幻燈片(如圖示)當選取相應公差等級的項目后，完成了兩個指令輸入：首先給出了公差等級(實際上是給出了在公差值表中該等級的相應行號n值)；其次是啟動了公差標準Lisp程序。Lisp程序啟動后，打開公差值表(Tole.TXT)使用repeat函數(shù)在公差值表中連續(xù)讀取一行數(shù)據(jù)，至直與所標公差等級相應的第n行為止。
j"t(0 m 若所標公差為H8，則菜單上相應行內容為:
|{z:IQLv [DAN(LH8)]^C^P(setg n 3)tolerance
a5dLQx b 若所標公差為JS6，則菜單上相應行內容為：
SXSgld2uS [DAN(JS6)]^C^P(setg n 10)tolerance
G)AqbY 公差標注幻燈片
zq 3\}9 (注DAN為幻燈片庫名 DAN.SLB,LH8、JS6為幻燈片名LH8.SLD和JS6.SLP,tolerance為公差標準Lisp程序指令名)
JK7G/]j+Ez 若不做幻燈片則在啟動Lisp前先鍵入Lisp變量n的值。為使標注更方便，操作當前層自動換至尺寸標注層(DIM層)。
GL>O4S<` 二、選取被標注尺寸并進行處理
WA <v9#m 根據(jù)Lisp提示在圖形中選取被標注尺寸，通過相應處理，得到了該尺寸的數(shù)值、字體高度、位置、角度等留作備用，使用的函數(shù)是entget和assoc。在獲取被標注尺寸時，使用了Substr函數(shù)將圓標注尺寸前面的R、r、Φ隱去便于后續(xù)數(shù)值大小判別。同時還判別了該尺寸是否帶有小數(shù)點，可使公差值寫入時位置更準確，因為小數(shù)點所占不到一個字寬。
a{
