请问有人帮忙看看,怎么把先命令改成先选择再命令吗?
能有注释最好,麻烦了,谢谢大家.谢谢!
(defun C:has (/ sg i s1)
(setvar "cmdecho" 0)
(command "_.undo" "_begin")
(princ "\n选择你要关联的填充物：")
(setq sg (ssget '((0 . "hatch"))) i -1)
(while (setq s1 (ssname sg (setq i (1+ i))))
(command "-hatchedit" s1 "as")
)
(command "_.undo" "_end")
(princ)
) ;defun
本帖最后由 aihuyujian 于 2014-12-4 05:52 编辑
把(princ)(setq sg(ssget))这两句放到(setvar)之前应该就可以了吧，你试试，要是不行就在此基础上删掉(princ)再试试 谢谢aihuyujian .这么晚还帮忙解决了问题.谢谢
页:
[1]