CAD按块属性统计

359321852

moshouhot 发表于 2024-5-15 12:12
发个dwg我看看

已经放上来了，麻烦你帮忙看看

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 /> )

359321852

moshouhot 发表于 2024-5-18 01:29

谢谢了