[LISP函数]：redraw函数的奇怪问题，lisp漏洞？

fylinwater

下面这段代码 当选择其他实体都可以亮显，唯独LWPOLYLINE不行？！甚至于块里的LWPOLYLINE都会亮显。

判断的问题位置：dd_plt_SetCodeNumber  给选择的实体添加编号扩展数据：
(entmod newent) 似乎是它引起的？
因为(REDRAW （car（entsel ））3）是可以亮显的

2. 
   
3. (defun dd_plt_SetCodeNumber (entname iNumber)
   
4.     (setq dd_plt*appname* "dd_teset")
   
5.       
   
6.     (DD_SETXDATA  dd_plt*appname* entname (list (cons 1070 iNumber)))
   
7.    
   
8.   )
   
9. 
   
10. (defun c:dd_Code( /  i entname )
    
11.    
    
12. 
    
13.     (setq i (getint "    请输入起始编号<1>:"))
    
14.   (if (null i ) (setq i 1))
    
15.   (while   (setq entname    (car (entsel "\n   请选择实体:  ")))
    
16.      (dd_plt_SetCodeNumber  entname i)
    
17.     ;;;;显示处理
    
18.     (if dd*beforeent* (redraw dd*beforeent* 4))
    
19.     (setq dd*beforeent* entname)
    
20.     (redraw entname 3)
    
21.      
    
22.     ;;;;
    
23.     (princ (strcat "   给该实体赋编号为 " (itoa i)))
    
24.    (SETQ I (1+ I ))
    
25.    )
    
26. 
    
27.    ;;;;;(princ (strcat "最后一编号为 " (itoa i) ))
    
28. (princ)
    
29. 
    
30.   )
    
31. 
    
32. ;; 添加扩展数据的函数
    
33. (defun dd_setxdata (appname entname exdlst  / exd ents newent )
    
34.   
    
35.   ;(setq appname (strcase appname)) ;;
    
36.   
    
37.     (regapp appname)
    
38.     (setq ents (entget entname))
    
39.     (setq exd (list (list  -3  (cons appname  exdlst))))
    
40.     (setq newent  (append ents exd))
    
41.     (entmod newent)
    
42. 
    
43. )
    

<br /> (defun dd_plt_SetCodeNumber (entname iNumber)<br />     (setq dd_plt*appname* "dd_teset")<br />       <br />     (DD_SETXDATA  dd_plt*appname* entname (list (cons 1070 iNumber)))<br />    <br />   )<br /> <br /> (defun c:dd_Code( /  i entname )<br />    <br /> <br />     (setq i (getint "    请输入起始编号<1>:"))<br />   (if (null i ) (setq i 1))<br />   (while   (setq entname    (car (entsel "\n   请选择实体:  ")))<br />      (dd_plt_SetCodeNumber  entname i) <br />     ;;;;显示处理<br />     (if dd*beforeent* (redraw dd*beforeent* 4))<br />     (setq dd*beforeent* entname)<br />     (redraw entname 3)<br />      <br />     ;;;;<br />     (princ (strcat "   给该实体赋编号为 " (itoa i)))<br />    (SETQ I (1+ I ))<br />    )<br /> <br />    ;;;;;(princ (strcat "最后一编号为 " (itoa i) ))<br /> (princ)<br /> <br />   )<br /> <br /> ;; 添加扩展数据的函数<br /> (defun dd_setxdata (appname entname exdlst  / exd ents newent )<br />   <br />   ;(setq appname (strcase appname)) ;;<br />   <br />     (regapp appname)<br />     (setq ents (entget entname))<br />     (setq exd (list (list  -3  (cons appname  exdlst))))<br />     (setq newent  (append ents exd))<br />     (entmod newent)<br /> <br /> )<br />

XDSoft

最初由 fylinwater 发布
[B]下面这段代码 当选择其他实体都可以亮显，唯独LWPOLYLINE不行？！甚至于块里的LWPOLYLINE都会亮显。

判断的问题位置：dd_plt_SetCodeNumber  给选择的实体添加编号扩展数据：
(entmod newent) 似乎是它引起的？... [/B]

REDRAW函数是操作“显示表”，实体entmod后，要REGEN后，才会把实体的信息写到“显示表”，这样后，REDRAW才起作用。

fylinwater

晓东 现在的问题不在这里，而是其他所有实体REDRAW是起作用的，而只有 LWPOLYLINE不亮显！
PS  最近看到晓东回的不少帖子，感觉晓东又回来了

LUCAS

;;曉東能說說「顯示表」嗎? 「顯示表」到底是甚麼東東??

;;;;顯示處理
    (if        DD*BEFOREENT*
      (redraw DD*BEFOREENT* 4)
    )
    (setq DD*BEFOREENT* ENTNAME)
    (command "_.regen");add
    (redraw ENTNAME 3)
;;;;

e2002

AutoCAD 运行时实际有两套数据库,其中一套就是"显示表"
目的是为了加快图形的显示等操作的速度,精度取得比较低,而真实的要记录在文件中的数据库的精度是很高的.