求老师改进下我的程序
(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”，
还有，程序选择的对象中，如果有填充图案、还有非填充图案的对象时，就不能运行了。里面怎样改，能使程序自动识别填充图案，并正常运行
请问各位老师怎么改进下啊？谢谢了
你应该发到LSP板块去！
页:
[1]