选数求和,求积,求最大值,最小值...........欢迎大家一起来拓展,嘿嘿~~~

77077

欢迎大家一起来拓展,嘿嘿~~~

2. 
   
3. (defun c:xx( / Layer sslst numlst num)
   
4.    (defun ss->EnLst (ss / retu)
   
5.        (setq retu (apply 'append (ssnamex ss)))
   
6.        (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
   
7.    )
   
8.   (setq K (getint "\n 求和<1>,求积<2>,最大值<3>,最小值<4>"))
   
9.   (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))
   
10.   (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))
    
11.   (cond
    
12.       ((= K 1)(setq num (apply '+ numlst)))
    
13.       ((= K 2)(setq num (apply '* numlst)))
    
14.       ((= K 3)(setq num (apply 'max numlst)))
    
15.       ((= K 4)(setq num (apply 'min numlst)))
    
16.       (T (setq num (apply '+ numlst)))
    
17.   )
    
18.   (princ num)
    
19.   (princ)
    
20. )
    

<br /> (defun c:xx( / Layer sslst numlst num)<br />    (defun ss->EnLst (ss / retu)<br />        (setq retu (apply 'append (ssnamex ss)))<br />        (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))<br />    )<br />   (setq K (getint "\n 求和<1>,求积<2>,最大值<3>,最小值<4>"))<br />   (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))<br />   (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))<br />   (cond<br />       ((= K 1)(setq num (apply '+ numlst)))<br />       ((= K 2)(setq num (apply '* numlst)))<br />       ((= K 3)(setq num (apply 'max numlst)))<br />       ((= K 4)(setq num (apply 'min numlst)))<br />       (T (setq num (apply '+ numlst)))<br />   )<br />   (princ num)<br />   (princ)<br /> )<br />

lml2023

我已经帮你们实现了求和，  (setq K (getint "\n 最大值<1>,最小值<2>,求和<3>,求差<4>,求积<5>,求商<6>,求平均值<7>"))
并且输出字高为300，红色字体

2. ;4-求最值QB
   
3. (defun c:QB( /  sslst numlst num)
   
4.    (defun ss->EnLst (ss / retu)
   
5.        (setq retu (apply 'append (ssnamex ss)))
   
6.        (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
   
7.    )
   
8.   (setq K (getint "\n 最大值<1>,最小值<2>,求和<3>,求差<4>,求积<5>,求商<6>,求平均值<7>"))
   
9.   (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))
   
10.   (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))
    
11.   (cond
    
12. 
    
13.       ((= K 1)(setq num (apply 'max numlst)));;求最大值
    
14.       ((= K 2)(setq num (apply 'min numlst)));;求最小值
    
15.       ((= K 3)(setq num (apply '+ numlst)))
    
16.       ((= K 4)(setq num (apply '- numlst)))
    
17.       ((= K 5)(setq num (apply '* numlst)))
    
18.       ((= K 6)(setq num (apply '/ numlst)))
    
19.       ((= K 7)(setq num (/ (apply '+ numlst) (length numlst))));;平均数
    
20. 
    
21.       (T (setq num (apply '+ numlst)))
    
22.   )
    
23.   (princ num)
    
24. 
    
25. 
    
26. (setq insPt0 (getpoint "\n请输入计算结果插入点: "));;;计算结果显示在图中位置
    
27. (setq bb (strcat "Z="(rtos num 2 3  )""));;;rtos num 2 2中 表示输出第一个2表示输出十进制，如果是1就是科学计数，第二个2表示输出2位小数
    
28. (command "_text"  insPt0  300    "" bb 0 );;;300字高
    
29. 
    
30.   (setq textEnt (entlast))
    
31.   (entmod (append (entget textEnt) '((62 . 1))));;;设置文本颜色为红色
    
32. 
    
33. 
    
34. (princ)
    
35. )
    
36. 
    
37. 
    
38. 
    
39. 
    
40. (princ)
    
41. (defun prin()
    
42. (princ "\n*************心雨编写2023-9，QQ12369867*************** ")
    
43. (princ)
    
44. )

;4-求最值QB<br /> (defun c:QB( /  sslst numlst num)<br />    (defun ss->EnLst (ss / retu)<br />        (setq retu (apply 'append (ssnamex ss)))<br />        (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))<br />    )<br />   (setq K (getint "\n 最大值<1>,最小值<2>,求和<3>,求差<4>,求积<5>,求商<6>,求平均值<7>"))<br />   (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))<br />   (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))<br />   (cond<br /> <br />       ((= K 1)(setq num (apply 'max numlst)));;求最大值<br />       ((= K 2)(setq num (apply 'min numlst)));;求最小值<br />       ((= K 3)(setq num (apply '+ numlst)))<br />       ((= K 4)(setq num (apply '- numlst)))<br />       ((= K 5)(setq num (apply '* numlst)))<br />       ((= K 6)(setq num (apply '/ numlst)))<br />       ((= K 7)(setq num (/ (apply '+ numlst) (length numlst))));;平均数<br /> <br />       (T (setq num (apply '+ numlst)))<br />   )<br />   (princ num)<br /> <br /> <br /> (setq insPt0 (getpoint "\n请输入计算结果插入点: "));;;计算结果显示在图中位置<br /> (setq bb (strcat "Z="(rtos num 2 3  )""));;;rtos num 2 2中 表示输出第一个2表示输出十进制，如果是1就是科学计数，第二个2表示输出2位小数<br /> (command "_text"  insPt0  300    "" bb 0 );;;300字高<br /> <br />   (setq textEnt (entlast))<br />   (entmod (append (entget textEnt) '((62 . 1))));;;设置文本颜色为红色<br /> <br /> <br /> (princ)<br /> )<br /> <br /> <br /> <br /> <br /> (princ)<br /> (defun prin()<br /> (princ "\n*************心雨编写2023-9，QQ12369867*************** ")<br /> (princ)<br /> )

lml2023

我已经帮你们实现了求和，  (setq K (getint "\n 最大值<1>,最小值<2>,求和<3>,求差<4>,求积<5>,求商<6>,求平均值<7>"))
并且输出字高为300，红色字体

2. 
   
3. ;4-求最值QB
   
4. (defun c:QB( /  sslst numlst num)
   
5.    (defun ss->EnLst (ss / retu)
   
6.        (setq retu (apply 'append (ssnamex ss)))
   
7.        (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
   
8.    )
   
9.   (setq K (getint "\n 最大值<1>,最小值<2>,求和<3>,求差<4>,求积<5>,求商<6>,求平均值<7>"))
   
10.   (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))
    
11.   (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))
    
12.   (cond
    
13. 
    
14.       ((= K 1)(setq num (apply 'max numlst)));;求最大值
    
15.       ((= K 2)(setq num (apply 'min numlst)));;求最小值
    
16.       ((= K 3)(setq num (apply '+ numlst)))
    
17.       ((= K 4)(setq num (apply '- numlst)))
    
18.       ((= K 5)(setq num (apply '* numlst)))
    
19.       ((= K 6)(setq num (apply '/ numlst)))
    
20.       ((= K 7)(setq num (/ (apply '+ numlst) (length numlst))));;平均数
    
21. 
    
22.       (T (setq num (apply '+ numlst)))
    
23.   )
    
24.   (princ num)
    
25. 
    
26. 
    
27. (setq insPt0 (getpoint "\n请输入计算结果插入点: "));;;计算结果显示在图中位置
    
28. (setq bb (strcat "Z="(rtos num 2 3  )""));;;rtos num 2 2中 表示输出第一个2表示输出十进制，如果是1就是科学计数，第二个2表示输出2位小数
    
29. (command "_text"  insPt0  300    "" bb 0 );;;300字高
    
30. 
    
31.   (setq textEnt (entlast))
    
32.   (entmod (append (entget textEnt) '((62 . 1))));;;设置文本颜色为红色
    
33. 
    
34. 
    
35. (princ)
    
36. )

<br /> ;4-求最值QB<br /> (defun c:QB( /  sslst numlst num)<br />    (defun ss->EnLst (ss / retu)<br />        (setq retu (apply 'append (ssnamex ss)))<br />        (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))<br />    )<br />   (setq K (getint "\n 最大值<1>,最小值<2>,求和<3>,求差<4>,求积<5>,求商<6>,求平均值<7>"))<br />   (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))<br />   (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))<br />   (cond<br /> <br />       ((= K 1)(setq num (apply 'max numlst)));;求最大值<br />       ((= K 2)(setq num (apply 'min numlst)));;求最小值<br />       ((= K 3)(setq num (apply '+ numlst)))<br />       ((= K 4)(setq num (apply '- numlst)))<br />       ((= K 5)(setq num (apply '* numlst)))<br />       ((= K 6)(setq num (apply '/ numlst)))<br />       ((= K 7)(setq num (/ (apply '+ numlst) (length numlst))));;平均数<br /> <br />       (T (setq num (apply '+ numlst)))<br />   )<br />   (princ num)<br /> <br /> <br /> (setq insPt0 (getpoint "\n请输入计算结果插入点: "));;;计算结果显示在图中位置<br /> (setq bb (strcat "Z="(rtos num 2 3  )""));;;rtos num 2 2中 表示输出第一个2表示输出十进制，如果是1就是科学计数，第二个2表示输出2位小数<br /> (command "_text"  insPt0  300    "" bb 0 );;;300字高<br /> <br />   (setq textEnt (entlast))<br />   (entmod (append (entget textEnt) '((62 . 1))));;;设置文本颜色为红色<br /> <br /> <br /> (princ)<br /> )

红黄蓝3210

xyp1964 发表于 2014-8-25 23:28
先来个效果：

院长方便发一下这个数字处理插件吗

77077

不好意思,第一行多了个 Layer,原本我的程序有个图层过滤!

77077

((= K 5)(setq num (/ (apply '+ numlst) (length numlst))));平均数

doro

极值亮显出来才好啊

lucas_3333

支持一下！
只支持单行文字，如果能支持单行，多行文字加上标注值，那样就good了

香田里浪人

(setq insPt0 (getpoint "\n请输入计算结果插入点: "));;;计算结果显示在图中位置
(setq bb (strcat "计算结果="(rtos num )""))
(command "_text" insPt0 2 "" bb 0)

xyp1964

先来个效果：

qyming

改成框选怎么不成功?

hi-kit

学习学习！