如何得到编辑后的选择集

Lispboy · 发表于 2013-4-19 17:09:42

本帖最后由 Lispboy 于 2013-4-19 17:12 编辑

xtdwynij 发表于 2013-4-19 16:58

登录/注册后可看大图

师兄,这个不是依次得到图元名嘛!如果变成A了还行么?

你按我说的试验一下不就知道了

把

(setq ss (entnext ss))

改成：

(setq a (entnext a))
(ssadd a ss)

Lispboy · 发表于 2013-4-19 17:17:59

本帖最后由 Lispboy 于 2013-4-19 17:21 编辑

你想得到mirror命令后的实体选择集？
你试下下面的

[pcode=lisp,true]
(defun c:tt ()
  (command "circle" '(0 0) 6)
  (setq a (entlast))
  (setq ss (ssadd))
  (setq aa (getpoint "\n111:"))
  (setq bb (getpoint "\n222:"))
  (command "mirror" a "" aa bb "n")
  (while (setq a (entnext a))
(ssadd a ss)
  )                                     ; ss就是你
                                    ; mirror后的实
                                    ; 体选择集
  (alert "成功")
)
[/pcode]

xtdwynij · 发表于 2013-4-19 17:38:04

eachy 发表于 2013-4-19 17:06

登录/注册后可看大图

(setq a (entnext))
(setq ss (ssadd))
....

测试成功!呵呵..谢谢副站长出手!谢谢晓东大神.谢谢Lispboy

xtdwynij · 发表于 2013-4-19 17:58:19

eachy 发表于 2013-4-19 17:06

登录/注册后可看大图

(setq a (entnext))
(setq ss (ssadd))
....

谢谢eachy副站长.谢谢晓东大神.谢谢lispboy师兄,此问题已解决!

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

[已解决] 如何得到编辑后的选择集

评分