请问有人帮忙看看,怎么把先命令改成先选择再命令吗?

hooboxu · 发表于 2014-12-3 22:21

能有注释最好,
麻烦了,谢谢大家.谢谢!

(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-3 22:21

本帖最后由 aihuyujian 于 2014-12-4 05:52 编辑

把(princ)(setq sg(ssget))这两句放到(setvar)之前应该就可以了吧，你试试，要是不行就在此基础上删掉(princ)再试试

hooboxu · 发表于 2014-12-4 09:15

谢谢aihuyujian .这么晚还帮忙解决了问题.谢谢

账号		自动登录	找回密码
密码			注册

[已解答] 请问有人帮忙看看,怎么把先命令改成先选择再命令吗?

最佳答案

相关帖子

浏览过的版块