lizhu 发表于 2013-3-20 14:10:29

我也是
为什么不能自动获取图层状态列表呢？而是空白的呢？

有123 发表于 2013-4-28 00:31:39

我对这个用的不多

xxdxx001 发表于 2013-7-26 09:48:58

我的也是，图框里什么也没有

yzxgwl 发表于 2013-9-23 21:59:04

再加强一点就更好了！能保存自己的图层状态并恢复就更好了。

峰峰兒 发表于 2013-9-24 07:21:37

vlisp2012 发表于 2013-9-24 07:49:18

CAD2014
我也是
为什么不能自动获取图层状态列表呢？而是空白的呢？

depgfdepgf 发表于 2013-12-21 08:25:46

谢谢分享，支持！

香田里浪人 发表于 2013-12-21 11:37:42

;;----------------------
;;将所选实体层置为当前层
;;----------------------
(defun c:dqc (/ ent ent_data clay olay)
(setq olay (getvar "clayer"))
(setq ent (car (entsel (strcat "\n选择物体/当前层为<" olay ">:"))))
(if (/= nil ent)
    (progn
      (setq ent_data (entget ent))
      (setq clay (cdr (assoc 8 ent_data)))
      (setvar "clayer" clay)
      (prompt (strcat "\n成功将图层设为<" clay ">："))
    )
)
)

清风明月名字 发表于 2014-4-22 18:57:13

yjr111 发表于 2013-1-5 14:55 static/image/common/back.gif
可以吗？可以就上源码！免币下载！

谢谢楼主分享，辛苦了！

bjzxdvip 发表于 2014-5-17 22:55:12

首先要建立图层状态
页: 1 [2] 3 4
查看完整版本: 切换图层状态