js0514 发表于 2010-5-19 10:40

一个非常好的整理CAD图层的插件·

使用前要先加载，选择“工具”-----“加载应用程序”，然后选择插件。

选择任意物体按数字键2,回车，则单独显示该图层所有物体。按数字键1则全部显示。

周兴良 发表于 2010-5-19 11:26

你这个下载了，怎么用不起啊，如何用啊

你这个下载了，怎么用不起啊，如何用啊

lbmecrystal 发表于 2010-5-19 13:27

xiexiekanyixia

hubin123156 发表于 2010-11-2 14:43

xiexie

太感谢了

swimmingfish4 发表于 2010-11-10 10:17

无钱下载:) :Q

zgssd 发表于 2010-11-10 13:56

:) 附源码
(defun c:1 ()
(command "layer" "on" "*" "")
(princ))

(defun C:2(/ ES EN EL A)
(princ "Selected Entity(s) Layers Isolated.")
(setq ES (ssget) A 0 EN "" EL nil FL nil)
(while (/= EN nil)
(setq EN (ssname ES A) EL (cons EN EL) A (1+ A)))
(setq EL (cdr EL) FL (cdr (assoc ' 8 (entget (car EL)))) EL (cdr EL))
(repeat (- A 2)
(setq EN (cdr (assoc ' 8 (entget (car EL))))
FL (strcat EN "," FL) EL (cdr EL)) )
(command "LAYER" "off" "*" "y" "on" (eval FL) "")
(princ))

yzmcx 发表于 2010-12-27 23:04

谢谢楼主，无私奉献啊。

togd4 发表于 2010-12-29 21:41

谢谢楼主:victory:

powerhuangbin 发表于 2011-1-15 17:30

taihaole 不错不错

djhyty 发表于 2011-2-6 19:05

题与内容不符

remove78 发表于 2011-4-12 10:43

:)简直太好用了，谢楼主

lfloveby 发表于 2011-4-12 15:23

这个不错！支持

lfloveby 发表于 2011-4-12 15:30

相当实用

wps1 发表于 2011-5-12 16:03

谢谢楼猪分享

winds522548 发表于 2011-6-22 10:54

谢谢，学习了
页: [1] 2 3 4
查看完整版本: 一个非常好的整理CAD图层的插件·