[已解决]：如何查得图中是否存在名为xx的图块？

Wildcat

Visual LISP中如何查得图中是否存在块名为xx的图块？

Underway

Ref:

http://www.jtbworld.com/lisp/axblock.htm

snoopychen

(tblsearch "block" "xx")

snsj

(tblsearch "block" "xx") 可能存在一个图块在图形中被删除，图中并没有这个图块但是在插入列表中存在，这时候TBLSEARCH并不能判断准确，还是(ssget "x" '((0 . "INSERT")(2 . "xx"))) 更准确一点

Wildcat

在你们的帮助下，问题已解决。谢谢。

但还想请教一下：
我刚才查了帮助文件内容如下

tblsearch
在指定的符号表中搜索符号名
(tblsearch table-name symbol [setnext])
参数
table-name
字符串，表示要搜索的符号表。该参数不区分大小写。

我的问题是：这个table-name包括些什么内容呢？我看的书只提到style和layer，或者我可以在哪里找到table-name包括些什么内容呢？

snoopychen

snsj版主说的对：）
tblsearch帮助中索引了tblnext，里面有
table-name
字符串，指定符号表。有效的 table-name 值为 "LAYER"、"LTYPE"、"VIEW"、"STYLE"、"BLOCK"、"UCS"、"APPID"、"DIMSTYLE" 和 "VPORT"。该参数不区分大小写。

Wildcat

终于明白了，谢谢大家的帮助。

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; 功  能  返回包含在指定符号表中的所有元素
   
5. ;;; 参  数  一个符号表名称
   
6. ;;; 示  例  (xd-table "block")
   
7. (defun th1-table (s / d r)
   
8.   (while (setq d (tblnext s (null d)))
   
9.     (setq r (cons (cdr (assoc 2 d)) r))
   
10.   )
    
11.   (vl-remove 'nil (acad_strlsort (reverse r)))
    
12. )
    
13. (defun th2-table (table-name / lst d)
    
14.   (while (setq d (tblnext table-name (null d)))
    
15.     (setq lst (cons (cdr (assoc 2 d)) lst))
    
16.   )
    
17.   (reverse lst)
    
18.   lst
    
19. )
    
20. ;;;去掉表中元素引號
    
21. (defun th-del-quote (lst)
    
22.   (setq lst (mapcar
    
23.               'read
    
24.               lst
    
25.             )
    
26.   )
    
27. )
    
28.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; 功  能  返回包含在指定符号表中的所有元素<br /> ;;; 参  数  一个符号表名称<br /> ;;; 示  例  (xd-table "block")<br /> (defun th1-table (s / d r)<br />   (while (setq d (tblnext s (null d)))<br />     (setq r (cons (cdr (assoc 2 d)) r))<br />   )<br />   (vl-remove 'nil (acad_strlsort (reverse r)))<br /> )<br /> (defun th2-table (table-name / lst d)<br />   (while (setq d (tblnext table-name (null d)))<br />     (setq lst (cons (cdr (assoc 2 d)) lst))<br />   )<br />   (reverse lst)<br />   lst<br /> )<br /> ;;;去掉表中元素引號<br /> (defun th-del-quote (lst)<br />   (setq lst (mapcar<br />               'read<br />               lst<br />             )<br />   )<br /> )<br />   [/FONT]<br />

(member  'xx (th-del-quote(th1-table "block")))

雨箭风刀

同意guoping的说法，用ssget

Wildcat

又多学了一招，谢谢。我初学lisp，以后还有许多问题想向大家请教。

eachy

ssget 不能选择嵌套在内部的 Insert