AutoCAD中尺寸公差的自動(dòng)標(biāo)注

AutoCAD中尺寸公差標(biāo)注很麻煩，本文給出一短小AutoLISP程序，實(shí)現(xiàn)了公差值的自動(dòng)標(biāo)準(zhǔn)，通過鼠標(biāo)兩次選擇即可完成其操作，使用起來非常方便、快捷。
?
　　AutoCAD在用于機(jī)械設(shè)計(jì)時(shí)，公差標(biāo)注有兩種方法；其一是通過DIM參數(shù)設(shè)定完成，但參數(shù)設(shè)定繁瑣，速度也慢，每一個(gè)不同公差值都要設(shè)定一次，在R12 0中名義尺寸與公差值的小數(shù)點(diǎn)位數(shù)相同使名義尺寸顯得累贅(R13 0對(duì)此作了改進(jìn))；其二是用TEXT指令直接寫入，但速度也慢，字的位置也不易寫準(zhǔn)，常需用MOVE指令移動(dòng)一次。上述兩種方法都需在作圖時(shí)備公差數(shù)值表，先查表后標(biāo)注，因此在尺寸公差標(biāo)注上所花時(shí)間很多。
　　筆者用AutoLisp編寫了一尺寸公差自動(dòng)標(biāo)注程序，使用效果良好，速度也快，調(diào)用時(shí)僅兩次操作即可完成：首次操作選擇公差等級(jí)；再次操作選擇被標(biāo)注尺寸即可完成尺寸公差的自動(dòng)標(biāo)注。程序由四部分組成：輸入公差等級(jí)自動(dòng)查表；選取被標(biāo)注尺寸并進(jìn)行相應(yīng)處理；尺寸大小分類并查取上下偏差值；公差值寫入。若將該指令加入菜單后操作起來將更方便，即將公差等級(jí)符號(hào)(如H7、b6、r6、JS7等)做成幻燈片在菜單上調(diào)用。
一、輸入公差等級(jí)和查表
　　在菜單上選擇了公差標(biāo)準(zhǔn)條目后、屏幕上出現(xiàn)相應(yīng)幻燈片(如圖示)當(dāng)選取相應(yīng)公差等級(jí)的項(xiàng)目后，完成了兩個(gè)指令輸入：首先給出了公差等級(jí)(實(shí)際上是給出了在公差值表中該等級(jí)的相應(yīng)行號(hào)n值)；其次是啟動(dòng)了公差標(biāo)準(zhǔn)Lisp程序。Lisp程序啟動(dòng)后，打開公差值表(Tole.TXT)使用repeat函數(shù)在公差值表中連續(xù)讀取一行數(shù)據(jù)，至直與所標(biāo)公差等級(jí)相應(yīng)的第n行為止。
　　若所標(biāo)公差為H8，則菜單上相應(yīng)行內(nèi)容為:
　　[DAN(LH8)]^C^P(setg n 3)tolerance
　　若所標(biāo)公差為JS6，則菜單上相應(yīng)行內(nèi)容為：
　　[DAN(JS6)]^C^P(setg n 10)tolerance
　　公差標(biāo)注幻燈片
　　(注DAN為幻燈片庫(kù)名 DAN.SLB,LH8、JS6為幻燈片名LH8.SLD和JS6.SLP,tolerance為公差標(biāo)準(zhǔn)Lisp程序指令名)
　　若不做幻燈片則在啟動(dòng)Lisp前先鍵入Lisp變量n的值。為使標(biāo)注更方便，操作當(dāng)前層自動(dòng)換至尺寸標(biāo)注層(DIM層)。
二、選取被標(biāo)注尺寸并進(jìn)行處理
　　根據(jù)Lisp提示在圖形中選取被標(biāo)注尺寸，通過相應(yīng)處理，得到了該尺寸的數(shù)值、字體高度、位置、角度等留作備用，使用的函數(shù)是entget和assoc。在獲取被標(biāo)注尺寸時(shí)，使用了Substr函數(shù)將圓標(biāo)注尺寸前面的R、r、Φ隱去便于后續(xù)數(shù)值大小判別。同時(shí)還判別了該尺寸是否帶有小數(shù)點(diǎn)，可使公差值寫入時(shí)位置更準(zhǔn)確，因?yàn)樾?shù)點(diǎn)所占不到一個(gè)字寬。
三、尺寸大小分類并獲取相應(yīng)上下限偏差值
　　在第一步查表所得的數(shù)據(jù)行含有該公差等級(jí)中的全部上下限數(shù)值(GB1801-79表中的一列結(jié)合第二步獲取的被標(biāo)注尺寸數(shù)值，本步即可查出被標(biāo)注尺寸的上下限偏差值，選用Cond函數(shù)判別偏差值所處位置，再用Substr函數(shù)將其讀出，如若被標(biāo)注尺寸為40，則上偏差值為第75字符起的6個(gè)字符，下偏差值為第82字符起的6個(gè)字符，要求Tole.TXT數(shù)據(jù)表應(yīng)豎列整齊。
四、公差值寫入
　　用TEXT指令將公差值寫入，其寫入位置依據(jù)名義尺寸的位數(shù)及是否有小數(shù)點(diǎn)算出，角度字高也隨名義尺寸變化。對(duì)JS級(jí)公差作特殊處理(n=10、11、12*)。
　　為了使Lisp具有通用性，對(duì)絕對(duì)值公差(如+0.01 0、+0.02 0、0 +0.01、*0.01 等)也作了考慮，因?yàn)檫@些公差常用的不多，直接寫入了Lisp程序。程序中n從40起，數(shù)據(jù)表中并沒有第40行以及后續(xù)行。
　　該Lisp程序不大，但函蓋了全部機(jī)械設(shè)計(jì)中的公差標(biāo)注類型如相對(duì)公差(國(guó)標(biāo))、絕對(duì)公差、一般尺寸、半徑尺寸。為了使標(biāo)注美觀還考慮了小數(shù)點(diǎn)，使用了While函數(shù)可對(duì)同公差等級(jí)的尺寸連續(xù)標(biāo)注。
五、幾點(diǎn)說明
　　1 由于需獲取尺寸標(biāo)注的名義尺寸，故在尺寸標(biāo)注前DIMASO應(yīng)設(shè)定為DFF，否則取不到尺寸數(shù)值。
　　2 程序是以字符位置取上、下限偏差，故公差數(shù)值表(tole.TXT)中應(yīng)整齊，只能用純文本編輯軟件編寫(如EDIT)。
　　3 幻燈片編排可根據(jù)使用頻度來安排，本人是用AutoCAD進(jìn)行模具設(shè)計(jì)，故幻燈片第一頁(yè)20個(gè)做了上述排序，讀者可根據(jù)實(shí)際情況作調(diào)整。
4本程序在AutoCAD R11.0 R12.0、R13.0上通過，源程序和公差值表如下：
(defun c:tolerance ()
(setq txt (open "tole.txt" "r"))
?(repeat n (setq tols$ (read-line txt)))
?(close txt)
(setvar "cmdecho" 0) (command "layer" "s" "dim" "")
(while T
?(setq obj (entget (car (entsel))))
?(setq posi (assoc 10 obj))
?(setq txth (cdr (assoc 40 obj)))
?(setq toleh (* 0.6 txth))
?(setq angr (cdr (assoc 50 obj)))
?(setq angd (* (/ angr pi) 180))
?(setq dim$ (cdr (assoc 1 obj)))
?(setq ln (strlen dim$))
?(if (= (substr dim$ 1 1) "R") (setq dim$ (substr dim$ 2 (- ln 1))))
?(if (= (substr dim$ 1 1) "r") (setq dim$ (substr dim$ 2 (- ln 1))))
?if (= (substr dim$ 1 1) "%") (setq dim$ (substr dim$ 4 (- ln 3)) ln (- ln 2)))
?(setq dimt (atof dim$))
?(setq lupr (getvar "luprec"))
?(setvar "luprec" 0)
?(if (= (strlen dim$) (strlen (rtos (atoi dim$)))) (setq ln (+ ln 0.7)))
?(setvar "luprec" lupr)
?(cond ((and (<= dimt 3) (> dimt 0)) (setq st1 5 st2 12))
?((and (<=? dimt 6) (> dimt 3)) (setq st1 19 st2 26))
?((and (<=? dimt 10) (> dimt 6)) (setq st1 33 st2 40))
?((and (<=? dimt 18) (> dimt 10)) (setq st1 47 st2 54))
?((and (<=? dimt 30) (> dimt 18)) (setq st1 61 st2 68))
?((and (<=? dimt 50) (> dimt 30)) (setq st1 75 st2 82))
?((and (<=? dimt 80) (> dimt 50)) (setq st1 89 st2 96))
?((and (<=? dimt 120) (> dimt 80)) (setq st1 103 st2 110 ))
?((and (<= dimt 180) (> dimt 120)) (setq st1 117 st2 124))
?((and (<= dimt 250) (> dimt 180)) (setq st1 131 st2 138))
?((and (<= dimt 315) (> dimt 250)) (setq st1 145 st2 152))
? ((and (<= dimt 400) (> dimt 315)) (setq st1 159 st2 166))
?((and (<= dimt 500) (> dimt 400)) (setq st1 173 st2 180))
?((and (<= dimt 630) (> dimt 500)) (setq st1 187 st2 194))
?)
?(setq tole1$ (substr tols$ st1 6) tole2$ (substr tols$ st2 6))
?(setq x1 (+ (cadr posi) (* (cos angr) (* (- ln 1.2) txth))))
?(setq y1 (+ (caddr posi) (* (sin angr) (* (- ln 1.2) txth))))
?(setq x2 (+ x1 (* (cos (+ angr 1.5708)) (* 0.85 txth))))
?(setq y2 (+ y1 (* (sin (+ angr 1.5708)) (* 0.85 txth))))
?(setq xy1 (list x1 y1))
?(setq xy2 (list x2 y2))
?(if (or (= n 10) (= n 11) (= n 12) (= n 13) (= n 27) (= n 28))
?(progn (setq tole$ (strcat "%%p" tole1$))(command "text" xy1 txth angd tole$))
?(progn (if (= n 40) (setq tole1$ "+0.01" tole2$ " 0"))
?(if (= n 41) (setq tole1$ "+0.02" tole2$ " 0"))
?(if (= n 42) (setq tole1$ "+0.05" tole2$ " 0"))
(if (= n 43) (setq tole1$ "+0.10" tole2$ " 0"))
?(if (= n 48) (setq tole1$ " 0" tole2$ "-0.10"))
?(if (= n 47) (setq tole1$ " 0" tole2$ "-0.05"))
?(if (= n 46) (setq tole1$ " 0" tole2$ "-0.02"))
? (if (= n 45) (setq tole1$ " 0" tole2$ "-0.01"))
?(command "text" xy2 toleh angd tole1$ "text" xy1 toleh angd tole2$))
? )
?)
)(princ)
H6 ｜+0.006 0 +0.008 0 +0.009 0 +0.011 0 +0.013 0 +0.016 0 …
H7 ｜+0.010 0 +0.012 0 +0.015 0+0.018 0 +0.021 0 +0.025 0 …
H8 ｜+0.014 0 +0.018 0 +0.022 0+0.027 0 +0.033 0 +0.039 0 …
H9 ｜+0.025 0 +0.030 0 +0.036 0+0.043 0 +0.052 0 +0.062 0 …
G7 ｜+0.012 +0.002 +0.016 +0.004 +0.020 +0.005 +0.024+0.006 +0.028 +0.007 +0.034 +0.009 …
K7 ｜ 0 -0.010 +0.003 -0.009 +0.005 -0.010 +0.006 -0.012 +0.006 -0.015 +0.007 -0.018 …
N7 ｜-0.004 -0.014 -0.004 -0.016 -0.004 -0.019 -0.005-0.023 -0.007 -0.028 -0.008 -0.033 …
S7 ｜-0.014 -0.024 -0.015 -0.027 -0.017 -0.032 -0.021 -0.039 -0.027 -0.048 -0.034 -0.059 …
U7 ｜-0.018 -0.028 -0.019 -0.031 -0.022 -0.037 -0.026-0.044 -0.033 -0.054 -0.051 -0.076 …
JS6 ｜0.003 0.004 0.005 0.006 0.007 0.008 …
JS7 ｜0.005 0.006 0.007 0.009 0.010 0.012 …
JS8 ｜0.007 0.009 0.011 0.013 0.016 0.019 …
JS9 ｜0.012 0.015 0.018 0.021 0.026 0.031 …
h6 ｜ 0 -0.006 0 -0.008 0 -0.009 0 -0.011 0 -0.013 0 -0.016 …
h7 ｜ 0 -0.010 0 -0.012 0 -0.015 0 -0.018 0 -0.021 0 -0.025 …
h8 ｜ 0 -0.014 0 -0.018 0 -0.022 0 -0.027 0 -0.033 0 -0.039 …
h9 ｜ 0 -0.025 0 -0.030 0 -0.036 0 -0.043 0 -0.052 0 -0.062 …
m6 ｜+0.008 +0.002 +0.012 +0.004 +0.015 +0.006 +0.018 +0.007 +0.021 +0.008 +0.025 +0.009 …
m7 ｜+0.012 +0.002 +0.016 +0.004 +0.021 +0.006 +0.025 +0.007 +0.029 +0.008 +0.034 +0.009 …
g6 ｜-0.002 -0.008 -0.004 -0.012 -0.005 -0.014 -0.006 -0.017 -0.007 -0.020 -0.009 -0.025 …
k6 ｜+0.006 0 +0.009 +0.001 +0.010 +0.001 +0.012 +0.001 +0.015 +0.002 +0.018 +0.002 …
n6 ｜+0.010 +0.004 +0.016 +0.008 +0.019 +0.010 +0.023 +0.012 +0.028 +0.015 +0.033 +0.017 …
s6 ｜+0.020 +0.014 +0.027 +0.019 +0.032 +0.023 +0.039 +0.028 +0.048 +0.035 +0.059 +0.043 …
u6 ｜+0.024 +0.018 +0.031 +0.023 +0.037 +0.028 +0.044 +0.033 +0.054 +0.041 +0.076 +0.060 …
f7 ｜-0.006 -0.016 -0.010 -0.022 -0.013 -0.028 -0.016 -0.034 -0.020 -0.041 -0.025 -0.050 …
f8 ｜-0.006 -0.020 -0.010 -0.028 -0.013 -0.035 -0.016 -0.043 -0.020 -0.053 -0.025 -0.064 …
公差值表tole.txt