关于选择集添加问题

ysq101

1. (defun c:1 ()
   
2.   (setq ss (entsel))
   
3.   (setq b (entget (car ss)))
   
4.   (setq p1 (cdr (assoc 10 b)))
   
5.   (setq r (cdr (assoc 40 b)))
   
6.   (setq p2 (list (+ (car p1) r) (cadr p1)))
   
7.   (setq e1 (entmakex (list '(0 . "circle") (cons 10 p2) (cons 40 1))))
   
8.   (command "ERASE" ss "")
   
9. )
   

(defun c:1 ()<br />   (setq ss (entsel))<br />   (setq b (entget (car ss)))<br />   (setq p1 (cdr (assoc 10 b)))<br />   (setq r (cdr (assoc 40 b)))<br />   (setq p2 (list (+ (car p1) r) (cadr p1)))<br />   (setq e1 (entmakex (list '(0 . "circle") (cons 10 p2) (cons 40 1))))<br />   (command "ERASE" ss "")<br /> )<br />

这段代码如何将由entmakex最后生成的对象添加到选择集SS中去？？

marting

楼主，你直接entmake不行吗？

laibinwu

1. (defun c:1 (/ ss b p1 r p2 ss1)
   
2.   (setq ss (entsel));ss为列表
   
3.   (setq b (entget (car ss)))
   
4.   (setq p1 (cdr (assoc 10 b)))
   
5.   (setq r (cdr (assoc 40 b)))
   
6.   (setq p2 (list (+ (car p1) r) (cadr p1)))
   
7.   (entmake (list '(0 . "circle") (cons 10 p2) (cons 40 1)))
   
8.   (setq ss1 (ssadd));添加空选择集
   
9.   (ssadd (car ss) ss1);添加ss的图名到ss1选择集
   
10.   (ssadd (entlast) ss1);添加上次生成的圆到选择集
    
11.   (command "ERASE" ss1 "");删除以上生成的圆和选择的圆
    
12. )

(defun c:1 (/ ss b p1 r p2 ss1)<br />   (setq ss (entsel));ss为列表<br />   (setq b (entget (car ss)))<br />   (setq p1 (cdr (assoc 10 b)))<br />   (setq r (cdr (assoc 40 b)))<br />   (setq p2 (list (+ (car p1) r) (cadr p1)))<br />   (entmake (list '(0 . "circle") (cons 10 p2) (cons 40 1)))<br />   (setq ss1 (ssadd));添加空选择集<br />   (ssadd (car ss) ss1);添加ss的图名到ss1选择集<br />   (ssadd (entlast) ss1);添加上次生成的圆到选择集<br />   (command "ERASE" ss1 "");删除以上生成的圆和选择的圆<br /> )

这个是不是白忙活啊
===========
应该添加选择集的，ss不是选择集不行的

laibinwu

ssadd将对象（图元）加入到选择集中，或创建新的选择集

ysq101

laibinwu 发表于 2013-6-6 16:35
这个是不是白忙活啊

最后一段删除我是用来测试看它有没有添加到选择集里的。。源代码不是这样子的。。谢谢你热心回答，顺便问一下为什么要建新选择集，，直接添到选择集SS中不可以吗？？

marting

ysq101 发表于 2013-6-6 17:38
最后一段删除我是用来测试看它有没有添加到选择集里的。。源代码不是这样子的。。谢谢你热心回答，顺便问 ...

entsel 得到的不是选择集。是 (实体名 点)

laibinwu

需要创建一个选择集的

ysq101

marting 发表于 2013-6-6 19:07
entsel 得到的不是选择集。是 (实体名 点)

原来是这样啊~~~~~~我明白了。。谢谢了啊