artken 发表于 2015-1-6 06:57:23

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

请问,

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

鱼与熊掌 发表于 2015-1-6 10:04:00

(setq p (GETPOINT))
(while (progn
       (setq gr (grread 7 2)
             p1 (cadr gr)
       )
       (cond
           (=
          5
          (car gr)
          (grdraw p p1 1)
          t
           )
           (=
          3
          (car gr)
          nil
           )
       )
       )
)
;是不是你代码写错了...

鱼与熊掌 发表于 2015-1-6 10:31:37

(setq p1 (GETPOINT))
(while (progn
       (setq gr (grread 7 2))
       (setq p2 (cadr gr))
       (GRDRAW p1 p2 1)
       (if pt_tmp
           (GRDRAW p1 pt_tmp 0)
       )
       (setq pt_tmp p2)
       )
)
页: [1]
查看完整版本: 同一段LISP,grdraw 在有些电脑能动态显示,有些电脑却不显示。知道是怎么回事吗?