CAD中數(shù)據(jù)統(tǒng)計(jì)方法

1、-CAD 中統(tǒng)計(jì)數(shù)字的方法：（ 1） 使用 CAD 中的快捷鍵 TT，但是需要先進(jìn)行加載，加載方法是：打開 CAD ，選擇菜單欄 -工具 - 加載應(yīng)用程序-選擇窗口中全部文件 -加載（即可）。然后就可以用這個(gè)快捷鍵了。在 CAD 中選擇需要計(jì)算的數(shù)據(jù)，然后 TT快捷鍵，點(diǎn)下空格后就會(huì)出現(xiàn)一個(gè)對(duì)話框了。（ 2） 在繪圖過程中， 經(jīng)常會(huì)對(duì)數(shù)字文本進(jìn)行四則運(yùn)算， 或者統(tǒng)計(jì)數(shù)字，在現(xiàn)有的 CAD 命令中沒有直接命令與之相關(guān)，用計(jì)算器又麻煩。所以可以用一個(gè)小程序來解決。我覺得挺好的?？旖萱I TJ。用法：1、先加載程序，首先會(huì)提示你如何用這個(gè)程序。2、然后你輸入計(jì)算結(jié)果的精度， 即小數(shù)點(diǎn)位數(shù)： 這個(gè)只要在

