对象匹配选择！求助

aaacjh · 发表于 2012-5-29 23:17

大虾指路：
(defun c:eeq(/ aa ss)
  (setq aa(cdr(assoc 0 (entget(car(entsel "请选择源对象:"))))))
  (setq ss(ssget(list (cons 0 aa))))
  (princ)
)
以上程序执行结束后，想让对象出于选择状态！不知如何实现，请大虾们指点阿，

lzg8877 · 发表于 2012-5-30 06:24

新人不会只可以帮你顶起

河外之星 · 发表于 2012-6-5 19:42

(defun c:eeq(/ aa ss)
  (setq aa(cdr(assoc 0 (entget(car(entsel "请选择源对象:"))))))
  (setq ss(ssget(list (cons 0 aa))))
(sssetfirst nil nil)
(sssetfirst nil ss)
  (princ)
)

smartstar · 发表于 2012-6-5 21:48

路过，学习了。

aaacjh · 发表于 2012-6-6 23:07

河外之星发表于 2012-6-5 19:42
(defun c:eeq(/ aa ss)
(setq aa(cdr(assoc 0 (entget(car(entsel "请选择源对象:"))))))
(setq ss(s ...

好人一生平安！

664571221 · 发表于 2016-1-21 20:32

aaacjh 发表于 2012-6-6 23:07
好人一生平安！

很好很厉害，谢谢了哈哈哈

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