CAD中数据统计方法

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

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

3、对所选择的数字求和差积商。n其中"- /"则是以你第一个选到的数字文本为被减数和被除数。n 命令"."（点点）代表对所选择的数字文本统一加减乘除某个数，默认为1。n命令"TJ”代表对所选择的数字文本进行数学统计。n所有生成的新文本均与第一个选到的数字文本的样式相同(除角度外)。”)；定义了一个全局变量为精度(defun C:JD (/ )(prompt "n请输入精度，直接回车则为系统精度:")(initget 4)(if (setq PRECISION (getint)(princ)(setq PRECISION (get

4、var "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 (commonl)(setq result (apply '- (cadr numlst)(common2)(princ);乘(defun C:* (/ key sel ins fir

5、st numlst result)(while (common1)(setq result (apply '* (cadr numlst)(princ)；除(defun C:/ (/ key sel ins first numlst result)(while (common1)(setq result (apply '/ (cadr numlst)(common2)(princ);所有数字都加减乘除某个数(defun C:. (/ key op sel ins first numlst result)(while (setq sel (ssget '(0 . &quo

6、t;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>:")(setq op 1.0)(all-cal numlst key op)(princ)；(defun all-cal (result sym

7、 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 (subst new (assoc 1 lst) lst)(entmod lst);选择和插入点(defun common1 ()(and(setq sel (ssge

8、t '(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 Numlst (sel->list sel);做文字或者更新文字(defun common2 ()(setq result (rtos result (getvar

9、 "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)(setq i 0)(repeat (sslength sel)(setq ent (ssname sel i)(setq 1st (entget ent)(setq

10、num (atof (cdr (assoc 1 1st)(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 1st)(setq remove (list -1 330 5 1 10 11 50)(setq txtlst (entget first)(foreach n txtlst(if (not (member (car n) r

11、emove)(setq 1st (cons (cons 1 string) 1st)(setq 1st (cons (cons 10 inspt) 1st)(setq 1st (cons (cons 11 inspt) 1st)(setq 1st (reverse 1st)(cdr (assoc 40 (entmake 1st);保留文字,仅更新内容(defun update-text (ent string / txtlst)(setq txt1st (entget ent)(setq txtlst (subst (cons 1 string) (assoc 1 txtlst) txtlst

12、)(entmod txtlst)；统计数字文本(defun C:tj (/ un sel ins tollst numlst first data len angHIG j n m)(setq un (getvar "LUNITS")(while (and (setq sel (ssget '(0 . "TEXT")(setq ins (getpoint "n请输入插入点:")(princ "n统计正在进行")(setq tollst (sel->list sel)(setq numlst (cadr

13、 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)(setqm(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)J和值(setq var (mapcar '(lambda (x) (* (- x ave) (- x ave)numl