2、開始的時(shí)候輸入就可以了， 以后的命令你不用輸入精度， 如果你要調(diào)整精度，隨時(shí)輸入命令 JD.3、下面為它的具體用法， 你可以選擇多個(gè)文字， 如果是除法，勸你最好不要選擇 0 數(shù)字，否則會(huì)出錯(cuò)。 而且命令可以連用，直到你空輸入（沒有選擇或者取點(diǎn)）為止。+ - * / 命令不用多說。. 命令為對(duì)所選文字同時(shí)加減乘除某個(gè)數(shù)。4、統(tǒng)計(jì)的命令為TJ。其速度是很快的，我曾對(duì)十萬級(jí)的數(shù)字驗(yàn)證，求結(jié)果既快又準(zhǔn)。5、這個(gè)程序適用于各個(gè)版本， 我甚至覺得可以用于DOS 的 CAD版本。原程序：;說明(alert " 提醒 :n 請(qǐng)首先設(shè)置好輸精度 <小數(shù)點(diǎn)位數(shù) >, 在繪圖的過程中可隨時(shí)用命

3、令 JD 設(shè)置精度。-n 命令 "+ - * /"分別代表對(duì)所選擇的數(shù)字求和差積商。n 其中 "- /" 則是以你第一個(gè)選到的數(shù)字文本為被減數(shù)和被除數(shù)。n 命令 "."( 點(diǎn)點(diǎn) ) 代表對(duì)所選擇的數(shù)字文本統(tǒng)一加減乘除某個(gè)數(shù)，默認(rèn)為 1。n 命令 "TJ" 代表對(duì)所選擇的數(shù)字文本進(jìn)行數(shù)學(xué)統(tǒng)計(jì)。n 所有生成的新文本均與第一個(gè)選到的數(shù)字文本的樣式相同 (除角度外 )。");定義了一個(gè)全局變量為精度(defun C:JD (/ )(prompt "n請(qǐng)輸入精度 ,直接回車則為系統(tǒng)精度:")(i

4、nitget 4)(if (setq PRECISION (getint)(princ)(setq PRECISION (getvar "LUPREC")-(C:JD);加(defun C:+ (/ key sel ins first numlst result)(while (common1)(setq result (apply '+ (cadr numlst)(common2)(princ);減(defun C:- (/ key sel ins first numlst result)(while (common1)(setq result (apply &#

5、39;- (cadr numlst)(common2)(princ)-);乘(defun C:* (/ key sel ins first numlst result)(while (common1)(setq result (apply '* (cadr numlst)(common2)(princ);除(defun C:/ (/ key sel ins first numlst result)(while (common1)(setq result (apply '/ (cadr numlst)(common2)(princ)-;所有數(shù)字都加減乘除某個(gè)數(shù)(defun C:.

6、 (/ key op sel ins first numlst result)(while (setq sel (ssget '(0 . "TEXT")(setq first(ssname sel 0)(setq Numlst (sel->list sel)(initget 1 "+ - * /")(setq key (getkword "n請(qǐng)輸入加減乘除符號(hào)<+ - * />:")(initget 2)(if (null (setq op (getreal "n請(qǐng)輸入操作數(shù) <默認(rèn)為1>

7、;:")(setq op 1.0)(all-cal numlst key op)(princ);-(defun all-cal (result sym op / lst old new)(foreach n (car numlst)(setq lst (entget n)(setq old (atof (cdr (assoc 1 lst)(setq new (eval (cons (read sym) (list old op)(setq new (cons 1 (rtos new (getvar "LUNITS")PRECISION)(setq lst (sub

8、st new (assoc 1 lst) lst)(entmod lst);選擇和插入點(diǎn)(defun common1 ()(and(setq sel (ssget '(0 . "TEXT")(null (initget 0 "Yes No")-(if (setq key (getkword "n 是否保留原數(shù)字 Yes,No?< 默認(rèn)不保留 >:")(setq key "Yes")(setq key "No")(setq first(ssname sel 0)(setq Nu

9、mlst (sel->list sel);做文字或者更新文字(defun common2 ()(setqresult (rtos result (getvar "LUNITS")PRECISION)(if (= key "No")(if (setq ins (getpoint "n請(qǐng)輸入插入點(diǎn) :")(make-text first result ins)-(update-text first result);選擇集合轉(zhuǎn)化成數(shù)字列表(defun sel->list (sel / i ent lst num Els nls)

10、(setq i 0)(repeat (sslength sel)(setq ent (ssname sel i)(setq lst (entget ent)(setq num (atof (cdr (assoc 1 lst)(setq Els (cons ent Els)(setq Nls (cons num Nls)(setq i (1+ i)(list(reverse Els)-(reverse Nls);創(chuàng)建新文字 ,在指定點(diǎn)插入(defun make-text (first string inspt / remove txtlst lst)(setq remove (list -1 3

11、30 5 1 10 11 50)(setq txtlst (entget first)(foreach n txtlst(if (not (member (car n) remove)(setq lst (cons n lst)(setq lst (cons (cons 1 string) lst)(setq lst (cons (cons 10 inspt) lst)(setq lst (cons (cons 11 inspt) lst)(setq lst (reverse lst)-(cdr (assoc 40 (entmake lst);保留文字 ,僅更新內(nèi)容(defun update-

12、text (ent string / txtlst)(setq txtlst (entget ent)(setq txtlst (subst (cons 1 string) (assoc 1 txtlst) txtlst)(entmod txtlst);統(tǒng)計(jì)數(shù)字文本(defun C:tj (/ un sel ins tollst numlst first data len ang HIG j n m)(setq un (getvar "LUNITS")(while (and (setq sel (ssget '(0 . "TEXT")(setq

13、ins (getpoint "n請(qǐng)輸入插入點(diǎn) :")(princ "n統(tǒng)計(jì)正在進(jìn)行 .")(setq tollst (sel->list sel)(setq numlst (cadr tollst)-(setq first(caar tollst)(setq data(STAT numlst)(setq len (strcat (caar data) (itoa (cdar data)(setq HIG (* (make-text first len ins) 1.5)(setq ang (* Pi -0.5)(setq j 1)(repeat 4

14、(setq n (nth j data)(setq m (strcat (car n) (rtos (cdr n) un PRECISION)(make-text first m (polar ins ang (* j HIG)(setq j (1+ j)(princ "n統(tǒng)計(jì)已經(jīng)完成 !")(princ);統(tǒng)計(jì)函數(shù)-(defun STAT (numlst / len sum ave var sqr std)(setq len (length numlst);樣本數(shù)目(setq sum (apply '+ numlst); 和(setq ave (/ sum len);均值(setq var (mapcar '(lambda (x) (* (- x ave) (- x ave)numlst);差平方(s