在AutoCAD中使实体闪烁的方法有哪些?

王咣生

在AutoCAD中使实体闪烁的方法有哪些?

meflying

用redraw函数也可以，有两种闪烁方式，一种是消失和显示(test sname 1)，一种是普通和亮显(test sname 3)
(defun test(sname tp)
  (setvar "cmdecho" 0)
  (repeat 10
    (redraw sname tp)
    (command "delay" 500)
    (redraw sname (1+ tp))
    (command "delay" 500)
  )
  (redraw sname 1)
  (princ)
)

xazhji

删除，再恢复

龙龙仔

对象闪烁方法应很多
1.        剎掉再undo(entdel切换执行)
2.        visible属性切换
3.        图层on、off切换
4.        wipeout切换
5.        …

王咣生

谢谢.

龙龙仔

对象闪烁方法应很多
1. 剎掉再undo(entdel切换执行)
(defun C:TT (/ SS N ENT)
  (setq SS (ssget))
  (while t
    (setq N 0)
    (repeat (sslength SS)
      (entdel (ssname SS N))
      (setq N (1+ N))
    )
    (command "DELAY" 500)
  )
)


2. visible属性切换
(vl-load-com)
(defun C:TT1 (/ SS N ENT)
  (setq SS (ssget))
  (while t
    (setq N 0)
    (repeat (sslength SS)
      (if (= (vla-get-visible
               (setq ENT (vlax-ename->vla-object (ssname SS N)))
             )
             :vlax-true
          )
        (vla-put-visible ENT :vlax-false)
        (vla-put-visible ENT :vlax-true)
      )
      (setq N (1+ N))
    )
    (command "DELAY" 500)
  )
)

王咣生

谢谢龙龙仔,meflying版主的回答.

nimoyao

为什么内容都看不了啊？

jxlsp

内容都看不了啊

aicr317

就一个表情啊，怎么看啊