批量冻结非打印图层及批量块置为0层的插件

CAD智能@未来

从接触编程到现在也快一年了，还是发一个贴吧！最近用DBX写了个批量冻结非打印图层及批量块置为0层的插件!
功能：  1、批量将块置为0层（支持块中块的情况）；
             2、批量冻结非打印图层；
           使用前应确保图纸全部处于关闭状态！

bai2000

这是源码共享空间，源码呢？

wxa123wl

(defun C:DJFDYC ()

  (setvar "clayer" "0")
  (vlax-for lyr        (vla-get-Layers (vla-get-activedocument (vlax-get-acad-object)))
    (if        (zerop (vlax-get lyr 'Plottable))
      (vla-put-freeze lyr :vlax-true)
    )
  )
  
  
  (princ)
)

上善若水！@#

wxa123wl 发表于 2019-1-31 10:06
(defun CJFDYC ()

  (setvar "clayer" "0")

有没有批量冻结不显示图层的命令

tensir

感谢作者的分享！