1、CAD中統計數字的方法：(1) 使用CAD中的快捷鍵TT,但是需要先進行加載，加載方法是：打開CAD選擇菜單欄-工具-加載應用程序-選擇窗口中全部文件-加載(即可)。然后就可以用這個快捷鍵了。在CAD中選擇需要計算的數據，然后TT快捷鍵，點下空格后就會出現一個對話框了。(2) 在繪圖過程中，經常會對數字文本進行四則運算，或者統計數字，在現有的CAD命令中沒有直接命令與之相關，用計算器又麻煩。所以可以用一個小程序來解決。我覺得挺好的。快捷鍵TJ。用法：1、先加載程序，首先會提示你如何用這個程序。2、然后你輸入計算結果的精度，即小數點位數：這個只要在開始的時候輸入就可以了，以后的命令你不用輸入精度

2、，如果你要調整精度，隨時輸入命令JD.3、下面為它的具體用法，你可以選擇多個文字，如果是除法，勸你最好不要選擇0數字，否則會出錯。而且命令可以連用，直到你空輸入(沒有選擇或者取點)為止。+-*/命令不用多說。.命令為對所選文字同時加減乘除某個數。4、統計的命令為TJ。其速度是很快的，我曾對十萬級的數字驗證，求結果既快又準。5、這個程序適用于各個版本，我甚至覺得可以用于DOS勺CAD版本。原程序：;說明（alert"提醒:n請首先設置好輸精度<小數點位數>,在繪圖勺過程中可隨時用命令JD設置精度。n命令"+-*/"分別代表對所選擇勺數字求和差積商。n其中

3、"-/"則是以你第一個選到勺數字文本為被減數和被除數。n命令"."（點點）代表對所選擇勺數字文本統一加減乘除某個數，默認為1。n命令"TJ"代表對所選擇的數字文本進行數學統計n所有生成的新文本均與第一個選到的數字文本的樣式相同(除角度外)。");定義了一個全局變量為精度(defunC:JD(/)(prompt"n請輸入精度,直接回車則為系統精度:")(initget4)(if(setqPRECISION(getint)(princ)(setqPRECISION(getvar"LUPREC&quo

4、t;)(C:JD);加(defunC:+(/keyselinsfirstnumlstresult)(while(common1)(setqresult(apply'+(cadrnumlst)(common2)(princ);減(defunC:-(/keyselinsfirstnumlstresult)(while(common1)(setqresult(apply'-(cadrnumlst)(common2)(princ);乘(defunC:*(/keyselinsfirstnumlstresult)(while(common1)(setqresult(apply'*(

5、cadrnumlst)(common2)(princ);除(defunC:/(/keyselinsfirstnumlstresult)(while(common1)(setqresult(apply'/(cadrnumlst)(common2)(princ);所有數字都加減乘除某個數(defunC:.(/keyopselinsfirstnumlstresult)(while(setqsel(ssget'(0."TEXT")(setqfirst(ssnamesel0)(setqNumlst(sel->listsel)(initget1"+-*/

6、")(setqkey(getkword"n請輸入加減乘除符號<+-*/>:")(initget2)(if(null(setqop(getreal"n請輸入操作數<默認為1>:")(setqop1.0)(all-calnumlstkeyop)(princ);(defunall-cal(resultsymop/lstoldnew)(foreachn(carnumlst)(setqlst(entgetn)(setqold(atof(cdr(assoc1lst)(setqnew(eval(cons(readsym)(listol

7、dop)(setqnew(cons1(rtosnew(getvar"LUNITS")PRECISION)(setqlst(substnew(assoc1lst)lst)(entmodlst);選擇和插入點(defuncommon1()(and(setqsel(ssget'(0."TEXT")(null(initget0"YesNo")(if(setqkey(getkword"n是否保留原數字Yes,No?<默認不保留>:")(setqkey"Yes")(setqkey&quo

8、t;No")(setqfirst(ssnamesel0)(setqNumlst(sel->listsel);做文字或者更新文字(defuncommon2()(setqresult(rtosresult(getvar"LUNITS")PRECISION)請輸入插入點:")(if(=key"No")(if(setqins(getpoint"n(make-textfirstresultins)(update-textfirstresult);選擇集合轉化成數字列表(defunsel->list(sel/ientlstn

9、umElsnls)(setqi0)(repeat(sslengthsel)(setqent(ssnameseli)(setqlst(entgetent)(setqnum(atof(cdr(assoc1lst)(setqEls(consentEls)(setqNls(consnumNls)(setqi(1+i)(list(reverseEls)(reverseNls);創建新文字,在指定點插入(defunmake-text(firststringinspt/removetxtlstlst)(setqremove(list-133051101150)(setqtxtlst(entgetfirst)

10、(foreachntxtlst(if(not(member(carn)remove)(setqlst(consnlst)(setqlst(cons(cons1string)lst)(setqlst(cons(cons10inspt)lst)(setqlst(cons(cons11inspt)lst)(setqlst(reverselst)(cdr(assoc40(entmakelst);保留文字,僅更新內容(defunupdate-text(entstring/txtlst)(setqtxtlst(entgetent)(setqtxtlst(subst(cons1string)(assoc1t

11、xtlst)txtlst)(entmodtxtlst);統計數字文本(defunC:tj(/unselinstollstnumlstfirstdatalenangHIGjnm)(setqun(getvar"LUNITS")(while(and(setqsel(ssget'(0."TEXT")(setqins(getpoint"n請輸入插入點:")(princ"n統計正在進行")(setqtollst(sel->listsel)(setqnumlst(cadrtollst)(setqfirst(caar

12、tollst)(setqdata(STATnumlst)(setqlen(strcat(caardata)(itoa(cdardata)(setqHIG(*(make-textfirstlenins)1.5)(setqang(*Pi-0.5)(setqj1)(repeat4(setqn(nthjdata)(setqm(strcat(carn)(rtos(cdrn)unPRECISION)(make-textfirstm(polarinsang(*jHIG)(setqj(1+j)(princ"n統計已經完成!")(princ);統計函數(defunSTAT(numlst/lensumavevarsqrstd)(setqlen(lengthnumlst);本數目(setqsum(apply'+numlst)(setqvar(mapcar'(lambda(x)(*(-xave)(-xave)num