CAD中数据统计方法

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

2、输 入就可以了，以后的命令你不用输入精度，如果你要调整精度，随时输入命令 JD.3、下面为它的具体用法，你可以选择多个文字，如果是除法，劝你最好不 要选择 0 数字，否则会出错。而且命令可以连用，直到你空输入(没有选择或 者取点)为止。+ - * / 命令不用多说。. 命令为对所选文字同时加减乘除某个数。4、统计的命令为TJ。其速度是很快的，我曾对十万级的数字验证，求结果 既快又准。5、这个程序适用于各个版本，我甚至觉得可以用于DOS勺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 (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); 所有数字都加减乘除某个数(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 请输入操作数 :) (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是否保留原数字 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); 选择集合转化成数字列表(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); 创建新文字 , 在指定点插入(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); 保留文字 , 仅更新内容(defun update-text (ent string / txtlst)(setq t

11、xtlst (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 ins (getpoint n 请输入插入点 :) (princ n 统计正在进行 )(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 统计已经完成 !)(princ); 统计函数样本数目 和 均值(defun STAT (numlst / len sum ave var sqr std)(setq len (length numlst);(setq sum (apply + numlst) ;(setq ave (/ sum len);(setq var (m