帮助修改例程Lee M

adolfo2020 · 发表于 2022-7-5 22:49:25

首先感谢你所做的伟大工作。

我想问你是否可以帮我对你的例程CountAttributeValue做两个修改它只能添加标记MAT-1、MAT-2和MAT-3，并且可以选择生成外部文件CV。

我希望你能帮助我。提前谢谢，请原谅我的英语不好。

非常感谢。

Lee Mac · 发表于 2022-7-5 23:26:51

你好，阿道夫，

下载并加载我的Write CSV函数，然后尝试以下快速编写的代码：

copy

(defun c:countmat ( / a e f i l s v x )
   (if (and (setq s (ssget '((0 . "INSERT") (66 . 1))))
            (setq f (getfiled "Output File" "" "csv" 1))
       )
       (progn
           (repeat (setq i (sslength s))
               (setq e (entnext (ssname s (setq i (1- i))))
                     x (entget e)
               )
               (while (= "ATTRIB" (cdr (assoc 0 x)))
                   (if (wcmatch (cdr (assoc 2 x)) "MAT-[123]")
                       (if (setq a (assoc (setq v (cdr (assoc 1 x))) l))
                           (setq l (subst (cons v (1+ (cdr a))) a l))
                           (setq l (cons  (cons v 1) l))
                       )
                   )
                   (setq e (entnext e)
                         x (entget  e)
                   )
               )
           )
           (LM:writecsv (mapcar '(lambda ( x ) (list (car x) (itoa (cdr x)))) l) f)
       )
   )
   (princ)
)