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è)小程序來解決。我覺得挺好的。快捷鍵TJ。 用法：1、 先加載程序，首先會(huì)提示你如何用這個(gè)程序。2、然后你輸入計(jì)算結(jié)果的精度，即小數(shù)點(diǎn)位數(shù)：這個(gè)只要在開始的時(shí)候輸入就可以了，以后的命令你不用

2、輸入精度，如果你要調(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í)用命令JD設(shè)置精度。 n命令+ - * /分別代表對(duì)所選擇的數(shù)字求和差積商。 n其中- / 則是以你第一個(gè)選到的數(shù)

3、字文本為被減數(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)精度:) (initget 4) (if (setq PRECISION (getint) (princ) (setq PRECISION (getvar LUPREC) ) )(C:JD) ;加(defun C:+ (/ key sel ins first numlst resu

4、lt) (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);乘(defun C:* (/ key sel ins first numlst result) (while (common1) (setq result (apply * (cadr numlst) (

5、common2) ) (princ);除(defun C:/ (/ key sel ins first numlst result) (while (common1) (setq result (apply / (cadr numlst) (common2) ) (princ);所有數(shù)字都加減乘除某個(gè)數(shù)(defun C:. (/ key op sel ins first numlst result) (while (setq sel (ssget (0 . TEXT) (setq first (ssname sel 0) (setq Numlst (sel-list sel) (initget

6、 1 + - * /) (setq key (getkword n請(qǐng)輸入加減乘除符號(hào):) (initget 2) (if (null (setq op (getreal n請(qǐng)輸入操作數(shù):) (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 sy

7、m) (list old op) (setq new (cons 1 (rtos new (getvar LUNITS) PRECISION) (setq lst (subst 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?:) (setq key Yes) (setq key No) ) (setq first (ssnam

8、e sel 0) (setq Numlst (sel-list sel) );做文字或者更新文字(defun common2 () (setq result (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) (setq i 0) (rep

9、eat (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 33

10、0 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)容(def

11、un update-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 ins (getpoint

12、 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 (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 (lam