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

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

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

3、的數(shù)字求和差積商。n其中 - /則是以你第一個選到的數(shù)字文本為被減數(shù)和被除數(shù)。n命令 .(點點 ) 代表對所選擇的數(shù)字文本統(tǒng)一加減乘除某個數(shù)，默認為 1。n命令 TJ 代表對所選擇的數(shù)字文本進行數(shù)學統(tǒng)計。n所有生成的新文本均與第一個選到的數(shù)字文本的樣式相同( 除角度外) 。 ); 定義了一個全局變量為精度(defun C:JD (/ )(prompt n 請輸入精度 , 直接回車則為系統(tǒng)精度 :)(initget 4)(if (setq PRECISION (getint)(princ)(setq PRECISION (getvar LUPREC)(C:JD); 加(defun C:+ (/

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

5、y * (cadr numlst)(common2)(princ); 除(defun C:/ (/ key sel ins first numlst result)(while (common1)(setq result (apply / (cadr numlst)(common2)(princ); 所有數(shù)字都加減乘除某個數(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)(

6、initget 1 + - * /)(setq key (getkword n 請輸入加減乘除符號 :) (initget 2)(if (null (setq op (getreal n 請輸入操作數(shù) :) (setq op 1.0)(all-cal numlst key op)(princ)J J J(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

7、 sym) (list old op)(setq new (cons 1 (rtos new (getvar LUNITS) PRECISION)(setq lst (subst new (assoc 1 lst) lst)(entmod lst); 選擇和插入點(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 (ssname sel 0)(s

8、etq Numlst (sel-list sel); 做文字或者更新文字(defun common2 ()(setqresult (rtos result (getvar LUNITS) PRECISION)(if (= key No)(if (setq ins (getpoint 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)(repeat (sslength sel)(se

9、tq 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)建新文字 , 在指定點插入(defun make-text (first string inspt / remove txtlst lst)(setq remove (list -1 330 5 1 10 11 50)(setq txtlst (entg

10、et 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-text (ent string / txtlst)(setq t

11、xtlst (entget ent)(setq txtlst (subst (cons 1 string) (assoc 1 txtlst) txtlst) (entmod txtlst); 統(tǒng)計數(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 n 請輸入插入點 :) (princ n 統(tǒng)計正在進行 )(setq tollst (se

12、l-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īng)完成 !)(princ); 統(tǒng)計函數(shù)樣本數(shù)目 和 均值(defun STAT (numlst / len sum ave var sqr std)(setq len (length numlst);(setq sum (apply + numlst) ;(setq ave (/ sum len);(setq var (m