wjnnan 发表于 2014-6-27 11:26:45

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

;;;填充全色
(DEFUN C:h1 (/ ent mm)
   (setvar "CMDECHO" 0)
(setq mm (ssget))
(setq ent(ssname mm 0))
(COMMAND "-HATCH" "a" "a" "y" "" "s" ent "" "p" "solid" "" "" "")
)命令行提示：hhFEQSELECT 未知命令“HHFEQSELECT”，请大家帮忙改一下，谢谢了

edata 发表于 2014-6-27 12:54:56

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

wjnnan 发表于 2014-6-29 01:41:10

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

感谢你的回答，但是按照你的方法，还是没能解决问题，你能帮我重新写一个吗，就是选择对象后，在对象形成的封闭区域内，填充单色，谢谢。
这是我写的另一个填充，同样的模式，可是没有上面的问题;;;填充斜格
(DEFUN C:h2 (/ ent mm)
   (setvar "CMDECHO" 0)
(setq mm (ssget))
(setq ent(ssname mm 0))
(COMMAND "-HATCH" "a" "a" "y" "" "s" ent "" "p" "ANSI37" "50" "0" "")
)

wjnnan 发表于 2014-7-1 00:38:13

已经解决了，还是参数少了;014-填充全色
(DEFUN C:t1 (/ ent mm)
   (setvar "CMDECHO" 0)
(setq mm (ssget))
(setq ent(ssname mm 0))
(COMMAND "-HATCH" "a" "a" "y" "h" "y" "" "s" ent "" "p" "solid" "" "" "")
)
页: [1]
查看完整版本: 填充命令时，提示错误，请大家帮忙改一下