[求助]请问如何实现点选闭合多义线获得ssget集？

hndwl

各位老师好:可能我前面说的不够清楚,我发一个图上去,图中全部是闭合的多断线(也可能是二维多段线),我想实现的是我选择白色的多断线时自动生成一个选择集,此选择集要包括白色线内的所有线,也就是2、3、4闭合线，不能包括5闭合线，我用ssget命令的很多参数都无法实现，用WP参数时4闭合线会漏选，用CP参数时又会多选了5闭合线，请各位老师多指教。拜托大家了，急等……

hndwl

各位老师好:可能我前面说的不够清楚,我发一个图上去,图中全部是闭合的多断线(也可能是二维多段线),我想实现的是我选择白色的多断线时自动生成一个选择集,此选择集要包括白色线内的所有线,也就是2、3、4闭合线，不能包括5闭合线，我用ssget命令的很多参数都无法实现，用WP参数时4闭合线会漏选，用CP参数时又会多选了5闭合线，请各位老师多指教。拜托大家了，急等……

ZZXXQQ

;下面函数通过选择封闭线建立线内（不包括本身）选择集。

2. (DEFUN C:TT ()
3. (IF (AND (PRINC "\nSelect a Polyline 选择多段线 :")
4.            (SETQ SS (SSGET '((0 . "LWPOLYLINE") (70 . 129))))) (PROGN
5.   (SETQ EN (SSNAME SS 0)
6. ENT (ENTGET EN)
7. PLST (LIST))
8.   (FOREACH N ENT (IF (= (CAR N) 10) (SETQ PLST (CONS (CDR N) PLST))))
9.   (SETQ PLST (REVERSE PLST))
10.   (IF (SETQ SS1 (SSGET "WP" PLST '((0 . "LWPOLYLINE") (70 . 129))))
11.    (SETQ SS1 (SSDEL EN SS1))
12.   )
13. ))
14. (SSLENGTH SS1)
15. )

复制代码

无痕

(ssadd 外框多义线实体 wp选集) 不就是楼主的要求了么？呵呵

hndwl

我试了不行,和外围线有重合点的选不上.

ZZXXQQ

hndwl发表于2007-9-11 21:02:00我试了不行,和外围线有重合点的选不上.

看看贴子说明，程序中将外围线从选择集中去除了。只要将

   (IF (SETQ SS1 (SSGET "WP" PLST '((0 . "LWPOLYLINE") (70 . 129))))
    (SETQ SS1 (SSDEL EN SS1))
   )
改成

  (SETQ SS1 (SSGET "WP" PLST '((0 . "LWPOLYLINE") (70 . 129))))
就可以取得4个封闭体了。

hndwl

ZZXXQQ发表于2007-9-11 22:21:00看看贴子说明，程序中将外围线从选择集中去除了。只要将   (IF  (SETQ SS1 (SSGET  \"WP\" PLST '((0 . \"LWPOLYLINE\")  (70 . 129))))  

ZZXXQQ老兄:我试了确实不行啊,无论怎样都只能取到2的线,3和4线取不到啊.麻烦您再试一下.

无痕

看来还是把plst向外偏移

xgr

对，只有把多段线向外偏移一定的距离，再过滤掉与偏移多段线相交的多段线。

laoxie_198

(defun c:fb()
(setq zxzj (ssget))

(setq zdm (ssname zxzj 0))

(setq tym (entget zdm))
    (setq zdlist nil)
    (setq dh 0);点号初始化
    (setq n 0)
    (while (/= (nth n tym ) nil)
      (progn
 (if (= (car (nth n tym )) 10)
   (progn
     (setq dh (+ dh 1))
     (setq zdlist (append zdlist (list (list (cadr (nth n tym)) (caddr (nth n tym))))))
     (setq zb (list dh (list (cadr (nth n tym)) (caddr (nth n tym)))))
     ;(princ zb zdwj1)
     ;(princ "\n" zdwj1)
   );end progn
 );end if
      );end progn
      (setq n (+ n 1))
    );end while，坐标提取及坐标表构建完毕。

(setq jzx (ssget "cp" zdlist '((0 . "LWPOLYLINE") (70 . 1))));界址线选择集
)