[求助]怎样构造这个实体选择集

sirius

一个封闭图形，由若干直线、圆弧任意首尾相连组合而成。

由用户选择两个实体，则就确定了方向（顺、逆时针）

按这个方向排序，构造一个实体选择集SS包含全部实体

这个实体前两项就是用户先选择的那两个实体

请问各位高手这个AutoLISP程序怎么编呢?  鞠躬感谢！

sirius

继续等待援助…………

sirius

还在等待…………

danxingpen

构造一个实体选择集SS包含全部实体???
不理解什么意思了?选择所有实体???

ZZXXQQ

编程思路：

1、选择两个实体后；
2、取得实体的两个端点；
3、比较实体的端点，用distance函数判断哪两个端点重合，从而知道哪个端点是开始点；
4、记录开始点；
5、在未点用（ssget "c" <未点> <未点>)得到选择集；
6、判断选择集个数是否等于2，如果不是，程序报错退出。如果选择集个数为1，选择搜索结束。
7、从选择集中去除前面最未的选择实体，并将剩下的实体加入前面实体选择集中；
8、用distance函数判断新选择集相联点，从而知道未点；
9、进而判断未点是否与记录点重合，如重合线条封闭，选择搜索结束。
10、重复第5步。

sirius

不是很懂ZZXXQQ的提示 自己编了一个  可以实现了 谢谢帮忙的各位

3. (defun c:LC ()
4.    (setq sa (ssget "x"))
5.    (setq sx (ssget))
6.    (setq l '(0 . "LINE"))
7.    (setq ar '(0 . "ARC"))
8.    (setq ena (ssname sx 0))
9.    (setq ena_data (entget ena))
10.    (setq tya (assoc 0 ena_data))
11.   (if (or (equal tya l) (equal tya ar))
12.    (progn
13.    (setq ss (ssadd))
14.    (setq enb (ssname sx 1))
15.    (ssdel ena sa)
16.    (ssdel enb sa)
17.    (ssadd ena ss)
18.    (ssadd enb ss)
19.    (setq exa (VLAX-ENAME->VLA-OBJECT ena))
20.    (setq spa (vlax-safearray->list(vlax-variant-value(VLA-GET-STARTPOINT exa))))
21.    (setq epa (vlax-safearray->list(vlax-variant-value(VLA-GET-ENDPOINT exa))))
22.    (setq enb_data (entget enb))
23.    (setq exb (VLAX-ENAME->VLA-OBJECT enb))
24.    (setq spb (vlax-safearray->list(vlax-variant-value(VLA-GET-STARTPOINT exb))))
25.    (setq epb (vlax-safearray->list(vlax-variant-value(VLA-GET-ENDPOINT exb))))
26.    (cond
27.      ((equal spa spb 0.1) (setq fp epa) (setq cp epb))
28.      ((equal spa epb 0.1) (setq fp epa) (setq cp spb))
29.      ((equal epa spb 0.1) (setq fp spa) (setq cp epb))
30.      ((equal epa epb 0.1) (setq fp spa) (setq cp spb))
31.     )
32.    (setq q 0)
33.    (setq p (sslength sa))
34.    (repeat (sslength sa)
35.      (repeat p
36.          (setq enq (ssname sa q))
37.          (setq q (+ 1 q))
38.          (setq enq_data (entget enq))
39.          (setq exq (VLAX-ENAME->VLA-OBJECT enq))
40.          (setq spq (vlax-safearray->list(vlax-variant-value(VLA-GET-STARTPOINT exq))))
41.          (setq epq (vlax-safearray->list(vlax-variant-value(VLA-GET-ENDPOINT exq))))
42.          (if (equal spq cp 0.1) (progn (setq cp_l epq) (ssadd enq ss) (setq td enq)))
43.          (if (equal epq cp 0.1) (progn (setq cp_l spq) (ssadd enq ss) (setq td enq)))
44.      )
45.     (ssdel td sa)
46.     (setq cp cp_l)
47.     (setq q 0)
48.     (setq p (- p 1))
49.    )
50.   )
51.   (setq ss sx)
52. )
53. )

(defun c:LC ()    (setq sa (ssget "x"))    (setq sx (ssget))    (setq l '(0 . "LINE"))    (setq ar '(0 . "ARC"))    (setq ena (ssname sx 0))    (setq ena_data (entget ena))    (setq tya (assoc 0 ena_data))   (if (or (equal tya l) (equal tya ar))    (progn    (setq ss (ssadd))    (setq enb (ssname sx 1))    (ssdel ena sa)    (ssdel enb sa)    (ssadd ena ss)    (ssadd enb ss)    (setq exa (VLAX-ENAME->VLA-OBJECT ena))    (setq spa (vlax-safearray->list(vlax-variant-value(VLA-GET-STARTPOINT exa))))    (setq epa (vlax-safearray->list(vlax-variant-value(VLA-GET-ENDPOINT exa))))    (setq enb_data (entget enb))    (setq exb (VLAX-ENAME->VLA-OBJECT enb))    (setq spb (vlax-safearray->list(vlax-variant-value(VLA-GET-STARTPOINT exb))))    (setq epb (vlax-safearray->list(vlax-variant-value(VLA-GET-ENDPOINT exb))))    (cond      ((equal spa spb 0.1) (setq fp epa) (setq cp epb))      ((equal spa epb 0.1) (setq fp epa) (setq cp spb))      ((equal epa spb 0.1) (setq fp spa) (setq cp epb))      ((equal epa epb 0.1) (setq fp spa) (setq cp spb))     )    (setq q 0)    (setq p (sslength sa))    (repeat (sslength sa)      (repeat p          (setq enq (ssname sa q))          (setq q (+ 1 q))          (setq enq_data (entget enq))          (setq exq (VLAX-ENAME->VLA-OBJECT enq))          (setq spq (vlax-safearray->list(vlax-variant-value(VLA-GET-STARTPOINT exq))))          (setq epq (vlax-safearray->list(vlax-variant-value(VLA-GET-ENDPOINT exq))))          (if (equal spq cp 0.1) (progn (setq cp_l epq) (ssadd enq ss) (setq td enq)))          (if (equal epq cp 0.1) (progn (setq cp_l spq) (ssadd enq ss) (setq td enq)))      )     (ssdel td sa)     (setq cp cp_l)     (setq q 0)     (setq p (- p 1))    )   )   (setq ss sx) ) )