贴一个例程，选择集合并，兼问一个问题

秋枫

2. 
   
3. (defun ssunion (sslist)
   
4.   (mapcar '(lambda (x / c)
   
5.              (setq c -1)
   
6.              (repeat (sslength x)
   
7.                (ssadd (ssname x (++ 'c)) (car sslist))
   
8.              )
   
9.            )
   
10.           (cdr sslist)
    
11.   )
    
12.   (sslength (car sslist))
    
13. )
    

<br /> (defun ssunion (sslist)<br />   (mapcar '(lambda (x / c)<br />              (setq c -1)<br />              (repeat (sslength x)<br />                (ssadd (ssname x (++ 'c)) (car sslist))<br />              )<br />            )<br />           (cdr sslist)<br />   )<br />   (sslength (car sslist))<br /> )<br />

上述程序来自acadx.com
可能是贴程序的人粗心了, 没有给出++的实现方法。
我试着写一下：

2. 
   
3. (defun ++ ( x ) (set x (+ 1 (eval x))))
   

<br /> (defun ++ ( x ) (set x (+ 1 (eval x))))<br />

不对。各位能不能改一下，告诉我错在哪里。

秋枫

秋枫

Command: (defun ++ ( x ) (set x (+ 1 (eval x))))
++

Command: (setq c 1)
1

Command: (++ 'c)
2

Command: !c
2

一开始用(setq x 1)来测试，试不出来。可能是变量名冲突。

龙龙仔

秋枫

由于涉及到符号名，所以对参数有要求。　

2. 
   
3. (defun ++ (_++_AutoIncSymbol)
   
4.   (set _++_AutoIncSymbol (+ 1 (eval _++_AutoIncSymbol)))
   
5. )
   

<br /> (defun ++ (_++_AutoIncSymbol)<br />   (set _++_AutoIncSymbol (+ 1 (eval _++_AutoIncSymbol)))<br /> )<br />

这个函数其实是等价于
(++ 'c) <==> (setq c (1+ c)) <==> (set 'c (1+ c))
因为你不能用
(setq -1 (1+ -1))
所以
(++ -1)
也不对。

[此贴子已经被作者于2002-9-9 10:26:52编辑过]

龙龙仔

(defun UNION (A B /)
  (command "_.select" A B "")
  (setq A (ssget "p"))
)
(defun SUBTRACT        (A B /)
  (command "_.select" A "r" B "")
  (setq A (ssget "p"))
)
(defun INTERSECT (A B / C)
  (command "_.select" A "r" B "")
  (setq C (ssget "p"))
  (command "_.select" A "r" C "")
  (setq A (ssget "p"))
)

秋枫

你的方法是不错的。这个函数在“实用函数”有下载。但可能不是效率的问题,你的方法有一定的局限。见内[br]使用你的函数不能编写lisp透明命令。
不能在一个commmand系列中执行。
比如，
(command "_.pline")
(foreach pt plist1 (command pt))
...
(union ss1 ss2)
...
(foreach pt plist2 (command pt))
....
(command "") ; 退出pline命令。

龙龙仔

陈伯雄

秋枫