郭文姬happy 发表于 2014-12-16 14:57:31

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

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

fan_zh 发表于 2014-12-16 16:08:54

filter命令

郭文姬happy 发表于 2014-12-16 16:14:12

fan_zh 发表于 2014-12-16 16:08 static/image/common/back.gif
filter命令

这是删除命令吧

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

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

郭文姬happy 发表于 2014-12-17 10:57:22

Gu_xl 发表于 2014-12-16 18:54 static/image/common/back.gif


谢谢，那个请问怎样可以在统计了图元和个数的情况下让其列成表在那个图面上嘿嘿嘿
页: [1]
查看完整版本: 图面假如存在多种图元怎么利用lisp编程分别统计图元类型和个数