在线的朋友帮我,求求你们,我要统计上千个这样的数据

byghbcx

将"面积="换成"L="就可以了,

用subst后,再用entmod更新

xxsheng

;(长度统计程序）本程序可以计算以L=打头的数字之和
;author feng_tan    feng_tan@21cn.com
(vl-load-com)
(Defun c:gc ( / fil len n sum e ed et ln tzb sm sumst)
 (command "redraw")
;(initget 1 "T W")
(setq fil (ssget))
(setq len (sslength fil))
(setq n 0)
(setq sum 0)
(while (<= n (1- len))
   (setq e (ssname fil n))
   (if (= "TEXT" (cdr (assoc 0 (setq ed (entget e)))))    ;3
     (progn
  (setq et (cdr (assoc 1 (setq ed (entget e))))) ;********
  (if (wcmatch et "*面积=*平方米*")
    (progn
      (setq ln(+ 6 (vl-string-search "面积=" et)))
      (setq sm(substr et ln (- (vl-string-search "平方米" et) ln)))
      (setq sum (+ sum (atof sm)))      
    )
  )
)
)
(setq n (1+ n))
)
(setq sumst (rtos sum 2))
(princ (strcat "\n\n\t\t 面积= " sumst))
(princ)
)
;;不知道到底是不是你想要,,,,,,,

xxsheng

;(长度统计程序）本程序可以计算以L=打头的数字之和
;author feng_tan    feng_tan@21cn.com
(vl-load-com)
(Defun c:gc ( / fil len n sum e ed et ln tzb sm sumst)
 (command "redraw")
;(initget 1 "T W")
(setq fil (ssget))
(setq len (sslength fil))
(setq n 0)
(setq sum 0)
(while (<= n (1- len))
   (setq e (ssname fil n))
   (if (= "TEXT" (cdr (assoc 0 (setq ed (entget e)))))    ;3
     (progn
  (setq et (cdr (assoc 1 (setq ed (entget e))))) ;********
  (if (wcmatch et "*面积=*")
    (progn
      (setq ln(+ 6 (vl-string-search "面积=" et)))
      (setq sm(substr et ln))
      (setq sum (+ sum (atof sm)))
    )
  )
)
)
(setq n (1+ n))
)
(setq sumst (rtos sum 2))
(princ (strcat "\n\n\t\t 面积= " sumst))
(princ)
)

caoyin

(vl-load-com)
(Defun c:gc (/ fil len n sum e ed et ln tzb sm sumst)
  (command "redraw")
     ;(initget 1 "T W")
  (setq fil (ssget))
  (setq len (sslength fil))
  (setq n 0)
  (setq sum 0)
  (while (<= n (1- len))
    (setq e (ssname fil n))
    (if (= "TEXT" (cdr (assoc 0 (setq ed (entget e))))) ;3
      (progn
 (setq et (cdr (assoc 1 (setq ed (entget e))))) ;********
 (if (wcmatch et "*面积=*平方米*")
   (progn
     (setq ln (+ 6 (vl-string-search "面积=" et)))
     (setq
       sm (substr et ln (- (vl-string-search "平方米" et) ln))
     )
   )
   (setq sm et)
 )
 (setq sum (+ sum (atof sm)))
      )
    )
    (setq n (1+ n))
  )
  (setq sumst (rtos sum 2))
  (princ (strcat "\n\n\t\t 面积= " sumst))
  (princ)
)