请问可以把图层的颜色设置成bylayer吗

我的我啊 · 发表于 2014-9-12 16:25:46

ll_j 发表于 2014-9-12 16:18
这是比喻，也算卖萌吧。
bylayer，中文版称作“随层”，自己随自己，怎么随呢？
问一个人姓什么，自己回 ...

可能算是一个bug吧。但是确实很好奇是怎么办到的，呵呵。
寻常的点选，包括vla-put-color 等均无法办到。

r3562939 · 发表于 2015-5-3 22:56:28

Andyhon 发表于 2014-9-12 11:50
Command: -Layer
Current layer: "0"
Enter an option

您好请问这些带命令的执行步骤怎么查询啊
我意思是说在命令行输入layter 直接出来对话框不会显示Make/Set... 这种提示

r3562939 · 发表于 2015-5-4 08:38:45

r3562939 发表于 2015-5-3 22:56
您好请问这些带命令的执行步骤怎么查询啊
我意思是说在命令行输入layter 直接出来对话框不会显示Make ...

原来加命令前加短横线就行 ........

llsheng_73 · 发表于 2015-5-4 09:30:48

本帖最后由 llsheng_73 于 2015-5-4 11:39 编辑

(setq dxf(entget(TBLOBJNAME"layer" "0")))
(entmod(append(vl-remove(assoc 62 dxf)dxf)'((62 . 256))))

(defun substdxf(lst dxf)(append(foreach x dxf(setq lst(vl-remove(assoc(car x)lst)lst)))dxf))
(Defun STB(TAB / snl sll)
(SetQ sll(TblNext TAB T))
(While(SetQ snl(Cons(Cdr(Assoc 2 sll))snl)sll(TblNext TAB nil)))
(vl-sort snl'<))
(defun c:tt();;所有图层颜色和线型改为随层(虽然图层随层听起来很扯蛋)
(mapcar'(lambda(x)(setq x(entget(TBLOBJNAME"layer"x)))(entmod(SUBSTDXF x'((62 . 256)(6 . "Bylayer")))))(stb"layer"))
)

不得不承认，图层的特性随层这说法确实扯蛋，但更扯蛋的是DESK它支持这样做。。。。
当图层颜色随层后，颜色随层的图元会让人看不到，但能选择到，鼠标移动到图元上就会有所提示，因为图元本身存在并且图层没有关闭
不知道这一特点是否可用来对一些特殊情况进行处理达到一些特殊效果(视觉上或者打印上)
而图层线型随层后，视觉上没看出什么特殊，打印时会不会有特殊情况出现暂时不知道

我的我啊 · 发表于 2015-5-4 10:08:33

llsheng_73 发表于 2015-5-4 09:30

直接entmod图层的dxf，是这个思路吗？

Gu_xl · 发表于 2015-5-4 10:26:54

我的我啊发表于 2015-5-4 10:08
直接entmod图层的dxf，是这个思路吗？

layer对象没有随层一说！实体的对象的颜色有随层Bylayer（color=256）和随块ByBlock（color=0）

llsheng_73 · 发表于 2015-5-4 11:23:35

Gu_xl 发表于 2015-5-4 10:26
layer对象没有随层一说！实体的对象的颜色有随层Bylayer（color=256）和随块ByBlock（color=0）

llsheng_73 · 发表于 2015-5-4 11:31:16

比较有意思的是如果所有图元颜色随层，再把图层颜色随层的话，图元会看不见，但它还在那里，鼠标移到图元上就会显示出来。。。。至于这一特点是否可用来处理一些特殊情况暂时不清楚

ivde · 发表于 2015-5-4 11:48:41

图层中的颜色是值，不能叫随层，256 是颜色号，和实体的 256 颜色（桌子约定了）不是一个概念

vectra · 发表于 2015-5-4 11:52:44

让我想起以前Windows目录名称不能是点或点点“.” ".."因为有特殊含义，但还是有人强行把目录改成包含这些特殊字符。

有炫技的嫌疑。。

账号		自动登录	找回密码
密码			注册

[提问] 请问可以把图层的颜色设置成bylayer吗

本帖子中包含更多资源

浏览过的版块