如何使图元变色且闪烁

yshf

各位高手，在LISP中，如何使选中的图元在红色与绿色之间以每隔0.5秒的间隔不停地闪烁，直到有下一步操作为止？象MAPGIS那样。

xyp1964

另类颜色变化：

(load "xyp_lib.vlx")  ;版本 V.20060305(2166)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：[/COLOR]
http://www.xdcad.net/forum/attachment.php?s=&postid=1606661
|;

(xyp-Chprop-Color (ssget) 10)