SSGET-块，然后搜索Des

ronjonp · 发表于 2022-7-5 16:02:11

试试这个未经测试的快速示例。

(defun c:test (/ _getattvalue en in ss val)
 ;; RJP - Simple get attribute value sub .. no error checking
 (defun _getattvalue (block tag)
   (vl-some
     '(lambda (att) (cond ((= (strcase tag) (vla-get-tagstring att)) (vla-get-textstring att))))
     (vlax-invoke block 'getattributes)
   )
 )
 ;; RJP - added (66 . 1) to filter ( attributed blocks )
 (if (setq
ss (ssget "_C" '(7.244 2.071) '(16.665 10.003) '((0 . "INSERT") (8 . "FTG-Iso") (66 . 1)))
     )
   (foreach en        (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
     (if (and ;; If we have a value, and it does not match the filter then remove item from selection
       (setq val (_getattvalue (vlax-ename->vla-object en) "Description"))
       (wcmatch val "AAA,BBB,CCC")
  )
(ssdel en ss)
     )
   )
 )
 ;; Highlight selection
 (sssetfirst nil ss)
 (princ)
)

Tharwat · 发表于 2022-7-5 16:05:02

@ronjonp，看看这里

ronjonp · 发表于 2022-7-5 16:06:53

哎呀。。固定的

Lee Mac · 发表于 2022-7-5 16:08:44

在你的第一篇帖子中没有提到属性。。。

块描述通常指：

ronjonp · 发表于 2022-7-5 16:14:49

我也有同样的想法。有时我希望有一个要求，张贴一个样本dwg。。。。

BIGAL · 发表于 2022-7-5 16:15:39

第三，我同意让我困惑的是，我承认可能从未在块中添加过描述，只是恰当地命名了它。

Re VL和其他人一样寻找错误的单词，谢谢ronjonp。也不需要从列表中删除，因为请求是更改层，如果匹配aaa、bbb、ccc，则更改。

GregGleason · 发表于 2022-7-5 16:20:21

啊！对不起，伙计们，把事情弄得如此混乱。它出现在QPROP窗口中，所以我（当然是错误的）认为这是自然描述。我应该进一步调查，并明确表示这是一个称为“描述”的属性。

好的一面是，我还在学习，我不会放弃。你们是最棒的。

格雷格

GregGleason · 发表于 2022-7-5 16:21:31

罗恩·琼普，谢谢你的密码。

我运行了它，它运行到完成，但无论描述内容如何，所有项目都保持选中状态。

我把这段代码放在“setq val”语句之后，看看它被设置成了什么。。。

我得到了这个错误，它停止了执行：；错误：错误的参数类型：stringp nil

我认为“val”变量将返回字符串。是这样吗？

格雷格

ronjonp · 发表于 2022-7-5 16:26:21

将（wcmatch val“AAA，BBB，CCC”）更改为（非（wcmatch val“AAA，BBB，CCC”））。

GregGleason · 发表于 2022-7-5 16:28:47

我改变了这一点，结果是一样的，选择了该层的每个块（在这个文件中有27个）。我甚至试过一个项目（比如“AAA”），但结果没有差别。

我想知道为什么忽略块参照属性？

格雷格

[编程交流] SSGET-块，然后搜索Des

发表回复

精选推荐