检索非图形的数量

samifox · 发表于 2022-7-5 23:17:37

你好

如何检索非图形实体的数量？比如说layres

（仅限AUTOLISP）
谢谢
谢伊

hmsilva · 发表于 2022-7-5 23:28:55


(while (setq a (tblnext "LAYER" (null a)))
(setq lst (cons (cdr (assoc 2 a)) lst))
)
(length lst)

HTH公司
亨里克

samifox · 发表于 2022-7-5 23:45:36

谢谢Henrique

虽然我可以调用deguging（tblnext），但它的索引计数不会从表中的第一个条目开始

我通过创建条件来解决它，这是确保（tblnext）从0开始的唯一方法吗？

(defun C:1 ()
 (setq i (tblnext "Layer" T))
 (while (setq i (tblnext "LAYER"))
   (princ)
 )
)

samifox · 发表于 2022-7-5 23:50:53

抱歉Henrique

你的代码正是我要的
一开始我不明白

hmsilva · 发表于 2022-7-6 00:02:20

不客气samifox
很高兴你找到了解决方案。

亨里克

samifox · 发表于 2022-7-6 00:16:09

你好

我需要函数在找到匹配项时返回T，否则返回nil。

通过调试，我发现即使找到匹配项，函数也会一直循环，直到层堆栈结束

有没有办法告诉你“当你找到一个梅奇，只要返回T然后退出？


(defun SG:isLayerExist (/ layer)
 (while (setq layer (tblnext "LAYER" (null layer)))
   (equal (cdr (assoc 2 layer)) "0")
 )
)

谢谢
S

Lee Mac · 发表于 2022-7-6 00:23:41

(defun layer-exists-p ( lay )
   (and (tblsearch "layer" lay))
)

[编程交流] 检索非图形的数量