一个图层问题，困扰我很久了，请帮忙

LIHUISHUAN · 发表于 2004-7-20 10:08:00

我通过程序"mlayer"设置了几个图层比如：
(command "-layer" "n" "3尺寸线" "c" 3 "3尺寸线" "l" "continuous" "3尺寸线"
"lw" 0.15 "3尺寸线" "" )设置了层“3尺寸线”
我在其他程序中需要使用“3尺寸线”，比如：(SETVAR "CLAYER" "3尺寸线")
问题在于我不知此时是否加载了“mlayer”，此时是否存在“3尺寸线”，如果没有程序就会出错，可否在使用前检查该图层是否存在，如不存在就加载“mlayer”请教如何实现！谢谢！

ZZXXQQ · 发表于 2004-7-20 10:17:00

您可以这样使用：
（COMMAND "-LAYER" "M" "3尺寸线" "")
这样如果设置了图层就转到该图层，如果未设置，就设置并转到该图层。

LIHUISHUAN · 发表于 2004-7-20 10:23:00

zzxxqq:
您这个方法或许不是正解，因为“3尺寸线”还包括颜色、线形、线宽等信息，一起重新设置一遍，并不是我想要的。谢谢您！

meflying · 发表于 2004-7-20 10:30:00

(command "-layer" "n" "3尺寸线" "c" 3 "3尺寸线" "l" "continuous" "3尺寸线" "lw" 0.15 "3尺寸线" "s" "3尺寸线" "")

LIHUISHUAN · 发表于 2004-7-20 10:38:00

飞哥您好：
如果原先这个图层就存在，还必须重新生成一遍吗？

meflying · 发表于 2004-7-20 10:41:00

写了这么多程序，判断一下应该会吧
(if (tblsearch "layer" "3尺寸线")
(setvar "clayer" "3尺寸线")
(command "-layer" "n" "3尺寸线" "c" 3 "3尺寸线" "l" "continuous" "3尺寸线" "lw" 0.15 "3尺寸线" "s" "3尺寸线" "")
)

LIHUISHUAN · 发表于 2004-7-20 10:49:00

实在不好意思，我虽然编过一点程序，但水平还是很低，让您见笑了！
说实话，这个问题我困扰了很久，又觉得应该比较简单，险些不好意思拿出来问您！
不管怎莫说，还是感谢您的帮助！

wyj_007 · 发表于 2004-7-30 17:16:00

..................
(setq clayer0 (getvar "clayer" ))
(command "LAYER" "M" "3尺寸线" "")
......................
(setvar "clayer" clayer0)
..............

一个图层问题，困扰我很久了，请帮忙

发表回复

精选推荐