[求助]：請教:怎樣判斷兩個選擇集是否相等?

taner · 发表于 2005-10-20 21:55:13

我也覺得XYP版主的想法不錯,不知道能否將SSUNION 的源碼公開,供學習一下.

xyp1964 · 发表于 2005-10-20 22:29:43

最初由 taner 发布
[B]我也覺得XYP版主的想法不錯,不知道能否將SSUNION 的源碼公開,供學習一下. [/B]

已经给出源码了：
[php](command "select" ss1 ss2 "")[/php]
源码：

[FONT=courier new];;;ss1 + ss2 选择集之和
;;;方式 : (ssunion ss1 ss2)
(defun ssunion (ss1 ss2 / hilite ss3)
(setq hilite (getvar "highlight"))
(setvar "highlight" 0)
(command "_.select" ss1 ss2 "")
(setq ss3 (ssget "p"))
(setvar "highlight" hilite)
ss3
)[/FONT]

taner · 发表于 2005-10-26 08:07:23

如:
(setq ss1 (ssget (list (cons 0 "LINE,ARC,*POLYLINE"))))
一些編輯指令改變ss1後,
現在接著創建第第二個選擇集,但是不想重複以下的指令.(創建ss1時,可能用了很多方式,如c,w等)
(setq ss2 (ssget (list (cons 0 "LINE,ARC"))))
而是想讓cad記住上次選擇的方式,即選擇的範圍是一樣大的,只是範圍內的實體變了.

請高手繼續出手!

eachy · 发表于 2005-10-26 18:49:57

(command ".select" ss1)

taner · 发表于 2005-10-26 20:34:27

老大,這樣不行啊
我要將這個選擇集賦給變量,以後要調用啊.比如,第一個選擇集選發LINE,ARC,POLYLINE,選擇方式用了c,w等方式,即:(setq ss1 (ssget (list (cons 0 "LINE,ARC,*POLYLINE"))))
然後,對ss1作了編輯,即SS1變化了
現要創建第二個選擇集,選擇範圍和SS1相同,只是這次只要line了,並要將選擇集賦給變量ss2

狂刀 · 发表于 2005-10-26 20:47:00

ssnamex

taner · 发表于 2005-10-26 21:41:15

狂刀先生,兄弟我還是沒弄明白,請麻煩一下,編幾行代碼,如何?謝謝先!

狂刀 · 发表于 2005-10-26 22:04:34

cad 帮助已经说的很清楚了。你要是没有中文帮助，就下载一个

eachy · 发表于 2005-10-26 22:59:13

(command ".select" ss1)
(setq ss2 (ssget "P" '((0 . "line"))))

taner · 发表于 2005-10-27 00:17:49

如果是這樣呢?
(setq ss1 (ssget (list (cons 0 "LINE,ARC"))))
而ss2裏我要的是polyline.

eachy · 发表于 2005-10-27 00:23:19

最初由 taner 发布
[B]如果是這樣呢?
(setq ss1 (ssget (list (cons 0 "LINE,ARC"))))
而ss2裏我要的是polyline. [/B]

不知道你这两个选择集什么关系？既然ss1里没有选择 polyline ，那需要的时候当然要重新选择或者使用 x 选项，这和 ss1 有什么关系？
(setq ss2 (ssget '((0 . "*polyline"))))

taner · 发表于 2005-11-16 13:59:03

最初由 xyp1964 发布
[B]
已经给出源码了：
[php](command "select" ss1 ss2 "")[/php]
源码：
[CODE][FONT=... [/B]

明经上找的

;;选择集合并[oldss-原选择集 ss-被合并的选择集]
(defun yad_ssadd(oldss ss / n)
  (setq n -1)
  (repeat (sslength ss)
(ssadd (ssname ss (setq n (1+ n))) oldss)
  )
  oldss
)

xyp1964 · 发表于 2005-11-16 17:57:35

最初由 taner 发布
[B]

明经上找的

;;选择集合并[oldss-原选择集 ss-被合并的选择集]... [/B]

[FONT=courier new](defun yad_ssadd (oldss ss / n)
(command "_.select" oldss ss "")
(setq oldss (ssget "P"))
oldss
)[/FONT]

狂刀 · 发表于 2005-11-16 18:32:07

这样就可以了

(defun yad_ssadd (oldss ss / n)
(command "_.select" oldss ss "")
(ssget "P")
)

另：
taner 可试试看：
其实按我的习惯是不这么做的（步骤有点烦），不过这么写比较简单

(setq ss (ssget ))
(setq ssline (ssget "p" '((0 . "LINE,ARC"))))
(command ".select" ss "")
(setq sspoly (ssget "p" '((0 . "*POLYLINE"))))
(command ".select" ss "")
(setq ssCIR (ssget "p" '((0 . "CIRCLE,ELLIPSE"))))

taner · 发表于 2005-11-17 00:04:34

在(command "pedit" "M" ss "" "j" pc "")
   (command "pedit" "M" ss "" "Y" "j" pc "")
这两句前需要加一个条件判断,怎么加?
[PHP](defun c:xx (/ z pc ss)
  (setq z (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (initget 5)
  (setq pc (getdist "\n请输入模糊值:"))
  (if (setq ss (ssget '((-4 . "<or") (-4 . "<and")
         (0 . "line,arc")
         (-4 . "and>")
         (-4 . "<and")
         (0 . "*polyline")
         (70 . 0)
         (-4 . "and>")
         (-4 . "or>")
      )
         )
   )
(if (条件语句)
   (command "pedit" "M" ss "" "j" pc "")
   (command "pedit" "M" ss "" "Y" "j" pc "")
)
  )
  (command "undo" "e")
  (setvar "cmdecho" z)
  (princ)

)[/PHP]

怎么没人理呢?达到的目的是将选中的线,弧,非闭合多义线聚合起来.
另外,不想将PC设为全局变量,怎样才能使PC具有记忆功能?

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

[求助] [求助]：請教:怎樣判斷兩個選擇集是否相等?

還沒解決的問題