填充命令时，提示错误，请大家帮忙改一下

wjnnan

2. ;;;填充全色
   
3. (DEFUN C:h1 (/ ent mm)
   
4.    (setvar "CMDECHO" 0)
   
5. (setq mm (ssget))
   
6. (setq ent  (ssname mm 0))
   
7. (COMMAND "-HATCH" "a" "a" "y" "" "s" ent "" "p" "solid" "" "" "")
   
8. )

;;;填充全色<br /> (DEFUN C:h1 (/ ent mm) <br />    (setvar "CMDECHO" 0)<br /> (setq mm (ssget))<br /> (setq ent  (ssname mm 0))<br /> (COMMAND "-HATCH" "a" "a" "y" "" "s" ent "" "p" "solid" "" "" "")<br /> )

命令行提示：hhFEQSELECT 未知命令“HHFEQSELECT”，请大家帮忙改一下，谢谢了

edata

(COMMAND "-HATCH" "a" "a" "y" "" "s" ent "" "p" "solid" "" "" "")
尝试去掉最后的引号。或两个。因为command函数在不同的版本下，提示不一样，所以输入""来确认个数不一样。

wjnnan

edata 发表于 2014-6-27 12:54
(COMMAND "-HATCH" "a" "a" "y" "" "s" ent "" "p" "solid" "" "" "")
尝试去掉最后的引号。或两个。因为c ...

感谢你的回答，但是按照你的方法，还是没能解决问题，你能帮我重新写一个吗，就是选择对象后，在对象形成的封闭区域内，填充单色，谢谢。
这是我写的另一个填充，同样的模式，可是没有上面的问题

2. ;;;填充斜格
   
3. (DEFUN C:h2 (/ ent mm)
   
4.    (setvar "CMDECHO" 0)
   
5. (setq mm (ssget))
   
6. (setq ent  (ssname mm 0))
   
7. (COMMAND "-HATCH" "a" "a" "y" "" "s" ent "" "p" "ANSI37" "50" "0" "")
   
8. )

;;;填充斜格<br /> (DEFUN C:h2 (/ ent mm) <br />    (setvar "CMDECHO" 0)<br /> (setq mm (ssget))<br /> (setq ent  (ssname mm 0))<br /> (COMMAND "-HATCH" "a" "a" "y" "" "s" ent "" "p" "ANSI37" "50" "0" "")<br /> )

wjnnan

已经解决了，还是参数少了

2. ;014-填充全色
   
3. (DEFUN C:t1 (/ ent mm)
   
4.    (setvar "CMDECHO" 0)
   
5. (setq mm (ssget))
   
6. (setq ent  (ssname mm 0))
   
7. (COMMAND "-HATCH" "a" "a" "y" "h" "y" "" "s" ent "" "p" "solid" "" "" "")
   
8. )
   

;014-填充全色<br /> (DEFUN C:t1 (/ ent mm) <br />    (setvar "CMDECHO" 0)<br /> (setq mm (ssget))<br /> (setq ent  (ssname mm 0))<br /> (COMMAND "-HATCH" "a" "a" "y" "h" "y" "" "s" ent "" "p" "solid" "" "" "")<br /> )<br />