各位大神,求一个cad的lisp:求封闭线框内多个数值的平均值

lxb9721

各位大神,求一个cad的lisp:求封闭线框内多个数值的平均值

start4444

论坛搜一下数字求和的代码一大把

1291500406

(defun C:bb (/ lss en enlist)(setvar "cmdecho" 0)(setq en (car (entsel"\n必强提示:选择多段线\n")))
(if en(command "pedit" "M" en "" "C" ""))(setq enlist (entget en))(setq lss (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) enlist)))
(Setq bbsssetfirst (ssget "WP" lss '((0 . "TEXT")(1 . "~*[~`--9]*"))) )(sssetfirst nil bbsssetfirst)(bbaverage))
(defun bbaverage ()(setq ss (ssget '((0 . "TEXT")))i -1 j 0 m 0)
(while (setq s1 (ssname ss (setq i (1+ i))))(setq z (cdr (assoc 1 (entget s1))))
(if (setq z (distof z))(progn(setq j (1+ j)m (+ m z)))))(princ "\n平均值 = ")(princ (/ m j 1.0))(princ))

xyp1964

1. (defun c:tt ()
   
2.   (if (and (setq s1 (car (entsel "\n选择多段线: ")))
   
3.            (xyp-Etype s1 "*polyline")
   
4.       )
   
5.     (progn
   
6.       (Setq ptn        (xyp-Vertexs s1 0)
   
7.             ss        (ssget "WP" ptn '((0 . "TEXT") (1 . "~*[~`--9]*")))
   
8.             lst        (mapcar        '(lambda (x) (distof (xyp-DXF 1 x)))
   
9.                         (xyp-Ss2List ss)
   
10.                 )
    
11.             vv        (/ (apply '+ lst) (length lst) 1.)
    
12.       )
    
13.       (princ "\n平均值 = ")
    
14.       (princ vv)
    
15.       (sssetfirst nil ss)
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

(defun c:tt ()<br />   (if (and (setq s1 (car (entsel "\n选择多段线: ")))<br />            (xyp-Etype s1 "*polyline")<br />       )<br />     (progn<br />       (Setq ptn        (xyp-Vertexs s1 0)<br />             ss        (ssget "WP" ptn '((0 . "TEXT") (1 . "~*[~`--9]*")))<br />             lst        (mapcar        '(lambda (x) (distof (xyp-DXF 1 x)))<br />                         (xyp-Ss2List ss)<br />                 )<br />             vv        (/ (apply '+ lst) (length lst) 1.)<br />       )<br />       (princ "\n平均值 = ")<br />       (princ vv)<br />       (sssetfirst nil ss)<br />     )<br />   )<br />   (princ)<br /> )