[求助]：两个选择集操作的问题？？

浪奔 · 发表于 2005-11-27 10:49:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

1.从一个选择集中提取所有的圆对象创建一个新的选择集？？

以下是我做的代码，但结果却是提取了整个数据库所有的圆，而不是上一个选择集中可见的圆对象。
(setq ss (ssget))
(setq ss1 (ssget "P" '((0 . "circle"))))

2.从一个选择集中删除所有的圆对象后创建一个新的选择集？？

哪位大侠指点一下？

ouyangsong · 发表于 2005-11-27 12:30:06

用
command "select" "r" SS1 ""
就可以吧

浪奔 · 发表于 2005-11-27 13:10:41

最初由 ouyangsong 发布
[B]用
command "select" "r" SS1 ""
就可以吧 [/B]

用command 不可以创建选择集吧？
应该用ssget,而且ssget,也没有"r"选择方法。

taner · 发表于 2005-11-27 14:28:39

最初由浪奔发布
[B]1.从一个选择集中提取所有的圆对象创建一个新的选择集？？

以下是我做的代码，但结果却是提取了整个数据库所有的圆，而不是上一个选择集中可见的圆对象。
(setq ss (ssget))
(setq ss1 (ssget "P" '((0 . "circ... [/B]

用XYP版主的函數搞定.http://www.xdcad.net/forum/showthread.php?s=&threadid=325268

(SSDIFF SS SS1)

xyp1964 · 发表于 2005-11-27 17:19:08

[FONT=courier new](defun c:test ()
(setq ss0 (ssget))
(if (and ss0 (setq ss1 (ssget "P" '((0 . "circle")))))
(setq ss2 (SSDIFF SS0 SS1))
)
)[/FONT]

浪奔 · 发表于 2005-11-28 10:00:38

SSDIFF函数

我下载不了啊，谁帮帮我？

xyp1964 · 发表于 2005-11-28 10:43:57

[FONT=courier new](defun c:test ()
(setq ss0 (ssget))
(if (and ss0 (setq ss1 (ssget "P" '((0 . "circle")))))
(progn
(command "select" ss0 "r" ss1 "")
(setq ss2 (ssget "P"))
)
)
ss2
)[/FONT]

taner · 发表于 2005-11-28 11:38:18

如此看來,版主的程序SSDIFF/SSUNION應該是這樣的了.
[php]
(defun ssdiff (ss1 ss2)
  (command "select" ss1 "r" ss2 "")
  (ssget "P")
)
(defun ssunion (ss1 ss2)
  (command "select" ss1 ss2 "")
  (ssget "P")
)
[/php]

ssinter應該等於(SS1+SS2)-(SS1-SS2)-(SS2-SS1),故
[php]
(defun ssinter (ss1 ss2)
(ssdiff (ssunion ss1 ss2)
      (ssunion (ssdiff ss1 ss2)
                     (ssdiff ss2 ss1)
      )
)
)
[/php]

xyp1964 · 发表于 2005-11-28 22:31:36

SSINTER

[FONT=courier new];;;sssel1 与 sssel2 选择集之交集 a+b和b+c,求b
;;;方式 : (setq ss3 (ssinter ss1 ss2))
(defun ssinter (sssel1 sssel2 / sssel3)
(command ".select" sssel1 "r" sssel2 "")
(command ".select" sssel1 "r" "p" "")
(setq sssel3 (ssget "p"))
sssel3
)[/FONT]

浪奔 · 发表于 2005-11-29 14:52:54

最初由 xyp1964 发布
[B][CODE](defun c:test ()
  (setq ss0 (ssget))
  (if (and ss0 (setq ss1 (ssget "P" '((0 . "circle")))))
(progn
   (command "select" ss0 "r" ss1 "")
   (setq ss2 (ssget "P... [/B]

[PHP]

大雪无痕 · 发表于 2005-12-12 19:38:01

有实用价值吗？

taner · 发表于 2005-12-12 20:50:38

最初由大雪无痕发布
[B]有实用价值吗？ [/B]

你是不是专门灌水的?

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：两个选择集操作的问题？？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：两个选择集操作的问题？？

Re: Re: [求助]：两个选择集操作的问题？？