[求助]：怎么得到与圆相交和在圆内的所有物体

snsj

怎么得到与圆相交和在圆内的所有物体？

newer

最初由 snsj 发布
[B]怎么得到与圆相交和在圆内的所有物体？ [/B]

提示你个思路，你把圆用“线”模拟出来，就可以使用ssget 了。

不过这里面有技巧，如果你模拟的误差大，折线数少，那么可能就会落下需要的实体，如果你模拟的足够精，又没有必要，浪费，而且这个足够“精”，你没有量把握。

先提示你到这，大家讨论下。

eachy

最初由 snsj 发布
[B]怎么得到与圆相交和在圆内的所有物体？ [/B]

干脆用 GetBoundingBox  的点选择，后面处理时再判断下

lsjjm

目前为止好像还没有更好方法--我也在xun zhao.
以前局部视图程序便包含了, 请参考:
...
  (setq na (entsel "\nSelect Boundary:")
        p1 (cadr na)
        na (car na))
  (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))
  )
  (vl-cmdf "erase" pg "")
  (setq ss (ssget "cp" pl))
...

心梦相随

我是用R14的写法。
将圆WMFOUT再WMFIN获得改多义线实体，其他的就没有什么困难的了

snsj

我原来想的方法和newer的差不多，总感觉有些局限性
[php]
(defun zzm(x y /)(cdr(assoc x(entget y))))
(setq ent(car(entsel"\n选择物体")))
(command "._polygon" "30" (zzm 10 ent) "c" (zzm 40 ent))
(setq ss(ssget "_cp"(acet-geom-vertex-list (entlast))))
[/php]

aeo

(setq ang 0) ;cencer->圆心 rad->半径
(repeat 30
(setq pt(polar center (setq ang(+ ang(/ 6.28 30))) rad))
(setq lst(cons pt lst))
)