[求助]：用LISP如何把一个图形块文件在插入当前图形时变为无名块!

netbee

我在用LISP把一个图形块文件插入到当前图形时，它的块名就是块文件名，这时这个块很容易被重新定义，我想在插入块文件时，把这个块定义为无名块，不知如何实现？
    请大家帮帮忙吧!

LUCAS

2. 
   
3. ;;By LUCAS(龙龙仔)
   
4. ;;图块改为匿名块
   
5. (defun C:TT (/ BLK BLKDEF BLKREF)
   
6.   (while
   
7.     (or        (not (setq BLK (car (entsel "\n选择要改为匿名块的图块: "))))
   
8.         (progn
   
9.           (setq BLKREF (vlax-ename->vla-object BLK))
   
10.           (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
    
11.         )
    
12.     )
    
13.   )
    
14.   (setq
    
15.     BLKDEF (vla-item (vla-get-blocks
    
16.                        (vla-get-activedocument (vlax-get-acad-object))
    
17.                      )
    
18.                      (vla-get-name BLKREF)
    
19.            )
    
20.   )
    
21.   (vla-put-name BLKDEF "*U")
    
22.   (vlax-release-object BLKREF)
    
23.   (vlax-release-object BLKDEF)
    
24.   (princ)
    
25. )
    

<br /> ;;By LUCAS(龙龙仔)<br /> ;;图块改为匿名块<br /> (defun C:TT (/ BLK BLKDEF BLKREF)<br />   (while<br />     (or        (not (setq BLK (car (entsel "\n选择要改为匿名块的图块: "))))<br />         (progn<br />           (setq BLKREF (vlax-ename->vla-object BLK))<br />           (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))<br />         )<br />     )<br />   )<br />   (setq<br />     BLKDEF (vla-item (vla-get-blocks<br />                        (vla-get-activedocument (vlax-get-acad-object))<br />                      )<br />                      (vla-get-name BLKREF)<br />            )<br />   )<br />   (vla-put-name BLKDEF "*U")<br />   (vlax-release-object BLKREF)<br />   (vlax-release-object BLKDEF)<br />   (princ)<br /> )<br />