【求助】使用边界生成命令"boundary"如何判断边界是否已经生成，避免重复？

我来看MM的

RT:使用边界生成命令(command "boundary")如何判断边界是否已经生成，避免重复？求给个思路！当第一次生成边界后，第二次使用(command "boundary")在同一个边界内，能判断之前是否已经生成过边界并提示！

我来看MM的

类似效果如图！求思路！

Gu_xl

在同一个"boundary"命令里，他自己会判断是否重复！
(command "boundary" p1 p2 p3 ...)

我来看MM的

Gu_xl 发表于 2014-6-10 11:26
在同一个"boundary"命令里，他自己会判断是否重复！
(command "boundary" p1 p2 p3 ...)

可能我说得不够清楚，我的意思是，当生成一次边界后，我们再重新输入命令boundary去生成边界，然后判断以前是否生成过边界？也可以相当于判断是否有重叠图元

Gu_xl

我来看MM的 发表于 2014-6-10 12:22
可能我说得不够清楚，我的意思是，当生成一次边界后，我们再重新输入命令boundary去生成边界，然后判断以 ...

为什么非要给自己找麻烦？

我来看MM的

我想知道这个判断功能的实现思路是什么？

我来看MM的

Gu_xl 发表于 2014-6-10 12:34
为什么非要给自己找麻烦？

不是给自己找麻烦，麻烦G版帮忙看下楼下我附的gif

llsheng_73

用最后BUNNDARY得到的多线段顶点坐标进行SSGET"f"可以把和它一样的多线段找出来

edata

1. (defun sk_vertex(ent / x)(mapcar 'cdr (vl-remove-if-not '(lambda(x)(= 10 (car x)))(entget ent))))
   
2. (defun sk_equal_handent(ent1 ent2)(/=(cdr(assoc 5 (entget ent1)))(cdr(assoc 5 (entget ent2)))))
   
3. (defun c:tt(/ p1 en lst)
   
4.   (if(setq p1(getpoint))
   
5.     (progn
   
6.       (setq en1(entlast))
   
7.       (command "-BOUNDARY" p1 "")
   
8.       (setq en(entlast))
   
9.       (if(sk_equal_handent en1 en)
   
10.         (progn
    
11.           (setq lst (sk_vertex en))
    
12.           (entdel en)
    
13.           (if (setq ss(ssget "wp" lst '((0 . "text")(8 . "text"))))
    
14.             (alert "存在此类型")
    
15.             (entmake (list '(0 . "TEXT")(cons 72 1)(cons 73 2) (cons 1 "客厅")(cons 8 "text")(cons 7 "标注100") (cons 10 p1)(cons 11 p1) (cons 40 80)))
    
16.             )
    
17.           )
    
18.         )
    
19.       )
    
20.     )
    
21.   )

(defun sk_vertex(ent / x)(mapcar 'cdr (vl-remove-if-not '(lambda(x)(= 10 (car x)))(entget ent))))<br /> (defun sk_equal_handent(ent1 ent2)(/=(cdr(assoc 5 (entget ent1)))(cdr(assoc 5 (entget ent2)))))<br /> (defun c:tt(/ p1 en lst)<br />   (if(setq p1(getpoint))<br />     (progn<br />       (setq en1(entlast))<br />       (command "-BOUNDARY" p1 "")<br />       (setq en(entlast))<br />       (if(sk_equal_handent en1 en)<br />         (progn<br />           (setq lst (sk_vertex en))<br />           (entdel en)<br />           (if (setq ss(ssget "wp" lst '((0 . "text")(8 . "text"))))<br />             (alert "存在此类型")<br />             (entmake (list '(0 . "TEXT")(cons 72 1)(cons 73 2) (cons 1 "客厅")(cons 8 "text")(cons 7 "标注100") (cons 10 p1)(cons 11 p1) (cons 40 80)))<br />             )<br />           )<br />         )<br />       )<br />     )<br />   )

我来看MM的

llsheng_73 发表于 2014-6-10 14:14
用最后BUNNDARY得到的多线段顶点坐标进行SSGET"f"可以把和它一样的多线段找出来

多谢，思路很正确，解决问题了！