请教怎么实现利用redraw或grvecs按要求闪烁显示绘制的图元
请教下各位，怎么实现redraw或grvecs绘制图元时能闪几下，闪动频率和次数希望能定制。(defun c:gg()
(setq pt1 (list 0 0 0))
(setq pt2 (list 50 50 0))
(setvar "dimzin" 1)
(setq old_time (atoi (substr (rtos (getvar "cdate") 2 20) 10 8)))
(while t
(setq new_time (atoi (substr (rtos (getvar "cdate") 2 20) 10 8)))
(setq pass_time (- new_time old_time))
(cond
((> 200 pass_time 198)(grdraw pt1 pt2 2 1))
((> 400 pass_time 398)(redraw))
((> 600 pass_time 598)(grdraw pt1 pt2 2 1))
((> 800 pass_time 798)(redraw))
((> 1000 pass_time 998)(grdraw pt1 pt2 2 1))
(tnil)
)
)
;(redraw)
)
看看这个行不行
(defun c:tt ()
(setvar "cmdecho" 0)
(setq na (car (entsel "\n选择：")))
(glint na 3)
(princ)
)
(defun glint (na i)
(repeat i
(command "delay" "200")
(redraw na 2)
(redraw)
(command "delay" "100")
(redraw na 1)
(redraw)
)
)
谢谢分享源码
页:
[1]