各位大神看下如何过滤选择块名中含有 灯 这个字的块

664571221

xyp1964 发表于 2023-5-7 23:17
一共选择了个块名称含灯的块

派大上码..........

kucha007

664571221 发表于 2023-5-8 09:02
大神可以数出来了，是否可以吧文字插入cad呢

改了，再试试

xyp1964

1. (defun c:tt ()
   
2.   "统计块名称含灯的块"
   
3.   (if (setq ss (ssget "x" '((0 . "INSERT") (66 . 1))))
   
4.     (progn
   
5.       (setq lst(vl-remove-if-not  '(lambda (x) (setq a (mapcar 'last (xyp-Att2list x))) (vl-some '(lambda (x) (vl-string-search "灯" x)) a))(xyp-Ss2List ss)))
   
6.       (princ (strcat "\n一共选择了< " (itoa (length lst)) " >个块名称含灯的块"))
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )
    
11. 
    

(defun c:tt ()<br />   "统计块名称含灯的块"<br />   (if (setq ss (ssget "x" '((0 . "INSERT") (66 . 1))))<br />     (progn<br />       (setq lst(vl-remove-if-not  '(lambda (x) (setq a (mapcar 'last (xyp-Att2list x))) (vl-some '(lambda (x) (vl-string-search "灯" x)) a))(xyp-Ss2List ss)))<br />       (princ (strcat "\n一共选择了< " (itoa (length lst)) " >个块名称含灯的块"))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

664571221

(defun c:tt(/ p s)
        (if (ssget ":S" '((0 . "insert")(2 . "$equip$*")))
                (progn
                        (vlax-for e (vla-get-activeselectionset (vla-get-ActiveDocument (vlax-get-acad-object)))
                                (if        (vla-Get-HasAttributes e)
                                        (foreach x
                                                (vlax-safearray->list (vlax-variant-value (vla-GetAttributes e)))
                                                (if (and (= "A" (vla-Get-TagString x))
                                                                        (wcmatch (vla-Get-TextString x)"*灯*")
                                                                )
                                                        (setq s (cons e s))
                                                )
                                        )
                                )
                        )
                        (if (and  s (setq s (mapcar '(lambda(x)(vlax-get x 'insertionpoint)) s))
                                                (setq p (getpoint"\n大力出奇迹..."))
                                        )
                                (progn
                                        (command "text" p 350 0 (strcat "选中了"(itoa (length s))"个含灯的块"))
                                        (foreach x s (command "line" "non" x "non" p ""))
                                )
                        )
                       
                )               
        )
)

664571221

664571221 发表于 2023-5-14 21:49
(defun c:tt(/ p s)
        (if (ssget ":S" '((0 . "insert")(2 . "$equip$*")))
                (progn

楼上是波总的代码

bonny

院长这个X用的好