cad中数据统计方法.docVIP

CAD中统计数字的方法： 使用CAD中的快捷键TT，但是需要先进行加载，加载方法是：打开CAD，选择菜单栏---工具---加载应用程序---选择窗口中全部文件---加载（即可）。然后就可以用这个快捷键了。在CAD中选择需要计算的数据，然后TT快捷键，点下空格后就会出现一个对话框了。 在绘图过程中，经常会对数字文本进行四则运算，或者统计数字，在现有的CAD命令中没有直接命令与之相关，用计算器又麻烦。所以可以用一个小程序来解决。我觉得挺好的。快捷键TJ。 用法： 先加载程序，首先会提示你如何用这个程序。 2、然后你输入计算结果的精度，即小数点位数：这个只要在开始的时候输入就可以了，以后的命令你不用输入精度，如果你要调整精度，随时输入命令JD. 3、下面为它的具体用法，你可以选择多个文字，如果是除法，劝你最好不要选择0数字，否则会出错。而且命令可以连用，直到你空输入（没有选择或者取点）为止。 + - * / 命令不用多说。 .. 命令为对所选文字同时加减乘除某个数。 4、统计的命令为TJ。其速度是很快的，我曾对十万级的数字验证，求结果既快又准。 5、这个程序适用于各个版本，我甚至觉得可以用于DOS的CAD版本。 原程序： ;;;说明 (alert 提醒: \n请首先设置好输精度小数点位数,在绘图的过程中可随时用命令JD设置精度。 \n命令\+ - * /\分别代表对所选择的数字求和差积商。 \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:+ (/ 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 (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 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:))) (setq op 1.0) ) (all-cal numlst key op) ) (princ) ) ;;; (defun all-cal (res