如何制作取消打印列表

LauKwokFai · 发表于 2022-7-5 19:43:11

您好，我想知道是否可以制作一个“未打印层”列表，（tblsearch“layer”“layername”）不显示此状态。

非常感谢。

Tharwat · 发表于 2022-7-5 20:16:53

你可以用这样的东西。


(defun _ListUnprintLayers  (/ l lst)
 (while (setq l (tblnext "LAYER" (not l)))
   (if
     (zerop
       (cdr
         (assoc 290
                (entget (tblobjname "LAYER" (cdr (assoc 2 l)))))))
      (setq lst (append lst (list (cdr (assoc 2 l)))))
      )
   )
 lst
 )

LauKwokFai · 发表于 2022-7-5 20:37:35

太好了，谢谢你！

Tharwat · 发表于 2022-7-5 20:57:18

随时欢迎你

[编程交流] 如何制作取消打印列表

发表回复

精选推荐