所有块的选择集w

MiGo · 发表于 2022-7-6 14:36:54

是否存在允许您选择所有具有属性的块的选择集？


(setq ss (ssget "c" (getvar "extmax") (getvar "extmin") '((0 . "insert"))))

我通常可以选择所有块，但我只想选择具有属性的块。

Lee Mac · 发表于 2022-7-6 14:41:45

也许吧：

copy


(ssget "_X" '((0 . "INSERT") (66 . 1)))

Lee Mac · 发表于 2022-7-6 14:43:50

或者，另一种方法：

copy


(defun GetBlkWithAtt (/ ss)
 (vl-load-com)
 (if (setq ss (ssget "_X" '((0 . "INSERT"))))
   (vl-remove-if-not
     '(lambda (x) (eq :vlax-true
                      (vla-get-HasAttributes x)))
       (mapcar 'vlax-ename->vla-object
         (mapcar 'cadr (ssnamex ss))))))

将返回具有属性的块列表（VL表单）

The Buzzard · 发表于 2022-7-6 14:48:46

李，

为什么在X之前加下划线

Lee Mac · 发表于 2022-7-6 14:52:08

我相信这使它与语言兼容，我可能错了。

The Buzzard · 发表于 2022-7-6 14:55:01

我曾认为这适用于命令，但我不确定它适用于这里。
无论如何，它不会给出任何错误。

Freerefill · 发表于 2022-7-6 14:56:41

当你这么做的时候。。。

我通常这样写：

（ssget“X”（列表（cons 0“行”））

然而，我看到很多人这样写：

（ssget“X”'（（cons 0“LINE”））

这只是个人喜好，还是有任何赞成/反对的清单？我可以看出，这将减少“整洁”代码的字符数，但这是真的吗？有什么非常实际的原因吗？