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

秋枫 · 发表于 2002-9-8 23:24:00


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

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

copy


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

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

秋枫 · 发表于 2002-9-8 23:41:00

Command: (defun ++ ( x ) (set x (+ 1 (eval x))))
++
Command: (setq c 1)
1
Command: (++ 'c)
2
Command: !c
2
一开始用(setq x 1)来测试，试不出来。可能是变量名冲突。

秋枫 · 发表于 2002-9-9 10:30:00

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

copy


(defun ++ (_++_AutoIncSymbol)
  (set _++_AutoIncSymbol (+ 1 (eval _++_AutoIncSymbol)))
)

这个函数其实是等价于
(++ 'c) (setq c (1+ c)) (set 'c (1+ c))
因为你不能用
(setq -1 (1+ -1))
所以
(++ -1)
也不对。
[此贴子已经被作者于2002-9-9 10:26:52编辑过]

龙龙仔 · 发表于 2002-9-9 11:05:00

(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"))
)

秋枫 · 发表于 2002-9-9 11:20:00

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

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

发表回复

精选推荐

浏览过的版块