图面假如存在多种图元怎么利用lisp编程分别统计图元类型和个数

郭文姬happy

图面假如存在多种图元怎么利用lisp编程分别统计图元类型和个数，请求指教

fan_zh

filter命令

郭文姬happy

fan_zh 发表于 2014-12-16 16:08
filter命令

这是删除命令吧

Gu_xl

1. (defun c:tt (/ ss e name l lst)
   
2.   (if (setq ss (ssget "x"))
   
3.     (progn
   
4.       (repeat (setq n (sslength ss))
   
5.         (setq e (ssname ss (setq n (1- n))))
   
6.         (setq name (cdr (assoc 0 (entget e))))
   
7.         (if (setq l (assoc name lst))
   
8.           (setq lst (subst (cons name (1+ (cdr l))) l lst))
   
9.           (setq lst (cons (cons name 1) lst))
   
10.         )
    
11.       )
    
12.       (foreach a lst
    
13.         (princ
    
14.           (strcat "\n\"" (car a) "\"对象: " (itoa (cdr a)) "个")
    
15.         )
    
16.       )
    
17.     )
    
18.   )
    
19.   (princ)
    
20. )

(defun c:tt (/ ss e name l lst)<br />   (if (setq ss (ssget "x"))<br />     (progn<br />       (repeat (setq n (sslength ss))<br />         (setq e (ssname ss (setq n (1- n))))<br />         (setq name (cdr (assoc 0 (entget e))))<br />         (if (setq l (assoc name lst))<br />           (setq lst (subst (cons name (1+ (cdr l))) l lst))<br />           (setq lst (cons (cons name 1) lst))<br />         )<br />       )<br />       (foreach a lst<br />         (princ<br />           (strcat "\n\"" (car a) "\"对象: " (itoa (cdr a)) "个")<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

郭文姬happy

Gu_xl 发表于 2014-12-16 18:54

谢谢，那个请问怎样可以在统计了图元和个数的情况下让其列成表在那个图面上嘿嘿嘿