同一段LISP,grdraw 在有些电脑能动态显示,有些电脑却不显示。知道是怎么回事吗?
请问,同一段LISP,grdraw 在有些电脑能动态显示,有些电脑却不显示。知道是怎么回事吗?
(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
)
)
)
)
;是不是你代码写错了... (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]