求老师改进下我的程序

ucuc2003

(defun C:htt (/ sg i s1)
  (setvar "cmdecho" 0)
  (print "请选择填充图案")
  (setq sg (ssget) i -1)
  (while (setq s1 (ssname sg (setq i (1+ i))))
    (command "hatchedit" s1 "b" "p" "y" "" )
  )   
  (princ)
) ;defun

编的程序能运行，但是总提示“未知命令htt”，
还有，程序选择的对象中，如果有填充图案、还有非填充图案的对象时，就不能运行了。里面怎样改，能使程序自动识别填充图案，并正常运行
请问各位老师怎么改进下啊？谢谢了

cuyongping

你应该发到LSP板块去！