[求助]：如何清空一个圆内的所有物体

云中人

高手请帮忙:
要把圆内所有的物体全部不要啊.工作量顶大的,要把每个圆内相交的和里面的全部ERASE.
谢谢

lsjjm

依精度取圆上若干点, 以这些点为多边形建立选择集------参考论坛有关贴子.

云中人

最初由 lsjjm 发布
[B]依精度取圆上若干点, 以这些点为多边形建立选择集------参考论坛有关贴子. [/B]

老大,还要TRIM,可以帮忙告诉我如何做好吗,我什么都不懂

自由的鱼

最初由 云中人 发布
[B]
老大,还要TRIM,可以帮忙告诉我如何做好吗,我什么都不懂 [/B]

trim可以用EXTRIM

zhang8755

用4楼所说的，extrim,在ET工具里有

wkai

aeo斑竹有一个很方便的程序可以下载，搜索一下论坛。

云中人

最初由 wkai 发布
[B]aeo斑竹有一个很方便的程序可以下载，搜索一下论坛。 [/B]

老大,我找拉,是太多拉,还是请帮帮忙.

lsjjm

Try this:
[php]
(defun c:test (/ pl)
  (setq na (car (entsel "\nSelect Circle: ")))
  (vl-cmdf "divide" na 60)
  (setq pg (ssget "x" '((0 . "POINT"))))
  (setq n 0)
  (while (< n (sslength pg))
    (setq pl (append pl (list (cdr (assoc 10 (entget (ssname pg n)))))))
    (setq n (1+ n))
  )
  (setq ss (ssget "cp" pl))
  (vl-cmdf "erase" pg ss "")
  )
[/php]

xiaping

最初由 lsjjm 发布
[B]Try this:
[php]
(defun c:test (/ pl)
  (setq na (car (entsel "\nSelect Circle: ")))
  (vl-cmdf "divide" na 60)
  (setq pg (ssget "x" '((0 . "POINT"))))
  (setq n 0)
  (while (< n (sslength pg))... [/B]

你的这个程序太厉害了，不仅删除了圆内地物体还把所有与圆沾边的物体包括圆一起删除了。

lijiao

还能删除与圆不沾边的图元。

lsjjm

最初由 xiaping 发布
[B]你的这个程序太厉害了，不仅删除了圆内地物体还把所有与圆沾边的物体包括圆一起删除了。[/B]

这是根据1楼楼主的要求编的呀!　如果不想删除圆也可以:
(vl-cmdf "erase" pg (ssdel na ss)  "")

陌生人

(setq pg (ssget "x" '((0 . "POINT"))))
有些不妥吧

xiaping

经试验还是要两次操作才能完成所提的要求。1、用llsjjm长老的程序删除圆内的物体，程序中的(setq ss (ssget "cp" pl)) 可改为(setq ss (ssget "wp" pl)) 。2、用ET工具中的特定边界剪切。

云中人

谢谢,,好羡慕

lsjjm

最初由 陌生人 发布
[B](setq pg (ssget "x" '((0 . "POINT"))))
有些不妥吧 [/B]

如何不妥?