判断图层存在?

lincctw_ccl · 发表于 2014-3-27 10:12:27

本帖最后由 lincctw_ccl 于 2014-3-28 09:03 编辑

请教判断图层的修改,以下为判断图层不存在的例句:

(if (= nil(setq LaySc (tblsearch "LAYER" NAME01)))

(progn

(alert "图层不存在!!")

(exit)

))

我现在要修改成判断成存在的.方式我将其改为

(if (= NAME01 (setq LaySc (tblsearch "LAYER"NAME01)))

(progn

(alert "图层己存在!!")

(exit)

))

可是不起作用,没运用反过来的方式

请问如要判断其存在该如何修改上述例句

谢谢!!!

------------------------------------------------------------------------------

感谢各位指点!!

问题己解决谢谢!!

再延伸请教问个问题

如我图层在建立有输入 “描述 “

那如何将这个 “描述” 的内容读取出来!

谢谢!!

Andyhon · 发表于 2014-3-27 10:28:43

Command: (TblSearch "Layer" "0")
((0 . "LAYER") (2 . "0") (70 . 0) (62 . 254) (6 . "CONTINUOUS"))

kwok · 发表于 2014-3-27 10:50:36

本帖最后由 kwok 于 2014-3-27 11:00 编辑

围观一下.........

ll_j · 发表于 2014-3-27 12:27:56

想想name01不存在的情况下会是什么结果？

vormittag · 发表于 2014-3-27 13:12:53

(or (tblsearch "LAYER" NAME01) (alert "图层不存在!!"))
(and (tblsearch "LAYER" NAME01) (alert "图层己存在!!"))

那些值又不用还赋值干啥？ (= nil xxx) 这种判断也没必要。

vormittag · 发表于 2014-3-27 13:14:08

(if (tblsearch "LAYER" NAME01) (alert "图层己存在!!") (alert "图层不存在!!))

lincctw_ccl · 发表于 2014-3-28 09:03:53

感谢各位指点!!
问题己解决谢谢!!
再延伸请教问个问题
如我图层在建立有输入 “描述 “
那如何将这个 “描述” 的内容读取出来!
谢谢!!

vormittag · 发表于 2014-3-28 09:23:13

(vla-get-description (vlax-ename->vla-object (tblobjname "layer" name01)))

lincctw_ccl · 发表于 2014-3-28 10:29:49

vormittag 发表于 2014-3-28 09:23
(vla-get-description (vlax-ename->vla-object (tblobjname "layer" name01)))

谢谢教导!!
问题己解决谢谢!!

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

[已解答] 判断图层存在?