选定区域填充程序变不正常了

szx025

2. ;;;;选定区域填充
   
3. (defun c:hh (/ color_old)
   
4.   (setq color_old (getvar "cecolor")) ;_记录cecolor系统变量
   
5.   (setvar "cecolor" "8") ;_把cecolor系统变量设为灰色
   
6.   (command "-bhatch" "p" "s")
   
7.   (while (/= (getvar "cmdnames") "")
   
8.     (command pause)
   
9.   ) ;_这里等待用户点取选区并填出图案
   
10.   (setvar "cecolor" color_old) ;_还原cecolor系统变量
    
11.   (princ)
    
12. )

;;;;选定区域填充<br /> (defun c:hh (/ color_old)<br />   (setq color_old (getvar "cecolor")) ;_记录cecolor系统变量<br />   (setvar "cecolor" "8") ;_把cecolor系统变量设为灰色<br />   (command "-bhatch" "p" "s")<br />   (while (/= (getvar "cmdnames") "")<br />     (command pause)<br />   ) ;_这里等待用户点取选区并填出图案<br />   (setvar "cecolor" color_old) ;_还原cecolor系统变量<br />   (princ)<br /> )

这个程序一直都正常使用，最近出现一个问题，在有点图中使用，填充的颜色不是8号，而是白色了，这是为啥

szx025

自己顶一下，难道还有其它参数控制"cecolor”