CAD vba二次开发 填充圆有关问题

CAD vba二次开发 填充圆问题
有一个8寸的圆 有一个矩形 
 
现在把这个小矩形 填充这个圆 直到填满为止 

备注:每两个矩形之间间隔可以设置

------解决方案--------------------
一直画就可以了阿,用selectionset看看新的矩形又没有和圆边界相交。

如果是我我就从原点开始,rotation 0,然后一直画,直到相交。然后像北或者南增加一个offset继续画
------解决方案--------------------
你哪不会阿,就是按照一个一个做就好了阿


------解决方案--------------------
啊 能发段代码啊,我也遇到这个问题了,头大
------解决方案--------------------
感觉像是用板砖堵圆门。