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

帮助修改例程Lee M

首先感谢你所做的伟大工作。
 
我想问你是否可以帮我对你的例程CountAttributeValue做两个修改​​它只能添加标记MAT-1、MAT-2和MAT-3，并且可以选择生成外部文件CV。
 
我希望你能帮助我。提前谢谢，请原谅我的英语不好。
 
非常感谢。

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

你好，阿道夫，
 
下载并加载我的Write CSV函数，然后尝试以下快速编写的代码：
(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-")
                     (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 (entgete)
                   )
               )
         )
         (LM:writecsv (mapcar '(lambda ( x ) (list (car x) (itoa (cdr x)))) l) f)
       )
   )
   (princ)
)
 
以上未经测试。

adolfo2020 发表于 2022-7-5 23:34:05

非常感谢，效果很好。
 
两个选项也可以在autocad中插入表格并插入另一个标记“MAQUI-”。
 
再次感谢你。

adolfo2020 发表于 2022-7-6 00:01:51

还有一个问题，我可以删除这些值​​这是零，因为帐户我也。
 
非常感谢。
页: [1]
查看完整版本: 帮助修改例程Lee M