按线型合并图层

gaics

甲方给的图纸往往掺杂着各个单位的图层，数量众多，光是点划线图层就有十几个，因此需要将其归类合并。
本代码仅以中心线为例，像虚线、双点划线等线型也可以按此方法合并图层。另外也可以按图层命名规律进行合并，各位可以自行修改。
>>核心命令：LAYMRG<<
图层多或者文件大的情况下运行较慢，请耐心等待。

自贡黄明儒

czb203 发表于 2023-6-1 16:25
黄大师，分享一下您的看家宝~

源码不能乱发
(defun C:YC (/ E LA N S SS m)
  (setq s (ssget ":S" nil))
  (if s
    (while s
      (repeat (setq m (sslength s))
        (setq e (ssname s (setq m (1- m))))
        (setq la (assoc 8 (entget e)))
        (setq ss (ssget "X" (list la)))
        (repeat        (setq n (sslength ss))
          (redraw (ssname ss (setq n (1- n))) 2)
        )
      )
      (setq s (ssget ":S" nil))
    )
    ((if command-s command-s vl-cmdf) "_.REGEN")
  )
  (princ)
)

fzlinrong

669423907 发表于 2023-6-1 22:09
王大师可否解释一下：if command-s command-s vl-cmdf  是什么意思（原理、用法）？

如果有 command-s就用 command-s，没有的话用vl-cmdf。

669423907

自贡黄明儒 发表于 2023-6-1 16:51
源码不能乱发

王大师可否解释一下：if command-s command-s vl-cmdf  是什么意思（原理、用法）？

自贡黄明儒

我的图层工具最终成了这个样子，供大家参考

czb203

自贡黄明儒 发表于 2023-6-1 11:39
我的图层工具最终成了这个样子，供大家参考

黄大师，分享一下您的看家宝~

渠辉

？？？？？？？？？？？？？？？

panliang9

谢谢楼主分享！

szhorse

那不得看看

paulpipi

好用，谢谢分享

cqf1980

隐藏对象的，图层工具没看到
谢谢楼主分享！