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

 
随时欢迎你
页: [1]
查看完整版本: 如何制作取消打印列表