请教怎么实现利用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))
                (t  nil)
                   )
        )
        ;(redraw)
)

langjs

看看这个行不行

(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)
  )
)

机械工程师

谢谢分享源码