[讨论]：选择集的一个奇怪的问题

LADESIGNER

2. [FONT=courier new]
   
3. ;两个选择集的并集.
   
4. (defun ssu(ss1 ss2 / n item)
   
5. (setq n 0)
   
6. (while (setq item(ssname ss1 n))
   
7. (setq ss2(ssadd item ss2))
   
8. (setq n(1+ n))
   
9. ))
   
10. 
    
11. 操作(setq a(ssu ss1 ss2)后,A=SS1+SS2,而SS2居然也变了,SS2=SS1+SS2!!!
    
12. 为什么?[/FONT]

[FONT=courier new]<br /> ;两个选择集的并集.<br /> (defun ssu(ss1 ss2 / n item)<br /> (setq n 0)<br /> (while (setq item(ssname ss1 n))<br /> (setq ss2(ssadd item ss2))<br /> (setq n(1+ n))<br /> ))<br /> <br /> 操作(setq a(ssu ss1 ss2)后,A=SS1+SS2,而SS2居然也变了,SS2=SS1+SS2!!!<br /> 为什么?[/FONT]

Underway

(setq ss2(ssadd item ss2)) = (ssadd item ss2)

您可以对换 ss1 ss2 再试

xxsheng

参数交叉当然就会改变ss2了.而且本身程序就不是要使用返回值使用,..
(defun ssu(ss1 ss2 / n item )
(setq n 0)
(setq tmp(ssadd))
(while (setq item(ssname ss1 n))
(setq n(1+ n))
(ssadd item tmp)
)
(setq n 0)
(while (setq item(ssname ss2 n))
(setq n(1+ n))
(ssadd item tmp)
)
)
操作(setq a(ssu ss1 ss2)后,A=SS1+SS2,?很怀疑你到底怎么做的?原来的那个程序能返回正确的合集?原来的应该是A返回的是ss1的数量,也就是原来程序中的n,,,,,

怎么越想原来的程序越不对啊?原来的程序如何返回结果?利用ss2?形参和实参呢?如果我用(ssu a b)能正确返回b为合并的集?,,,,,

楼主,,,

xyp1964

最初由 LADESIGNER 发布
[B];两个选择集的并集.
(defun ssu(ss1 ss2 / n item)
(setq n 0)
(while (setq item(ssname ss1 n))
(setq ss2(ssadd item ss2))
(setq n(1+ n))
)

操作(setq a(ssu ss1 ss2)后,A=SS1+SS2,而SS2居然也变了,SS... [/B]

简化版：

2. [FONT=courier new];;;两个选择集的并集.
   
3. (defun ssu (ss1 ss2 / ss)
   
4.   (command "select" ss1 ss2 "")
   
5.   (setq ss (ssget "p"))
   
6.   ss
   
7. )[/FONT]

[FONT=courier new];;;两个选择集的并集.<br /> (defun ssu (ss1 ss2 / ss)<br />   (command "select" ss1 ss2 "")<br />   (setq ss (ssget "p"))<br />   ss<br /> )[/FONT]

winabcd

把你的函数定义改成
(defun ssu(m_ss1 m_ss2 / ...)
.....
)
试试ss2变不变。

LADESIGNER

最初由 LADESIGNER 发布
[B];两个选择集的并集.
(defun ssu(ss1 ss2 / n item)
(setq n 0)
(while (setq item(ssname ss1 n))
(setq ss2(ssadd item ss2))
(setq n(1+ n))
)

操作(setq a(ssu ss1 ss2)后,A=SS1+SS2,而SS2居然也变了,SS... [/B]

;测试是否是参数交叉了的问题.
(setq ss1(ssget) ss2(ssget) t1 ss1 t2 ss2)
(setq a(ssu t1 t2))   ;这下跟 ss1 ss2 无关了吧?
--------------------运行后的结果还是-----SS2变了，SS2= SS1+ SS2!!

明白为什么要用"SLECT"命令了。只能说明选择集跟其他数据类型不同，包含同样内容的选择集只能有一个。在函数SSU中，(ssadd item ss2)改变了SS2，执行完后形成了一个新选择集=SS1+SS2，注意SSADD操作的对象是SS2！不管是形参也罢实参也罢最后都指向了一个东西！

xyp1964

最初由 LADESIGNER 发布
[B][QUOTE]最初由 LADESIGNER 发布
[B];两个选择集的并集.
(defun ssu(ss1 ss2 / n item)
(setq n 0)
(while (setq item(ssname ss1 n))
(setq ss2(ssadd item ss2))
(setq n(1+ n))
)

操作(setq a(ss... [/B]

参数要设好，但还是复杂了：

2. [FONT=courier new];;;两个选择集的并集.
   
3. (defun ssu (ss1 ss2 / n ss item)
   
4.   (setq        n  -1
   
5.         ss ss2
   
6.   )
   
7.   (while (setq item (ssname ss1 (setq n (1+ n))))
   
8.     (setq ss (ssadd item ss))
   
9.   )
   
10.   ss
    
11. )[/FONT]

[FONT=courier new];;;两个选择集的并集.<br /> (defun ssu (ss1 ss2 / n ss item)<br />   (setq        n  -1<br />         ss ss2<br />   )<br />   (while (setq item (ssname ss1 (setq n (1+ n))))<br />     (setq ss (ssadd item ss))<br />   )<br />   ss<br /> )[/FONT]

xxsheng

最初由 winabcd 发布
[B]把你的函数定义改成
(defun ssu(m_ss1 m_ss2 / ...)
.....
)
试试ss2变不变。 [/B]

关键一个问题,,,你检查最后返回的a的值了吗?楼上改的程序你注意看没有?都改了程序顺序,,,,,,,,,

LADESIGNER

最初由 xyp1964 发布
[B][QUOTE]最初由 LADESIGNER 发布
[B][QUOTE]最初由 LADESIGNER 发布
[B];两个选择集的并集.
(defun ssu(ss1 ss2 / n item)
(setq n 0)
(while (setq item(ssname ss1 n))
(setq ss2(ssadd item s... [/B]

测试斑竹改过的程序,同样的第二个选择集还是改变了.

用斑竹提供的SSU函数:
(setq s1(ssget) s2 (ssget))
(setq a(ssu s1 s2))

结果是 a=s1+s2  s2=s1+s2
还是一样.

kohi

直接用扩展函数：
(acet-ss-union (list ss1 ss2))
Combines two selection sets 返回 ss1 ss2 的并集

xyp1964

再罗嗦点：

2. [FONT=courier new](defun ssu (ss1 ss2 / n ss item)
   
3.   (setq        n  -1
   
4.         ss (ssadd)
   
5.   )
   
6.   (while (setq item (ssname ss1 (setq n (1+ n))))
   
7.     (setq ss (ssadd item ss))
   
8.   )
   
9.   (setq n -1)
   
10.   (while (setq item (ssname ss2 (setq n (1+ n))))
    
11.     (setq ss (ssadd item ss))
    
12.   )
    
13.   ss
    
14. )[/FONT]

[FONT=courier new](defun ssu (ss1 ss2 / n ss item)<br />   (setq        n  -1<br />         ss (ssadd)<br />   )<br />   (while (setq item (ssname ss1 (setq n (1+ n))))<br />     (setq ss (ssadd item ss))<br />   )<br />   (setq n -1)<br />   (while (setq item (ssname ss2 (setq n (1+ n))))<br />     (setq ss (ssadd item ss))<br />   )<br />   ss<br /> )[/FONT]

雨箭风刀

2. 
   
3. (defun ssU (sslst / ss a)
   
4.   (defun ss2lst (ss / i lst)
   
5.     (setq i -1)
   
6.     (while (setq e (ssname ss (setq i(1+ i))))
   
7.        (setq lst (cons e lst))
   
8.     )
   
9.   )
   
10.   (setq ss (ssadd))
    
11.   (foreach x sslst(if (setq a (ss2lst x))(foreach y a (ssadd y ss))))
    
12.   ss
    
13. )
    
14. ;;测试
    
15. (defun c:tt ()
    
16.   (setq ss1 (ssget))
    
17.   (setq ss2 (ssget))
    
18.   (setq ss3 (ssget))
    
19.   (setq ss (ssu (list ss1 ss2 ss3)))
    
20. )
    

<br /> (defun ssU (sslst / ss a)<br />   (defun ss2lst (ss / i lst)<br />     (setq i -1)<br />     (while (setq e (ssname ss (setq i(1+ i))))<br />        (setq lst (cons e lst))<br />     )<br />   )<br />   (setq ss (ssadd))<br />   (foreach x sslst(if (setq a (ss2lst x))(foreach y a (ssadd y ss))))<br />   ss<br /> )<br /> ;;测试<br /> (defun c:tt ()<br />   (setq ss1 (ssget))<br />   (setq ss2 (ssget))<br />   (setq ss3 (ssget))<br />   (setq ss (ssu (list ss1 ss2 ss3)))<br /> )<br />

winabcd

合并两个选择集的方法很多，楼主提出的问题主要是因为他在主函数与子函数中用了同样的变量名来传递数据，并在子函数中改变了其中一个变量的值（SS2），这样的改变会被返回到主函数中，所以他在主函数中发现选择集（SS2）也发生了变化。

LADESIGNER

最初由 winabcd 发布
[B]合并两个选择集的方法很多，楼主提出的问题主要是因为他在主函数与子函数中用了同样的变量名来传递数据，并在子函数中改变了其中一个变量的值（SS2），这样的改变会被返回到主函数中，所以他在主函数中发现选择集（S... [/B]

你最好测试一下再发表意见,绝对不是这个原因.

XYP的新函数结果正确.决定还是用COMMAND了.

aeo

问题的关键是:
ssadd ssdel ,是不要赋值的(址传递)

(setq ss(ssadd e ss))和(ssadd e ss) 效果相同.