怎么计算框内数据的平均值和最大最小值呢？

lxb9721

(defun C:EE ( / #g1 &kw &ss1 ent x)
(if (and
  (setq ent (entsel "\n请选择封闭的多段线"))
  (setq ent (car ent));图元
  (setq #g1 (entget ent));属性
  (= (cdr (assoc 0 #g1)) "LWPOLYLINE");分析是多段线
  (= (cdr (assoc 70 #g1)) 1);判断是封闭
  (setq &ss1 (mapcar 'cdr (vl-remove-if '(lambda (X) (/= 10 (car x))) #g1)));多段线上的点
     )
  (progn
   (if (setq &kw (ssget "wp" &ss1))
   ;框选择 包含在框内的及和框相交的被选择;如果要窗选【cp】修改为【wp】即可
    (setq &kw (ssadd ent &kw))
    (progn
     (setq &kw (ssadd) &kw (ssadd ent &kw))
    )
   )
   (command "erase" "all" "r" &kw "")
  )
)
(princ)
);
;

xyp1964

1. (defun c:tt ()
   
2.   (if (and (setq s1 (car (entsel "\n请选择封闭的多段线")))
   
3.            (setq ent (entget s1))
   
4.            (= (cdr (assoc 0 ent)) "LWPOLYLINE") ;分析是多段线
   
5.            (or (member (cdr (assoc 70 ent)) '(1 129))
   
6.                (equal (vlax-curve-getStartPoint s1)
   
7.                       (vlax-curve-getEndPoint s1)
   
8.                       1e-3
   
9.                )
   
10.            )
    
11.            (setq ptn (mapcar 'cdr
    
12.                              (vl-remove-if '(lambda (X) (/= (car x) 10)) ent)
    
13.                      )
    
14.            )
    
15.            (setq ss (ssget "wp" ptn '((0 . "TEXT") (1 . "~*[~`--9]*"))))
    
16.       )
    
17.     (setq lst  (mapcar '(lambda (x) (distof (cdr (assoc 1 (entget x)))))
    
18.                        (mapcar 'cadr (cdr (reverse (ssnamex ss))))
    
19.                )
    
20.           nn   (length lst)
    
21.           pjz  (/ (apply '+ lst) nn 1.)        ;平均值
    
22.           lst  (vl-sort lst '<)
    
23.           Nmin (car lst)                ;最小值
    
24.           Nmax (last lst)                ;最大值
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt ()<br />   (if (and (setq s1 (car (entsel "\n请选择封闭的多段线")))<br />            (setq ent (entget s1))<br />            (= (cdr (assoc 0 ent)) "LWPOLYLINE") ;分析是多段线<br />            (or (member (cdr (assoc 70 ent)) '(1 129))<br />                (equal (vlax-curve-getStartPoint s1)<br />                       (vlax-curve-getEndPoint s1)<br />                       1e-3<br />                )<br />            )<br />            (setq ptn (mapcar 'cdr<br />                              (vl-remove-if '(lambda (X) (/= (car x) 10)) ent)<br />                      )<br />            )<br />            (setq ss (ssget "wp" ptn '((0 . "TEXT") (1 . "~*[~`--9]*"))))<br />       )<br />     (setq lst  (mapcar '(lambda (x) (distof (cdr (assoc 1 (entget x)))))<br />                        (mapcar 'cadr (cdr (reverse (ssnamex ss))))<br />                )<br />           nn   (length lst)<br />           pjz  (/ (apply '+ lst) nn 1.)        ;平均值<br />           lst  (vl-sort lst '<)<br />           Nmin (car lst)                ;最小值<br />           Nmax (last lst)                ;最大值<br />     )<br />   )<br />   (princ)<br /> )

yoyoho

谢谢! xyp1964 分享程序!!!!!!