nmdboby 发表于 2012-5-21 09:52:07

查找圆周围有没有圆

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

革天明 发表于 2012-5-21 10:18:11

不会，期待高手

Andyhon 发表于 2012-5-21 11:19:29

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

革天明 发表于 2012-5-21 11:43:06

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

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

gzxl 发表于 2012-5-21 11:51:58

参照顾版的

(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 发表于 2012-5-21 14:06:42

本帖最后由 nmdboby 于 2012-5-21 14:09 编辑

Andyhon 发表于 2012-5-21 11:19 http://bbs.mjtd.com/static/image/common/back.gif
如有则记录下其圆心坐标及半径
记录的格式有示例吗?

Andyhon长老您好！
最好就像天明兄的那样。谢谢！
页: [1]
查看完整版本: 查找圆周围有没有圆