查找圆周围有没有圆

nmdboby

已知一圆心坐标，查找这坐标周围10MM范围内有没有圆孔？如有则记录下其圆心坐标及半径。请各位帮忙写个这样的程序。谢谢！

革天明

不会，期待高手

Andyhon

如有则记录下其圆心坐标及半径
记录的格式有示例吗?

革天明

Andyhon 发表于 2012-5-21 11:19
如有则记录下其圆心坐标及半径
记录的格式有示例吗?

不如定义为以下格式：
角度：符合条件圆的圆心与中心圆的角度
圆心：符合条件圆的圆心
半径：符合条件圆的半径
最后排序方式为：角度（0~360，从小到大排序）,圆心（符合条件圆的圆心与中心圆心间的距离，从小到大排序），符合投机倒把圆的半径，从小到大排列，输出到TXT或以表格显示在图上

gzxl

参照顾版的

(defun getGc_zj (Pt_center r / dis maxx maxy minx miny nn ob ob_n textstring x y)
   (setq x    (car Pt_center)
         minX (- x r)
         maxX (+ x r)
         y    (cadr Pt_center)
         minY (- y r)
         maxY (+ Y r)
         nn 0
         ob_n 0
         dis r
   )
   (setq ob (ssget "X" (list '(-4 . "<and") '(-4 . ">=,>=,*") (list 10 minX minY 0) '(-4 . "<=,<=,*")
                       (list 10 maxX maxY 0) '(0 . "*TEXT") '(-4 . "and>"))))

nmdboby

Andyhon 发表于 2012-5-21 11:19
如有则记录下其圆心坐标及半径
记录的格式有示例吗?

Andyhon长老您好！
最好就像天明兄的那样。谢谢！