如何得到编辑后的选择集

xtdwynij

比如说:在之前我画了一个圆和几条直线,并创建了一个选择集.然后我就镜像命令把这个选择集镜像得到新的选择集(图元).那么这个新的选择集是怎么得到呢?我的思路是用entnext函数,然后把镜像过后的图元用循环函数把它们都加进新的选择集里面去.但是具体操作是不懂,功力太浅了!
求师兄前辈版主们出手给个例子!

userzhl

(ssget "P"

xtdwynij

再补充一点,entnext不是依次命名图元函数么?假如说我之前还画了一些别的图.那么还可以用entnext函数么?

newer

在你做编辑前执行下
[pcode=lisp,true]
(setq ent (entlast))
[/pcode]
编辑生成新实体后：

[pcode=lisp,true]
（while (setq ent (entnetxt ent))
      (setq elist (cons ent elist))
  )
[/pcode]

  变量elist就是新生成的实体表了。

xtdwynij

newer 发表于 2013-4-19 15:45

                               
登录/注册后可看大图

在你做编辑前执行下

(setq ent (entlast))

但我并不是只画一条线或一个圆啊!(setq ent (entlast))是最后命名图元吧?我想做一个选择集.然后编辑后再去得到新的选择集!

eachy

在希望得到后面实体时，先entlast，获取选择集时entnext来自: Android客户端

Lispboy

xtdwynij 发表于 2013-4-19 15:54

                               
登录/注册后可看大图

但我并不是只画一条线或一个圆啊!(setq ent (entlast))是最后命名图元吧?我想做一个选择集.然后编辑后再去 ...

我翻译下上面代码的意思吧。

在你没生成新实体前，执行 (setq ent (entlast))，ent是图形数据库里面最后一个实体吧，你啥也不做，(entnext ent) 应该是NIL吧，因为它后面没有实体了。

这时候，你不管做什么只要是生成新实体了，那么 (entnext ent)得到啥？ 不就是紧接着ent实体后，新增加到图形中的实体吗？循环直到 (entnext ent)为NIL了，要到图形中最后一个实体了，循环过程中你把每个新生成的实体保存到表里面不就是你想要的了。

xtdwynij

eachy 发表于 2013-4-19 16:00

                               
登录/注册后可看大图

在希望得到后面实体时，先entlast，获取选择集时entnext

明白了!是得到最后图元名!然后编辑后依次得到图元名.再把这些图元名加入到新的选择集里面去!

xtdwynij

Lispboy 发表于 2013-4-19 16:08

                               
登录/注册后可看大图

我翻译下上面代码的意思吧。

在你没生成新实体前，执行 (setq ent (entlast))，ent是图形数据库里面最 ...

谢谢师兄解答!谢谢!

xtdwynij

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

                               
登录/注册后可看大图

谢谢师兄解答!谢谢!

(defun c:tt ()
  (setq a (entlast))
  (command "circle" '(0 0) 6)
  (setq ss (entnext))
  (setq aa (getpoint "\n111:"))
  (setq bb (getpoint "\n222:"))
  (command "mirror" ss "" aa bb "n")
  (while
    (setq ss (entnext ss)
          ss1 (ssadd a ss) ;这里是把产生的新对象都加进选择集里来!可是出错了
    )
  )
(alert "成功")
)
这是测试源码.但是不成功!不知道错在哪里?

xtdwynij

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

                               
登录/注册后可看大图

(defun c:tt ()
  (setq a (entlast))
  (command "circle" '(0 0) 6)

[pcode=lisp,true](defun c:tt ()
  (setq a (entlast))
  (command "circle" '(0 0) 6)
  (setq ss (entnext))
  (setq aa (getpoint "\n111:"))
  (setq bb (getpoint "\n222:"))
  (command "mirror" ss "" aa bb "n")
  (while
    (setq ss (entnext ss)
          ss1 (ssadd a ss) ;这里是把产生的新对象都加进选择集里来!可是出错了
    )
  )
(alert "成功")
)
[/pcode]

Lispboy

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

                               
登录/注册后可看大图

(defun c:tt ()
  (setq a (entlast))
  (command "circle" '(0 0) 6)

这地方错了，怎么把选择集entnext了，应该是上面的 a。

xtdwynij

Lispboy 发表于 2013-4-19 16:31

                               
登录/注册后可看大图

这地方错了，怎么把选择集entnext了，应该是上面的 a。

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

xtdwynij

[pcode=lisp,true](defun c:tt ()
(setq a (entlast))
(setq ent (ssadd a))
(command "circle" '(0 0) 6)
(setq aa (getpoint "\n111:"))
(setq bb (getpoint "\n222:"))
(command "mirror" ss "" aa bb "n")
(command "line" '(0 0) '(5 5) "")
(setq ss (entnext))
(while
(setq ss (entnext ss)
ent (ssadd ss ent) ;这里是把产生的新对象都加进选择集里来!可是出错了
)
(print ss)
)
(alert "成功")
)
不知道哪个地方错了!求指点![/pcode]

eachy

(setq a (entnext))
(setq ss (ssadd))
....
(while (setq b (entnext a))
   (ssadd b ss)
   (Setq a b)
)来自: Android客户端