[求助]：一个莫名其妙的bug

libo2000

使用(entmake)制作线段中遇到个极其奇怪的bug：
插入一个带属性（ATTDEF）的块后，但删除该块的时候，就很容易出现(entmake)无效的bug。
但不是每时候都会出现。
哪位大侠知道为何原因？

2. 
   
3.   [FONT=courier new]
   
4. ;;; 制造 LINE ; input: 起始 pt1 终止pt2
   
5. ;;; m_line：3D线；m_line2：2D线。
   
6. 
   
7. (defun #m_line (pt1 pt2 lay color ltype / e0)
   
8.         (if (chengs_IsUcs)
   
9.                 (setq pt1 (trans pt1 1 0)
   
10.                       pt2 (trans pt2 1 0)
    
11.                 )
    
12.         )
    
13.         (if ltype
    
14.                 (setq e0 (list (cons 0 "LINE") (cons 8 lay) (cons 10 pt1) (cons 11 pt2)
    
15.                                 (cons 6 ltype)
    
16.                         )
    
17.                 )
    
18.                 (setq e0 (list (cons 0 "LINE") (cons 8 lay) (cons 10 pt1) (cons 11 pt2)))
    
19.         )
    
20.         (if (= (type color) 'STR)
    
21.                 (setq color (atoi color))
    
22.         )
    
23.         (if (/= -1 color)
    
24.                 (setq e0 (append
    
25.                                 e0
    
26.                                 (list (cons 62 color))
    
27.                         )
    
28.                 )
    
29.         )
    
30.         (if (entmake e0)
    
31.                 (entlast)
    
32.         )
    
33. )
    
34. ;;; endfun #m_line
    
35.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; 制造 LINE ; input: 起始 pt1 终止pt2<br /> ;;; m_line：3D线；m_line2：2D线。<br /> <br /> (defun #m_line (pt1 pt2 lay color ltype / e0)<br />         (if (chengs_IsUcs)<br />                 (setq pt1 (trans pt1 1 0)<br />                       pt2 (trans pt2 1 0)<br />                 )<br />         )<br />         (if ltype<br />                 (setq e0 (list (cons 0 "LINE") (cons 8 lay) (cons 10 pt1) (cons 11 pt2)<br />                                 (cons 6 ltype)<br />                         )<br />                 )<br />                 (setq e0 (list (cons 0 "LINE") (cons 8 lay) (cons 10 pt1) (cons 11 pt2)))<br />         )<br />         (if (= (type color) 'STR)<br />                 (setq color (atoi color))<br />         )<br />         (if (/= -1 color)<br />                 (setq e0 (append<br />                                 e0<br />                                 (list (cons 62 color))<br />                         )<br />                 )<br />         )<br />         (if (entmake e0)<br />                 (entlast)<br />         )<br /> )<br /> ;;; endfun #m_line<br />   [/FONT]<br />

aeo

是不是r15
程序中加个undo-group之类的就可以