请教meflying：在CAD图形中怎样使实体闪亮显示

qliweidong

meflying版主：
　　您好！我做了一个工业场地的总图布置图，在汇报方案时，为使问题表达的清晰明了，需要对有关的实体进行闪亮显示，不知用什么方法能达到这个目的，请您给予指教。

　　　　　　　　　　　qliweidong

                                 2003年11月21日

tukuitk

用redraw函数，呵呵

meflying

看看我这个程序，用我的setcolor函数可以实现彩色闪烁。。。 　　　
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=9510

qliweidong

meflying 版主
　　　　非常感谢你的快速回复，按照你提供的路径，我下载的是一个名为“GAME·VLX”经过编译的文件，而不是你说的setcolor函数，你是否可将setcolor函数提供给我，烦你能指点一下怎样使用，先行谢过。

　　　　　　　　　　　　　　　　　　　　　qliweidong       2003.11.22

meflying

不好意思，我忘了没有公布源代码，
setcolor函数如下，是设置对象的颜色，你可以循环，并经过一定延时不断改变对象的颜色，以达到闪烁效果。
用法：(setcolor ent colorvalue);ent为对象名，colorvalue为颜色值
(defun setcolor(sname color / sinf)
  (setq sinf (entget sname))
  (if (assoc 62 sinf)
    (setq sinf (subst (cons 62 color) (assoc 62 sinf) sinf))
    (setq sinf (append sinf (list (cons 62 color))))
  )
  (entmod sinf)
)

秋枫

总的来说，我认为汇报方案用Autolisp控制AutoCAD显示的形式不妥。

汇报应该用专门汇报的软件，如PPT，Authorware之类的。

个人意见，勿见怪～～

lockmyeye

也是也是，到时出点问题，极易手忙脚乱的。

重新绘制当前视口或当前视口中的一个指定对象（图元）

(redraw [ename [mode]])

如果不带参数调用 redraw 函数，它重新绘制当前视口。如果调用它时提供了图元名，它将重新绘制该指定图元。

redraw 函数对已突出显示或隐藏的图元无效，而 REGEN 命令可强制使图元以正常模式重新显示。

参数

ename

要重新绘制图元的名称。

mode

整数值，控制图元的可见性和亮显。mode 可为下列值之一：

1 显示图元

2 隐藏图元（使其不可见）

3 亮显图元

4 不亮显图元

亮显图元模式 (mode=3) 必须与不亮显图元模式 (mode=4) 协调使用。

如果 ename 是复杂图元（多段线或带属性的块参照）的头部图元名，那么在 mode 参数为正时，redraw 函数对主图元和它的所有子图元进行处理，如果 mode 参数为负时，redraw 仅处理头部图元。

返回值

redraw 函数的返回值始终为 nil。

BDYCAD

如:
  (SETQ AAS (SSGET) N 0)
  (WHILE (SETQ DD(SSNAME AAS N))
       (REDRAW EN 3) (SETQ N (1+ N)))
  (PRINC "\n所選圖元以亮顯啦....")