如何检查直线是否断开（寻找开口）

xskfq

改了，不行

xskfq

命令: tt
选择对象: 指定对角点: 找到 7 个
选择对象:
10
10
10
10
10
10
10
10
10
10

flyfox1047

cable2004 发表于 2013-11-26 23:19
改成试试(= (sslength(ssget "C" p1 p1)) 1)

不行的，Z版应该不会犯这种错误吧

xyp1964

xskfq

xyp1964 发表于 2013-11-26 23:48

就是这种效果

xskfq

ZZXXQQ 发表于 2013-11-26 22:42

1.没解决排除圆的情况。
2.没解决，标记圆被选中情况

ljpnb

2. 
   
3. (defun c:tt ()
   
4.   (if (setq ss (ssget '((0 . "LINE"))))
   
5.     (progn
   
6.       (setq i -1)
   
7.       (repeat (sslength ss)
   
8.         (setq K1 T
   
9.               K2 T
   
10.         )
    
11.         (setq ent (entget (ssname ss (setq i (1+ i))))
    
12.               p1  (cdr (assoc 10 ent))
    
13.               p2  (cdr (assoc 11 ent))
    
14.         )
    
15.         (if (setq ss1 (ssget "F" (list p1 p2) '((0 . "CIRCLE"))))
    
16.           (progn
    
17.             (setq ent1 (entget (ssname ss1 0)))
    
18.             (setq p3 (cdr (assoc 10 ent1)))
    
19.             (setq l1 (distance p1 p3)
    
20.                   l2 (distance p2 p3)
    
21.             )
    
22.             (if        (< l1 l2)
    
23.               (setq K1 nil)
    
24.               (setq K2 nil)
    
25. 
    
26.             )
    
27.           )
    
28.         )
    
29.         (if (and (= (sslength (ssget "C" p1 p1)) 1) k1)
    
30.           (command "CIRCLE" p1 10)
    
31.         )
    
32.         (if (and (= (sslength (ssget "C" p2 p2)) 1) k2)
    
33.           (command "CIRCLE" p2 10)
    
34.         )
    
35.       )
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )
    

<br /> (defun c:tt ()<br />   (if (setq ss (ssget '((0 . "LINE"))))<br />     (progn<br />       (setq i -1)<br />       (repeat (sslength ss)<br />         (setq K1 T<br />               K2 T<br />         )<br />         (setq ent (entget (ssname ss (setq i (1+ i))))<br />               p1  (cdr (assoc 10 ent))<br />               p2  (cdr (assoc 11 ent))<br />         )<br />         (if (setq ss1 (ssget "F" (list p1 p2) '((0 . "CIRCLE"))))<br />           (progn<br />             (setq ent1 (entget (ssname ss1 0)))<br />             (setq p3 (cdr (assoc 10 ent1)))<br />             (setq l1 (distance p1 p3)<br />                   l2 (distance p2 p3)<br />             )<br />             (if        (< l1 l2)<br />               (setq K1 nil)<br />               (setq K2 nil)<br /> <br />             )<br />           )<br />         )<br />         (if (and (= (sslength (ssget "C" p1 p1)) 1) k1)<br />           (command "CIRCLE" p1 10)<br />         )<br />         (if (and (= (sslength (ssget "C" p2 p2)) 1) k2)<br />           (command "CIRCLE" p2 10)<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

llsheng_73

(defun c:tt(/ ss i ob p a)
  (if(setq ss(ssget '((0 . "*LINE"))))
    (progn (setq i -1 p nil)
      (repeat (sslength ss)
        (setq p(append p(list(vlax-ename->vla-object(ssname ss(setq i(1+ i))))))))
      (foreach o p
        (setq a(list(vlax-curve-getStartPoint o)(vlax-curve-getendPoint o)))
        (foreach b a
          (if(and(null(vl-remove'nil(mapcar'(lambda(e)(if(vlax-curve-getdistatpoint e b)b))(vl-remove o p))))
                 (null(ssget"F"(list b'(-1e30 -1e30))'((0 . "circle")))))(command "CIRCLE" b 10))))
        ))
  (princ))

xskfq

cable2004 发表于 2013-11-26 21:52
(defun c:tt ( / a c1 ent ent1 i p1 p2 r1 ss sslast x1)
  (setq sslast (ssadd))
  (if (setq ss  ...

没成功，加油，继续努力！

xskfq

ljpnb 发表于 2013-11-27 16:36

没成功，加油，继续努力！