删除圆内的线

357785513

大家好,我有一个图里有很多圆,可圆里有很多线,我想选返回圆把圆里的线全都删除,有没有什么更好的办法呀
因为他们是块,后来被人炸开了,现在只要圆就行了.而这个块又到处都有,且又被炸开了,各位大帅看看有没有什么办

Andyhon

只在 A 开头的图层 ?
直径范围 > 3828 或 what

问这些是关系到 滤取/排除 的条件式
关系到程序效率,特别是在数量大的时候 ....

Gu_xl

1. (defun c:tt(/ getcirpts ssgetcir s en ss)
   
2.   ;;;计算园的分割点 en 园的图元名 n 园的分割段数
   
3.   (defun getcirpts (en n / i d pl)
   
4.     (setq i 0 d (/ pi n 0.5))
   
5.     (repeat n
   
6.       (setq pl (cons (vlax-curve-getpointatparam en i) pl)
   
7.             i (+ i d)
   
8.             )
   
9.       )
   
10.     (reverse pl)
    
11.     )
    
12.   ;;;参数 cir 园的图元名 filter 过滤表 n 园的分割段数
    
13.   (defun ssgetcir (cir filter n)
    
14.     (if filter
    
15.       (ssget "wp" (getcirpts cir n) filter)
    
16.       (ssget "wp" (getcirpts cir n))
    
17.       )   
    
18.     )
    
19.   ;;;选择的园要在图形可见范围内
    
20.   (setq s (ssget '((0 . "circle"))))
    
21.   (if s
    
22.     (repeat (setq k (sslength s))
    
23.       (setq en (ssname s (setq k (1- k))))
    
24.       (if (setq ss (ssgetcir en '((0 . "line")) 20)) ;_ 过滤表可自行修改
    
25.         (command "erase" ss "")
    
26.         )
    
27.       )
    
28.     )
    
29.   )
    

(defun c:tt(/ getcirpts ssgetcir s en ss)<br />   ;;;计算园的分割点 en 园的图元名 n 园的分割段数<br />   (defun getcirpts (en n / i d pl)<br />     (setq i 0 d (/ pi n 0.5))<br />     (repeat n<br />       (setq pl (cons (vlax-curve-getpointatparam en i) pl)<br />             i (+ i d)<br />             )<br />       )<br />     (reverse pl)<br />     )<br />   ;;;参数 cir 园的图元名 filter 过滤表 n 园的分割段数<br />   (defun ssgetcir (cir filter n)<br />     (if filter<br />       (ssget "wp" (getcirpts cir n) filter)<br />       (ssget "wp" (getcirpts cir n))<br />       )    <br />     )<br />   ;;;选择的园要在图形可见范围内<br />   (setq s (ssget '((0 . "circle"))))<br />   (if s<br />     (repeat (setq k (sslength s))<br />       (setq en (ssname s (setq k (1- k))))<br />       (if (setq ss (ssgetcir en '((0 . "line")) 20)) ;_ 过滤表可自行修改 <br />         (command "erase" ss "")<br />         )<br />       )<br />     )<br />   )<br />

xshrimp

2. 
   
3. (defun gps->ss-2lst (ss / lst n)
   
4.   (if (= (type ss) 'PICKSET)
   
5.     (repeat (setq n (sslength ss))
   
6.      (setq lst (cons (ssname ss (setq n (1- n))) lst))
   
7.     )   
   
8.   );lst
   
9. )
   
10. (defun c:cc  ( / center0 entlst lll n oldosmode pt3 radius0)
    
11.   (prompt "\n清理圆内部线，一窗口搞定:")
    
12.   (setvar "osmode" 0)  
    
13.   (setq oldosmode (getvar "osmode") )     
    
14.   (foreach n (gps->ss-2lst (ssget '((0 . "CIRCLE"))))
    
15.       (setq entlst (entget n)
    
16.         center0 (cdr (assoc 10 entlst))
    
17.         radius0 (cdr (assoc 40 entlst))
    
18.         LLL 0.0
    
19.       )
    
20.     (command "_.erase" "wp" )
    
21.     (while (< lll 6.29)
    
22.       (setq pt3 (polar center0 lll (* radius0 0.9)))
    
23.       (command pt3)
    
24.       (setq lll (+ 0.2 lll))
    
25.     )
    
26.   (command "" "")   
    
27.   )
    
28.   (setvar "osmode" oldosmode)
    
29. )

<br /> (defun gps->ss-2lst (ss / lst n)<br />   (if (= (type ss) 'PICKSET)<br />     (repeat (setq n (sslength ss))<br />      (setq lst (cons (ssname ss (setq n (1- n))) lst))<br />     )    <br />   );lst<br /> )<br /> (defun c:cc  ( / center0 entlst lll n oldosmode pt3 radius0) <br />   (prompt "\n清理圆内部线，一窗口搞定:") <br />   (setvar "osmode" 0)  <br />   (setq oldosmode (getvar "osmode") )     <br />   (foreach n (gps->ss-2lst (ssget '((0 . "CIRCLE"))))<br />       (setq entlst (entget n) <br />         center0 (cdr (assoc 10 entlst))<br />         radius0 (cdr (assoc 40 entlst))<br />         LLL 0.0<br />       )<br />     (command "_.erase" "wp" ) <br />     (while (< lll 6.29) <br />       (setq pt3 (polar center0 lll (* radius0 0.9))) <br />       (command pt3) <br />       (setq lll (+ 0.2 lll)) <br />     ) <br />   (command "" "")   <br />   ) <br />   (setvar "osmode" oldosmode)<br /> )

戏男

真不错 呵呵 圆内的线也不多啊

357785513

三楼楼主的程序对于小于圆的直线来说真是非常棒,不过以下两种情况就不行了曾尝鼎一尝试
(if (setq ss (ssgetcir en '((0 . "line")(0 . "ARC")) 20))或 (if (setq ss (ssgetcir en '((0 . "line""line")) 20))
都不行

Gu_xl

357785513 发表于 2011-9-14 17:16
三楼楼主的程序对于小于圆的直线来说真是非常棒,不过以下两种情况就不行了曾尝鼎一尝试
(if (setq ss (ss ...

对于1楼的图形，3楼就是答案！对于6楼的图，就稍微复杂点，首先将选择方式 "wp" 要改为"CP",再将圆从选择集中剔除，或者"wP"选完后删掉选到的物体，再用 "F" 栏选，再将圆从选择集中剔除，再判断栏选选到的每图元是否落在园内，判断点是否在多边形内的相关代码明经都能搜到！自己再用用心，就能写出程序来了！
下面的代码，仅对删直线有效，对于其他类型实体，请参照自行修改！

1. (defun c:tt(/ getcirpts ssgetcir s en ss dxf ptincir-p lineincir-p SS->List)
   
2.   ;;;计算园的分割点 en 园的图元名 n 园的分割段数
   
3.   (defun getcirpts (en n / i d pl)
   
4.     (setq i 0 d (/ pi n 0.5))
   
5.     (repeat n
   
6.       (setq pl (cons (vlax-curve-getpointatparam en i) pl)
   
7.             i (+ i d)
   
8.             )
   
9.       )
   
10.     (reverse pl)
    
11.     )
    
12.   ;;;参数 cir 园的图元名 filter 过滤表 n 园的分割段数
    
13.   (defun ssgetcir (cir filter n / ss)
    
14.     (if filter
    
15.       (setq ss (ssget "cp" (getcirpts cir n) filter))
    
16.       (setq ss (ssget "cp" (getcirpts cir n)))
    
17.       )
    
18.     (ssdel cir ss)
    
19.     (if (> (sslength ss) 0)
    
20.       ss
    
21.       )
    
22.     )
    
23.   (defun dxf (ent i)
    
24.     (cond ((= (type ent) 'ename)
    
25.      (cdr (assoc i (entget ent)))
    
26.       )
    
27.    ((= (type ent) 'list)
    
28.     (cdr (assoc i ent))
    
29.     )
    
30.     ) ;_ if
    
31.   )
    
32.   ;;;判断点是否在园内
    
33.   (defun ptincir-p (cir pt / r cp d)
    
34.     (setq r (dxf cir 40)
    
35.    cp (dxf cir 10)
    
36.    )
    
37.     (or (< (setq d (distance cp pt)) r) (equal d r 0.0001))
    
38.     )
    
39.   ;;;判断直线是否在园内
    
40.   (defun lineincir-p (line cir)
    
41.     (and (ptincir-p cir (dxf line 10))
    
42.   (ptincir-p cir (dxf line 11))
    
43.   )
    
44.     )
    
45.   ;;;选择集->列表
    
46.   (defun SS->List (ss / i s)
    
47.     (if ss
    
48.       (repeat (setq i (sslength ss))
    
49. (setq s (cons (ssname ss (setq i (1- i))) s))
    
50.       )
    
51.     )
    
52.   )
    
53.   ;;;选择的园要在图形可见范围内
    
54.   (setq s (ssget '((0 . "circle"))))
    
55.   (if s
    
56.     (progn
    
57.       (setq s (ss->list s))
    
58.       (foreach cir s
    
59.       (if (setq ss (ssgetcir cir '((0 . "line")) 20))
    
60.         (progn
    
61.    (setq ss (ss->list ss))
    
62.    (foreach line ss
    
63.      (if (lineincir-p line cir) (entdel line))
    
64.      )
    
65.    )
    
66.         )
    
67. )
    
68.       )
    
69.     )
    
70. (princ)
    
71.   )
    

(defun c:tt(/ getcirpts ssgetcir s en ss dxf ptincir-p lineincir-p SS->List)<br />   ;;;计算园的分割点 en 园的图元名 n 园的分割段数<br />   (defun getcirpts (en n / i d pl)<br />     (setq i 0 d (/ pi n 0.5))<br />     (repeat n<br />       (setq pl (cons (vlax-curve-getpointatparam en i) pl)<br />             i (+ i d)<br />             )<br />       )<br />     (reverse pl)<br />     )<br />   ;;;参数 cir 园的图元名 filter 过滤表 n 园的分割段数<br />   (defun ssgetcir (cir filter n / ss)<br />     (if filter<br />       (setq ss (ssget "cp" (getcirpts cir n) filter))<br />       (setq ss (ssget "cp" (getcirpts cir n)))<br />       )<br />     (ssdel cir ss)<br />     (if (> (sslength ss) 0)<br />       ss<br />       )<br />     )<br />   (defun dxf (ent i)<br />     (cond ((= (type ent) 'ename)<br />      (cdr (assoc i (entget ent)))<br />       )<br />    ((= (type ent) 'list)<br />     (cdr (assoc i ent))<br />     )<br />     ) ;_ if<br />   )<br />   ;;;判断点是否在园内<br />   (defun ptincir-p (cir pt / r cp d)<br />     (setq r (dxf cir 40)<br />    cp (dxf cir 10)<br />    )<br />     (or (< (setq d (distance cp pt)) r) (equal d r 0.0001))<br />     )<br />   ;;;判断直线是否在园内<br />   (defun lineincir-p (line cir)<br />     (and (ptincir-p cir (dxf line 10))<br />   (ptincir-p cir (dxf line 11))<br />   )<br />     )<br />   ;;;选择集->列表<br />   (defun SS->List (ss / i s)<br />     (if ss<br />       (repeat (setq i (sslength ss))<br /> (setq s (cons (ssname ss (setq i (1- i))) s))<br />       )<br />     )<br />   )<br />   ;;;选择的园要在图形可见范围内<br />   (setq s (ssget '((0 . "circle"))))<br />   (if s<br />     (progn<br />       (setq s (ss->list s))<br />       (foreach cir s<br />       (if (setq ss (ssgetcir cir '((0 . "line")) 20)) <br />         (progn<br />    (setq ss (ss->list ss))<br />    (foreach line ss<br />      (if (lineincir-p line cir) (entdel line))<br />      )<br />    )<br />         )<br /> )<br />       )<br />     )<br /> (princ)<br />   )<br />

357785513

哦,毛塞敦开,受教了

sicky111

无法删除和圆相交的线段。

随风缘

要这么麻烦吗！快速选择不就可以了！