[求助]：在lisp程序中如何判断一个块是否已存在?

gyf

在lisp程序中如何判断一个块是否已存在?

XDSoft

最初由 gyf 发布
[B]在lisp程序中如何判断一个块是否已存在? [/B]

对于符号表，不只是块，包括线型、层、字型等等都用 tblsearch 查找是否存在，如果不存在返回NIL

下面代码查找块A是否存在于符号表里面

1. [font=courier new]
   
2. (tblsearch "block" "a")
   
3. ((0 . "BLOCK") (2 . "a") (70 . 0) (10 0.0 0.0 0.0) (-2 . <图元名: 40184e68>))
   
4. 
   
5. [/font]

复制代码

panzhongw

如果是无名的块呢?

gyf

thanks

LUCAS

最初由 panzhongw 发布
[B]如果是无名的块呢? [/B]

2. 
   
3. ;;usage: (T_blk  <要测试的符号表> <要测试的符号表内对象名称>)
   
4. ;;usage: (T_blk "blocks" "*D1")
   
5. ;;usage: (T_blk "layers" "dim")
   
6. ;;对于符号表是否存在
   
7. (defun T_BLK (TYPE_1 BNAME / FLAG)
   
8.   (vlax-for BLK        ((eval (read (strcat "vla-get-" TYPE_1)))
   
9.                   (vla-get-activedocument (vlax-get-acad-object))
   
10.                 )
    
11.     (if        (= (strcase (vla-get-name BLK)) (strcase BNAME))
    
12.       (setq FLAG t)
    
13.     )
    
14.   )
    
15.   FLAG
    
16. )
    

<br /> ;;usage: (T_blk  <要测试的符号表> <要测试的符号表内对象名称>)<br /> ;;usage: (T_blk "blocks" "*D1")<br /> ;;usage: (T_blk "layers" "dim")<br /> ;;对于符号表是否存在<br /> (defun T_BLK (TYPE_1 BNAME / FLAG)<br />   (vlax-for BLK        ((eval (read (strcat "vla-get-" TYPE_1)))<br />                   (vla-get-activedocument (vlax-get-acad-object))<br />                 )<br />     (if        (= (strcase (vla-get-name BLK)) (strcase BNAME))<br />       (setq FLAG t)<br />     )<br />   )<br />   FLAG<br /> )<br />