计算圆的个数

我画了N个圆。例如：5个10cm的圆，5个5cm的圆。
窗体上有一个文本框，运行时，在TEXT中输入圆的直径，弹出一个MSGBOX，显示“N个圆”
提供代码。谢谢！

解决方案 »

  1.   

    你可以参考ACAD的做法，每个对象的所有属性都记录在一个属性表里，需要时从这个表里查找数据。
      

  2.   

    这个不是很复杂！毕竟还知道圆的半径，比我的红眼识别简单多了
    从一点开始按照圆的公式x^2+y^2=r^2来看是不是都是黑色，如果是，那就是圆了
      

  3.   

    我的意思是：一幅图画里画了N个圆，直径不同，现在求一程序，能自动判别圆的直径，并统计它的数目。ACAD的做法具体怎样。希望高手指点，不吝赐教。谢谢！
      

  4.   

    To thirdapple：你的红眼识别是什么，请指点一、二。
      

  5.   

    刚刚翻书看到，Hough变换对圆也很有效，你可以看看
      

  6.   

    Hough变换不太懂，哪本书里有？
      

  7.   

    看了“从一点开始按照圆的公式x^2+y^2=r^2来看是不是都是黑色，如果是，那就是圆了”一句，好像明白了点什么。可惜的是，VB中的坐标不是用象素表示的。(1,1) (4,4) 在VB中重合为一个点。
      

  8.   

    To Fnems(Fnems)
      .ScaleMode = vbPixels
      

  9.   

    回复人： thirdapple(陨落雕) ( ) 信誉：107  非常感谢您的指教！！
      

  10.   

    To thirdapple(陨落雕）
    ”.ScaleMode = vbPixels“这属性是哪个对象的？