CAD按块属性统计

359321852

请问各位老大，如何实现通过块属性里的编号统计数量

比如想统计按块属性里编号统计数量


获取不到编号的属性值，情高手们帮忙修改一下，

1. (defun c:tjk1(/ en mpl ss n nn m xx pt0 mpl_new i);统计块数量的源码
   
2.     (if *table-zg (princ)(setq *table-zg (* 3 (getvar "DIMSCALE"))));设置模式全局变量,初始默认值=1
   
3.     (setq ss (ssget '((0 . "INSERT"))))
   
4.     (or ss (setq ss (ssadd)))
   
5.     (setq n 0 nn (sslength ss) mpl '())
   
6.     (while (< n nn)
   
7.         (setq en (ssname ss n) data (entget en))
   
8.         (setq n (1+ n))
   
9.         (setq name (cdr (assoc 2 data)))
   
10.         (setq number (cdr (assoc 41 data))) ; 获取块的属性编号
    
11.         (setq xx (assoc number mpl)) ; 检查属性编号是否已存在于 mpl 列表中
    
12.         (if xx
    
13.             (setq m (cadr xx) m (1+ m) mpl (subst (list number name m) xx mpl)) ; 属性编号存在，则更新数量
    
14.             (setq mpl (append (list (list number name 1)) mpl)) ; 属性编号不存在，则添加新项
    
15.         )
    
16.     )
    
17.     (if mpl
    
18.         (progn
    
19.             (setq i 0)
    
20.             (setq mpl_new '())
    
21.             (foreach x mpl
    
22.                 (setq mpl_new (append (list(cons (setq i (1+ i)) x)) mpl_new))              
    
23.             )               
    
24.             (setq mpl_new (append (list (list "序号" "属性编号" "图块名称" "数量")) (reverse mpl_new)))            
    
25.             (initget 0 "S")
    
26.             (if (/= (setq pt0 (getpoint (strcat "\n当前文字高度:" (rtos *table-zg)))) nil)
    
27.                 (progn
    
28.                     (while (= pt0 "S")
    
29.                         (setq str (strcat "\n(建议高度:"(rtos (* 3 (getvar "DIMSCALE"))) ")" "  请输表格文字高度："  "<" (rtos *table-zg) ">"))
    
30.                         (if (setq temp (getint str))(setq *table-zg temp));采用新输入值
    
31.                         (initget 0 "S")
    
32.                         (setq pt0 (getpoint (strcat "\n当前文字高度:" (rtos *table-zg))))
    
33.                         (if (null pt0)(exit))
    
34.                     )               
    
35.                     (if (and pt0 *table-zg)
    
36.                         (TableLst2Table mpl_new pt0 *table-zg)                     
    
37.                     )
    
38.                 )
    
39.             )
    
40.             (princ "/nNothing!")      
    
41.         )
    
42.         (princ)
    
43.     )
    
44. )
    

(defun c:tjk1(/ en mpl ss n nn m xx pt0 mpl_new i);统计块数量的源码<br />     (if *table-zg (princ)(setq *table-zg (* 3 (getvar "DIMSCALE"))));设置模式全局变量,初始默认值=1<br />     (setq ss (ssget '((0 . "INSERT"))))<br />     (or ss (setq ss (ssadd)))<br />     (setq n 0 nn (sslength ss) mpl '())<br />     (while (< n nn)<br />         (setq en (ssname ss n) data (entget en))<br />         (setq n (1+ n))<br />         (setq name (cdr (assoc 2 data)))<br />         (setq number (cdr (assoc 41 data))) ; 获取块的属性编号<br />         (setq xx (assoc number mpl)) ; 检查属性编号是否已存在于 mpl 列表中<br />         (if xx<br />             (setq m (cadr xx) m (1+ m) mpl (subst (list number name m) xx mpl)) ; 属性编号存在，则更新数量<br />             (setq mpl (append (list (list number name 1)) mpl)) ; 属性编号不存在，则添加新项<br />         )<br />     )<br />     (if mpl<br />         (progn<br />             (setq i 0)<br />             (setq mpl_new '())<br />             (foreach x mpl<br />                 (setq mpl_new (append (list(cons (setq i (1+ i)) x)) mpl_new))              <br />             )               <br />             (setq mpl_new (append (list (list "序号" "属性编号" "图块名称" "数量")) (reverse mpl_new)))            <br />             (initget 0 "S")<br />             (if (/= (setq pt0 (getpoint (strcat "\n当前文字高度:" (rtos *table-zg)))) nil)<br />                 (progn<br />                     (while (= pt0 "S")<br />                         (setq str (strcat "\n(建议高度:"(rtos (* 3 (getvar "DIMSCALE"))) ")" "  请输表格文字高度："  "<" (rtos *table-zg) ">"))<br />                         (if (setq temp (getint str))(setq *table-zg temp));采用新输入值<br />                         (initget 0 "S")<br />                         (setq pt0 (getpoint (strcat "\n当前文字高度:" (rtos *table-zg))))<br />                         (if (null pt0)(exit))<br />                     )               <br />                     (if (and pt0 *table-zg)<br />                         (TableLst2Table mpl_new pt0 *table-zg)                      <br />                     )<br />                 )<br />             )<br />             (princ "/nNothing!")       <br />         )<br />         (princ)<br />     )<br /> )<br />

moshouhot

2. (defun c:TTT ()
   
3.   (setq ss (ssget '((0 . "INSERT")))) ; 选择所有的块
   
4.   (if ss
   
5.     (progn
   
6.       (setq count-alist nil)  ; 初始化编号计数的关联列表
   
7.       (setq sslen (sslength ss))
   
8.       (setq i 0)
   
9.       (while (< i sslen)
   
10.         (setq ent (ssname ss i))
    
11.         (setq entdata (entget ent))
    
12.         (setq attribs (entnext ent))
    
13.         ;(princ "\nBlock Reference Data:\n")
    
14.         ;(princ (cdr (assoc 2 entdata))) ;; 显示块名
    
15.         (while (= (cdr (assoc 0 (entget attribs))) "ATTRIB")
    
16.           (setq attribdata (entget attribs))
    
17.           (if (= (cdr (assoc 2 attribdata)) "编号")
    
18.             (progn
    
19.               (setq num (cdr (assoc 1 attribdata)))
    
20.               (setq existing-pair (assoc num count-alist))
    
21.               (if existing-pair
    
22.                 (setq count-alist (subst (cons num (+ 1 (cdr existing-pair)))
    
23.                                          existing-pair
    
24.                                          count-alist))
    
25.                 (setq count-alist (cons (cons num 1) count-alist))
    
26.               )
    
27.             )
    
28.           )
    
29.           (setq attribs (entnext attribs))
    
30.         )
    
31.         (setq i (+ i 1))
    
32.       )
    
33.       (princ "\nCount of '编号' Values:\n")
    
34.       (foreach item count-alist
    
35.         (princ (strcat (car item) ": " (itoa (cdr item)) "\n"))) ; 输出所有编号及其出现次数
    
36.     )
    
37.     (princ "\nNo attribute blocks selected.")
    
38.   )
    
39.   (princ)
    
40. )

(defun c:TTT ()<br />   (setq ss (ssget '((0 . "INSERT")))) ; 选择所有的块<br />   (if ss<br />     (progn<br />       (setq count-alist nil)  ; 初始化编号计数的关联列表<br />       (setq sslen (sslength ss))<br />       (setq i 0)<br />       (while (< i sslen)<br />         (setq ent (ssname ss i))<br />         (setq entdata (entget ent))<br />         (setq attribs (entnext ent))<br />         ;(princ "\nBlock Reference Data:\n")<br />         ;(princ (cdr (assoc 2 entdata))) ;; 显示块名<br />         (while (= (cdr (assoc 0 (entget attribs))) "ATTRIB")<br />           (setq attribdata (entget attribs))<br />           (if (= (cdr (assoc 2 attribdata)) "编号")<br />             (progn<br />               (setq num (cdr (assoc 1 attribdata)))<br />               (setq existing-pair (assoc num count-alist))<br />               (if existing-pair<br />                 (setq count-alist (subst (cons num (+ 1 (cdr existing-pair)))<br />                                          existing-pair<br />                                          count-alist))<br />                 (setq count-alist (cons (cons num 1) count-alist))<br />               )<br />             )<br />           )<br />           (setq attribs (entnext attribs))<br />         )<br />         (setq i (+ i 1))<br />       )<br />       (princ "\nCount of '编号' Values:\n")<br />       (foreach item count-alist<br />         (princ (strcat (car item) ": " (itoa (cdr item)) "\n"))) ; 输出所有编号及其出现次数<br />     )<br />     (princ "\nNo attribute blocks selected.")<br />   )<br />   (princ)<br /> )

kozmosovia

tranque 发表于 2024-5-13 09:42
数据提取命令吗，这个命令的交互步骤和过程太繁琐

第一次做完可以保存DXE文件，后面再执行，选DXE，就是无脑下一步直接出结果

kozmosovia

dataextraction命令就行，不需要写程序

vitalgg

如果无法播放，请点击此处在新窗口打开

tranque

kozmosovia 发表于 2024-5-12 18:33
dataextraction命令就行，不需要写程序

数据提取命令吗，这个命令的交互步骤和过程太繁琐

tranque

kozmosovia 发表于 2024-5-13 15:51
第一次做完可以保存DXE文件，后面再执行，选DXE，就是无脑下一步直接出结果

学习了

你有种再说一遍

如果你知道hashmap这个数据结构,就知道这个多简单了.
因为lisp没有map,因此可以lisp调用html的js,js里面有map,然后调用它

njygx

数据提取使用好了，非常方便，不过限值也很大就是，全公司只有你一个人会

moshouhot

发个dwg我看看

359321852

http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTM0NTAzfGYwMTQwZjFlNDg1NGI5ZTQzNTNkMDc0OGM1ZDhkZjZmfDE3MjIwNTIzODE%3D&request=yes&_f=.dwg