删除圆内所有对象

不会游泳的鱼

如题，求一程序，删除（非裁剪）圆内所有对象，E派工具箱里有这一程序，机器配置不是很高，2011加载工具箱有点卡，所以求单独的一程序，格式无所谓，能用就行。

革天明

(defun c:scc ()
     (setq en (car (entsel)))
     (setq pt (cdr (assoc 10 (entget en))))
     (setq r (cdr (assoc 40 (entget en))))
     (setq circle_list (list))
     (setq i 0)
     (repeat 360
       (setq circle_list
             (append (list (polar pt (* (1+ i) (/ 1 360.0) pi) r))
                     circle_list
             )
       )
       (setq i (1+ i))
     )
     (setq ss (ssget "WP" circle_list))
     (command "erase" ss "")
   )
不能全部删除，抛个砖吧

yoyoho

(defun c:scc2 ()
     (setq en (car (entsel)))
     (setq circle_list (list))
     (setq circle_list (acet-geom-object-point-list en 0.1))
     (setq ss (ssget "WP" circle_list))
     (command "erase" ss "")
   )

革天明

yoyoho 发表于 2012-10-20 23:45
(defun c:scc2 ()
     (setq en (car (entsel)))
     (setq circle_list (list))

这是什么函数？acet-geom-object-point-list

yoyoho

老实说我也不知道,
只是参照别人写的程序用法.
必须安装EXPRESS,才能使用acet-geom-object-point-list函数.

Andyhon

观察返回值来理解 acet-geom-object-point-list ...
=============
Command: CIRCLE
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 0,0
Specify radius of circle or [Diameter]: 9

Command: (acet-geom-object-point-list (entlast) 1)
((9.0 0.0 0.0) (5.22222 7.32997 0.0) (-2.93964 8.50638 0.0) (-8.63366 2.54164
0.0) (-7.07967 -5.55683 0.0) (0.417751 -8.9903 0.0) (7.56446 -4.87636 0.0) (9.0
-2.20429e-015 0.0))

zyhandw

那是不是可以这么理解啊：acet-geom-object-point-list仅得到8个点的坐标，是不是还不如革天明写的那个啊，毕竟循环得到了360个坐标点

zyhandw

试了下，还不能那么理解呢，革天明那个虽然循环了360次，效果并不如yoyoho提供的方法好！不知是何故

mandala

把圆直接改为多义线，然后用删除多义线内所有图元的lsp。