[LISP程序]：在vlisp中如何判断图形中是否存在一个已知名称的块呢？

teatree

我想先判断有没有然后再插入指定名称的块。

aidraft

(tblsearch "block" bname)

yanxinbo67

(ssget "x" (list (cons 2  name)))

wkai

3楼的方法不全面。
如果(ssget "x" (list (cons 2 name))) 为nil的话并不能说明图中没有这个块的定义，只能说明图中没有这个块已经插入的实例。

lsjjm

于斑竹商权
1楼的意思是要判断图形中是否存在一个"块实体" , 而不是要判断图形中是否存在块的定义----
因此3楼的回答可以说是对.
而2楼的(tblsearch "block" bname)  只是搜索符号表, 当图形中存在块的定义而这个块的实体不存在时tblsearch 就返回了错误的信息!

eachy

最初由 lsjjm 发布
[B]于斑竹商权
1楼的意思是要判断图形中是否存在一个"块实体" , 而不是要判断图形中是否存在块的定义----
因此3楼的回答可以说是对.
而2楼的(tblsearch "block" bname)  只是搜索符号表, 当图形中存在块的定义而这个... [/B]

在图形中可以存在块定义(Blockdef)而没有块引用(blockrefe)，这就是 purge 可以清理的块定义。 tblsearch 搜索的是 blockdef ，不管Modelspace 中是否存在 blockref，ssget 搜索Modelspace 中的 Blockref。Blockdef 和 Blockref 的关系是 有Blockref则肯定有Blockdef，而有 Blockdef 则不一定有 Blockref。

lsjjm

最初由 eachy 发布
[B]在图形中可以存在块定义(Blockdef)而没有块引用(blockrefe)，这就是 purge 可以清理的块定义。 tblsearch 搜索的是 blockdef ，不管Modelspace 中是否存在 blockref，ssget 搜索Modelspace 中的 Blockref。Blockdef 和 Blockref 的关系是 有Blockref则肯定有Blockdef，而有 Blockdef 则不一定有 Blockref。 [/B]

所以说3楼的回答不能说是"不全面".

aidraft

1 楼楼主都没发话，讨论也没用。他没有说明究竟是块定义还是块实例。我开始是认为他要判断块定义是否存在，以避免重定义的问题。也许是我理解错了。但五楼说“

(tblsearch "block" bname) 只是搜索符号表, 当图形中存在块的定义而这个块的实体不存在时tblsearch 就返回了错误的信息!

”是不对的，它只会返回nil, 正是我们期待的结果。

lsjjm

最初由 aidraft 发布
[B]但五楼说“(tblsearch "block" bname) 只是搜索符号表, 当图形中存在块的定义而这个块的实体不存在时tblsearch 就返回了错误的信息!?.. " 是不对的，它只会返回nil, 正是我们期待的结果。
[/B]

返回nil ?  你测试了吗?
当图形中存在块的定义而这个块的实体不存在时,
(tblsearch "block" bname)  返回的是一个表, 不是 nil !

aidraft

对啊，我都糊涂了。任何情况下(tblsearch "block" ...)返回值都是表，是不会返回错误信息的。我是将你所说的“错误的信息”看成“错误信息”了，所以才造成误会。
再回到(ssget "x" (list (cons 2 name)))全不全面的问题，当然不全面，如果图中存在该块的实例但它只nest 在另一个块中，那真会返回错误的信息。