选定区域填充程序变不正常了
;;;;选定区域填充(defun c:hh (/ color_old)
(setq color_old (getvar "cecolor")) ;_记录cecolor系统变量
(setvar "cecolor" "8") ;_把cecolor系统变量设为灰色
(command "-bhatch" "p" "s")
(while (/= (getvar "cmdnames") "")
(command pause)
) ;_这里等待用户点取选区并填出图案
(setvar "cecolor" color_old) ;_还原cecolor系统变量
(princ)
)这个程序一直都正常使用，最近出现一个问题，在有点图中使用，填充的颜色不是8号，而是白色了，这是为啥
自己顶一下，难道还有其它参数控制"cecolor”
页:
[1]