块文字 如何求和？

ddk1983

块文字 用as nbs等求和插件 无法求和 求大佬支招

自贡黄明儒

最简单的办法用ET工具爆破，成普通文字之后就可以求和了。
ET命令burst

ddk1983

自贡黄明儒 发表于 2023-2-28 11:26
最简单的办法用ET工具爆破，成普通文字之后就可以求和了。
ET命令burst

感谢

烟盒迷唇

爆破太残忍了，写个代码提取不就得了

ddk1983

烟盒迷唇 发表于 2023-2-28 15:35
爆破太残忍了，写个代码提取不就得了

这个技术 办不了

zml84

块内实体，提取可参见：


;;;============================================================*
;;;功能：获取  块定义  内部实体。                               *
;;;测试：(QL-BLOCK-get "3柱墩")                                 *
;;;日期：zml84 于 2022-11-27                                *
(defun QL-BLOCK-get (block_name / lst_ent ent pt lst_pt)
   (if (setq en (tblobjname "BLOCK" block_name))
       (progn  
          ;; 1、获取列表  
          (setq lst_ent '())
           (while (setq en (entnext en))
               (setq ent   (entget en)   
                 lst_ent (cons ent lst_ent)   
            )                )   
        ;; 2、逐个ent分析，获取圆心坐标   
         (foreach ent lst_ent  
              ;;;  (print ent)   
                             (if (and (= (cdr (assoc 0 ent)) "CIRCLE")  
                      (< 0.25(cdr (assoc 40 ent)) 3.0)                    )   
                 (setq  pt  (cdr (assoc 10 ent))
                       lst_pt (cons pt lst_pt)      
              )   
              )   
                    )  
      )  
  )     
   ;;返回  
  (reverse lst_pt) ;_块内圆对象的圆心坐标
)

zml84

https://mp.weixin.qq.com/s/k0kAc9nzMbfQ3tPVbEEOiA

ddk1983

zml84 发表于 2023-2-28 22:31
https://mp.weixin.qq.com/s/k0kAc9nzMbfQ3tPVbEEOiA

大佬 这个怎么用 在哪里操作啊

zml84

1. ;;;============================================================*
   
2. ;;;功能：块（普通块）内文字求和                                 *
   
3. ;;;日期：zml84 练习于 2023-03-12                               *
   
4. (defun c:tt (/  ss  lst  i  en  ent  block_name  tmp  sum)
   
5. 
   
6.     (princ "\n功能：块（普通块）内文字求和")
   
7.    
   
8.     (if (setq ss (ssget '((0 . "INSERT"))))
   
9.         (progn
   
10.             ;; 1、逐个块查找
    
11.             (setq lst  '()
    
12.                   i  0
    
13.             )
    
14.             (repeat (sslength ss)
    
15.             
    
16.                 (setq en   (ssname ss i)
    
17.                       ent   (entget en)
    
18.                       block_name (cdr (assoc 2 ent))
    
19.                 )
    
20.                 (setq tmp (20230312-BLOCK-get-text block_name))
    
21.                 (print tmp)
    
22.                
    
23.                 (setq lst (append lst tmp ))
    
24.                
    
25.                 (setq i (1+ i))
    
26.             )
    
27.             
    
28.             ;; 2、显示找到的文本内容
    
29.             (princ "\n------------------------")
    
30.             (print lst)
    
31.             (princ " ===>>  ")
    
32.             
    
33.             ;; 3、求和运算
    
34.             (setq sum (apply '+ (mapcar 'eval (mapcar 'read lst))))
    
35.             
    
36.             ;; 4、显示结果
    
37.             (princ sum)
    
38.         )
    
39.     )
    
40.    
    
41.     (princ)
    
42. )
    
43. 
    
44. ;;;============================================================*
    
45. ;;;功能：获取  块定义  文字内容。*
    
46. ;;;测试：(20230312-BLOCK-get-text   "块1")                     *
    
47. ;;;日期：zml84 于 2022-11-27                                   *
    
48. ;;;      zml84 修改于 2023-03-12                               *
    
49. (defun 20230312-BLOCK-get-text (block_name / lst_ent ent   lst_str)
    
50.     (if (setq en (tblobjname "BLOCK" block_name))
    
51.         (progn
    
52.             ;; 1、获取列表  
    
53.             (setq lst_ent '())
    
54.             (while (setq en (entnext en))
    
55.                 (setq ent     (entget en)
    
56.                       lst_ent (cons ent lst_ent)
    
57.                 )
    
58.             )
    
59.             ;; 2、逐个ent分析，获取TEXT对象的文本内容
    
60.             ;;    若为纯数值，则记录入表，供后续返回。
    
61.             (setq lst_str nil)
    
62.             (foreach ent lst_ent
    
63.                 ;;(print ent)
    
64.                 (if (= (cdr (assoc 0 ent)) "TEXT")
    
65.                     (setq  str  (cdr (assoc 1 ent))
    
66.                           lst_str  (cons str lst_str)
    
67.                     )
    
68.                 )
    
69.             )
    
70.         )
    
71.     )
    
72.     ;;返回  
    
73.     (reverse lst_str)
    
74. )

;;;============================================================*<br /> ;;;功能：块（普通块）内文字求和                                 *<br /> ;;;日期：zml84 练习于 2023-03-12                               *<br /> (defun c:tt (/  ss  lst  i  en  ent  block_name  tmp  sum)<br /> <br />     (princ "\n功能：块（普通块）内文字求和")<br />     <br />     (if (setq ss (ssget '((0 . "INSERT"))))<br />         (progn<br />             ;; 1、逐个块查找<br />             (setq lst  '()<br />                   i  0<br />             )<br />             (repeat (sslength ss)<br />             <br />                 (setq en   (ssname ss i)<br />                       ent   (entget en)<br />                       block_name (cdr (assoc 2 ent))<br />                 )<br />                 (setq tmp (20230312-BLOCK-get-text block_name))<br />                 (print tmp)<br />                 <br />                 (setq lst (append lst tmp ))<br />                 <br />                 (setq i (1+ i))<br />             )<br />             <br />             ;; 2、显示找到的文本内容<br />             (princ "\n------------------------")<br />             (print lst)<br />             (princ " ===>>  ")<br />             <br />             ;; 3、求和运算<br />             (setq sum (apply '+ (mapcar 'eval (mapcar 'read lst))))<br />             <br />             ;; 4、显示结果<br />             (princ sum)<br />         )<br />     )<br />     <br />     (princ)<br /> )<br /> <br /> ;;;============================================================*<br /> ;;;功能：获取  块定义  文字内容。*<br /> ;;;测试：(20230312-BLOCK-get-text   "块1")                     *<br /> ;;;日期：zml84 于 2022-11-27                                   *<br /> ;;;      zml84 修改于 2023-03-12                               *<br /> (defun 20230312-BLOCK-get-text (block_name / lst_ent ent   lst_str)<br />     (if (setq en (tblobjname "BLOCK" block_name))<br />         (progn<br />             ;; 1、获取列表  <br />             (setq lst_ent '())<br />             (while (setq en (entnext en))<br />                 (setq ent     (entget en)<br />                       lst_ent (cons ent lst_ent)<br />                 )<br />             )<br />             ;; 2、逐个ent分析，获取TEXT对象的文本内容<br />             ;;    若为纯数值，则记录入表，供后续返回。<br />             (setq lst_str nil)<br />             (foreach ent lst_ent<br />                 ;;(print ent)<br />                 (if (= (cdr (assoc 0 ent)) "TEXT")<br />                     (setq  str  (cdr (assoc 1 ent))<br />                           lst_str  (cons str lst_str)<br />                     )<br />                 )<br />             )<br />         )<br />     )<br />     ;;返回  <br />     (reverse lst_str)<br /> )

pym

如果本人来处理类似问题，先会规范下块的文字，一般用属性。然后用数据提取把某类块的属性提取到Excel中，在Excel，用公式或Power Qurey，想怎么处理就怎么处理，如相同属性值求和，求废弃均值；某些属性计数，等等。