在autocad中實(shí)現(xiàn)尺寸公差自動(dòng)標(biāo)注的探討

《在autocad中實(shí)現(xiàn)尺寸公差自動(dòng)標(biāo)注的探討》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫(kù)。

1、在AutoCAD中實(shí)現(xiàn)尺寸公差自動(dòng)標(biāo)注的探討用AutoCAD進(jìn)行機(jī)械設(shè)計(jì)時(shí)，標(biāo)注尺寸公差是設(shè)計(jì)人員經(jīng)常遇到的一個(gè)問(wèn)題。用Text命令手工標(biāo)注，不僅速度慢，而且容易出錯(cuò)；通過(guò)對(duì)話框設(shè)定參數(shù)進(jìn)行標(biāo)注，每個(gè)不同的公差值都要設(shè)定一次。這些方法在標(biāo)注時(shí)都需要翻閱手冊(cè)，給設(shè)計(jì)者帶來(lái)很人的不便。曾有一些標(biāo)注公差的程序，使用效果并不很理想。筆者利用Autolisp語(yǔ)言編寫(xiě)了一個(gè)尺寸公差自動(dòng)標(biāo)注的程序。使用該程序進(jìn)行公差標(biāo)注不必翻閱手冊(cè)，只需選擇基木尺寸和公差帶代號(hào)即可自動(dòng)標(biāo)注尺寸公差，可大大提高標(biāo)注公差的速度。一、公差值數(shù)據(jù)存貯在標(biāo)注公差過(guò)程中，對(duì)于一

2、定的基本尺寸而言，能否根據(jù)基本尺寸大小、公差等級(jí)和基本偏差代號(hào)迅速查詢出上、下偏差值，是實(shí)現(xiàn)公差自動(dòng)標(biāo)注的關(guān)鍵。為此，可將國(guó)標(biāo)中常用的極限偏差以Datatxt為文件名保存在數(shù)據(jù)文件中。數(shù)據(jù)文件格式如下：f6g6h6h7(...-0.025?0.041-0.049?0.010-0.029(…-0.030-0.049-0.058?0.012-0.034-0.009-0.0250-0.0160-0.025...)；dimt40?50mm(...-0.0300-0.0190-0.030???)；dimt50?65mm-0.010-0.0290-

3、0.0190-0.030…)；dimt65?80mm(…-0.0360-0.0220-0.035...)；dimt80?100mm第一行為公差帶代號(hào)，實(shí)際文件中沒(méi)有。若公差帶代號(hào)為g6,基本尺寸為45mm,則其上偏差為-0.009mm,下偏差為-0.025mm□因查詢函數(shù)是以字符位置獲取上、下偏差的，所以公差數(shù)值表應(yīng)整齊，否則獲取的公差值將出錯(cuò)。二、基本尺寸的獲取用Entget>Substr函數(shù)獲取基本尺寸dimt、字高Txth及旋轉(zhuǎn)角Angd,便于在標(biāo)注公差時(shí)確定公差的字高、角度等參數(shù)。這里要注意，在尺寸標(biāo)注前Dimaso應(yīng)設(shè)定為of

4、f,否則取不到尺寸。對(duì)于基本尺寸詢有R、「、①等符號(hào)時(shí)，應(yīng)作特殊處理。對(duì)用“Text”命令標(biāo)注的尺寸和用-Dimension"命令標(biāo)注的尺寸，處理方法略有不同，詳見(jiàn)源程序。三、公差數(shù)值的查詢?yōu)榭趧?dòng)查詢出所需的公差數(shù)值，我們高設(shè)定了兩個(gè)函數(shù)：首先用Record()函數(shù)檢索出數(shù)據(jù)文件中符合基本尺寸(dimt)范圍的數(shù)據(jù)行，用Read()函數(shù)將該行中所有公差值賦給相應(yīng)的變量hi,以便將相應(yīng)的公差值設(shè)置為上、下偏差。例如，當(dāng)獲取的基本尺寸為40mm.輸入的公差帶代號(hào)為h7時(shí)，Record。得到的數(shù)據(jù)行號(hào)為8,用Rcad()將該行上的公差數(shù)值全部

5、賦給hi,則h29為上偏差，h30為下偏差值。相應(yīng)的程序如下：(defunread(recordfname)(setqfp(openfname”r”))(if(=fpnil)(alert"notopendatatxt!n)(progn(repeatrecord(setqh(read(read-linefp))))(setqn(lengthh))(setqb'()i1)(while(<=in)(setqb(appendb(list(read(strcat"hn(itoai))))))(setqi(1+i)))(sctqi0)(while(

6、dimt3)(<=dimt6))2)((and(>dimt6)(<=dimt10))3)((and(>dimt10)(<=dimt14))4)；dimt為獲取的基本尺寸……；因篇幅所限，以下數(shù)行略。))四、口動(dòng)標(biāo)注公差為使標(biāo)注的尺寸公差與基本尺寸協(xié)調(diào)，在標(biāo)注前先根據(jù)基本

7、尺寸的字高、旋轉(zhuǎn)角等確定出公差的字高和旋轉(zhuǎn)角，并計(jì)算出上、下偏差的標(biāo)注位置，然后用“TexL命令標(biāo)注公差。程序在設(shè)計(jì)中，考慮到了只知道上、下偏差值而不知道公差等級(jí)和公差代號(hào)的情況(此時(shí)可不輸入公差等級(jí)和代號(hào)，而直接輸入上、下偏差)，同時(shí)也考慮到了某些特殊情形，如±0.01等等。源程序(文件名為gcbz..lsp)如下：(defunc:gcbz()(setqss(entget(car(entsel))))(setqgedh(getstring"輸入公差帶代號(hào):”))(setqp(getpointn輸入插入點(diǎn):"))(setqdim

8、(edr(assoc1ss)))(setqdimldim)(progn(if(=(substrdim11)"R")(setqdiml(substrdim2)))(if(=(substrdim11)T‘)(s