CAD中数据统计方法

1、-CAD 中统计数字的方法：（ 1） 使用 CAD 中的快捷键 TT，但是需要先进行加载，加载方法是：打开 CAD ，选择菜单栏 -工具 - 加载应用程序-选择窗口中全部文件 -加载（即可）。然后就可以用这个快捷键了。在 CAD 中选择需要计算的数据，然后 TT快捷键，点下空格后就会出现一个对话框了。（ 2） 在绘图过程中， 经常会对数字文本进行四则运算， 或者统计数字，在现有的 CAD 命令中没有直接命令与之相关，用计算器又麻烦。所以可以用一个小程序来解决。我觉得挺好的。快捷键 TJ。用法：1、先加载程序，首先会提示你如何用这个程序。2、然后你输入计算结果的精度， 即小数点位数： 这个只要在

2、开始的时候输入就可以了， 以后的命令你不用输入精度， 如果你要调整精度，随时输入命令 JD.3、下面为它的具体用法， 你可以选择多个文字， 如果是除法，劝你最好不要选择 0 数字，否则会出错。 而且命令可以连用，直到你空输入（没有选择或者取点）为止。+ - * / 命令不用多说。. 命令为对所选文字同时加减乘除某个数。4、统计的命令为TJ。其速度是很快的，我曾对十万级的数字验证，求结果既快又准。5、这个程序适用于各个版本， 我甚至觉得可以用于DOS 的 CAD版本。原程序：;说明(alert " 提醒 :n 请首先设置好输精度 <小数点位数 >, 在绘图的过程中可随时用命

3、令 JD 设置精度。-n 命令 "+ - * /"分别代表对所选择的数字求和差积商。n 其中 "- /" 则是以你第一个选到的数字文本为被减数和被除数。n 命令 "."( 点点 ) 代表对所选择的数字文本统一加减乘除某个数，默认为 1。n 命令 "TJ" 代表对所选择的数字文本进行数学统计。n 所有生成的新文本均与第一个选到的数字文本的样式相同 (除角度外 )。");定义了一个全局变量为精度(defun C:JD (/ )(prompt "n请输入精度 ,直接回车则为系统精度:")(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)-;所有数字都加减乘除某个数(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请输入加减乘除符号<+ - * />:")(initget 2)(if (null (setq op (getreal "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);选择和插入点(defun common1 ()(and(setq sel (ssget '(0 . "TEXT")(null (initget 0 "Yes No")-(if (setq key (getkword "n 是否保留原数字 Yes,No?< 默认不保留 >:")(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请输入插入点 :")(make-text first result ins)-(update-text first result);选择集合转化成数字列表(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);创建新文字 ,在指定点插入(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);保留文字 ,仅更新内容(defun update-

12、text (ent string / txtlst)(setq txtlst (entget ent)(setq txtlst (subst (cons 1 string) (assoc 1 txtlst) txtlst)(entmod txtlst);统计数字文本(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请输入插入点 :")(princ "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统计已经完成 !")(princ);统计函数-(defun STAT (numlst / len sum ave var sqr std)(setq len (length numlst);样本数目(setq sum (apply '+ numlst); 和(setq ave (/ sum len);均值(setq var (mapcar '(lambda (x) (* (- x ave) (- x ave)numlst);差平方(s