同一段LISP，grdraw 在有些电脑能动态显示，有些电脑却不显示。知道是怎么回事吗？

artken

请问，

同一段LISP，grdraw 在有些电脑能动态显示，有些电脑却不显示。知道是怎么回事吗？

鱼与熊掌

2. (setq p (GETPOINT))
   
3. (while (progn
   
4.          (setq gr (grread 7 2)
   
5.                p1 (cadr gr)
   
6.          )
   
7.          (cond
   
8.            (=
   
9.             5
   
10.             (car gr)
    
11.             (grdraw p p1 1)
    
12.             t
    
13.            )
    
14.            (=
    
15.             3
    
16.             (car gr)
    
17.             nil
    
18.            )
    
19.          )
    
20.        )
    
21. )
    

(setq p (GETPOINT))<br /> (while (progn<br />          (setq gr (grread 7 2)<br />                p1 (cadr gr)<br />          )<br />          (cond<br />            (=<br />             5<br />             (car gr)<br />             (grdraw p p1 1)<br />             t<br />            )<br />            (=<br />             3<br />             (car gr)<br />             nil<br />            )<br />          )<br />        )<br /> )<br />

;是不是你代码写错了...

鱼与熊掌

2. (setq p1 (GETPOINT))
   
3. (while (progn
   
4.          (setq gr (grread 7 2))
   
5.          (setq p2 (cadr gr))
   
6.          (GRDRAW p1 p2 1)
   
7.          (if pt_tmp
   
8.            (GRDRAW p1 pt_tmp 0)
   
9.          )
   
10.          (setq pt_tmp p2)
    
11.        )
    
12. )

(setq p1 (GETPOINT))<br /> (while (progn<br />          (setq gr (grread 7 2))<br />          (setq p2 (cadr gr))<br />          (GRDRAW p1 p2 1)<br />          (if pt_tmp<br />            (GRDRAW p1 pt_tmp 0)<br />          )<br />          (setq pt_tmp p2)<br />        )<br /> )