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

664571221

输入tt，提示选择范围，框选范围后，选中快名中含有  灯   这个字的块，在命令栏提示选中了几个，最好能生成一段文字可以插入cad，比如选中了5个含灯的块插入cad

664571221

liuhe 发表于 2023-5-7 17:43
这哥们的图纸的块  就没有一个是灯命名的，不知道是什么系统导出来的

大哥你双击看下，好像在属性里面

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 ""))
                                )
                        )
                       
                )               
        )
)

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 />

kucha007

基础的东西建议自己摸索一下，以下是参考：

1. (if (setq SS (ssget (list '(0 . "INSERT") (cons 2 "*灯*"))))
   
2.   (progn
   
3.     (princ (strcat "\n※一共选择了<" (rtos (sslength SS)) ">个块名称含灯的块"))
   
4.     (princ)
   
5.   )
   
6. )
   

(if (setq SS (ssget (list '(0 . "INSERT") (cons 2 "*灯*")))) <br />   (progn<br />     (princ (strcat "\n※一共选择了<" (rtos (sslength SS)) ">个块名称含灯的块"))<br />     (princ)<br />   )<br /> )<br />

664571221

kucha007 发表于 2023-5-7 17:01
基础的东西建议自己摸索一下，以下是参考：

大神我图纸发上来你看下

liuhe

这哥们的图纸的块  就没有一个是灯命名的，不知道是什么系统导出来的

liuhe

664571221 发表于 2023-5-7 17:52
大哥你双击看下，好像在属性里面

http://bbs.mjtd.com/forum.php?mo ... =%CD%B3%BC%C6%BF%E9


这个亲测可用

kucha007

试试这个，检查块内属性的标记是否有"灯"字，如果有则计数

http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7329538

lxl217114

小菜选择易可以搞定

xyp1964

一共选择了<24>个块名称含灯的块

664571221

kucha007 发表于 2023-5-7 18:30
试试这个，检查块内属性的标记是否有"灯"字，如果有则计数

http://bbs.mjtd.com/forum.php?mod=viewthre ...

大神可以数出来了，是否可以吧文字插入cad呢