2,506
社区成员
发帖
与我相关
我的任务
分享cad vba 二次开发 填充圆问题
在 宏 内编写代码 ，先画一个圆，在该圆内画一个任意的图形，
比如：矩形。
然后在圆内填充该图形，直至填满为止 ，每个图形之间可以设置间距
最好是有代码提示
谢谢 ！ 大家接起来
比如：矩形。
然后在圆内填充该图形，直至填满为止 ，每个图形之间可以设置间距
最好是有代码提示
谢谢 ！ 大家接起来
...全文
请发表友善的回复…
发表回复
tulyroll 2011-07-06
- 打赏
- 举报
用 AotoLisp
clear_zero 2011-06-28
- 打赏
- 举报
好像以前有人问过
就是慢慢填，找个起点然后一路画过去。用selectionset看看和圆是否相交。相交了再作临界判断如果你的矩形不需要同样大小就用region来找到合适的大小
具体代码没有特殊的，就是画一个矩形，然后根据offset一直画一直画。
autocad vba的帮助做的非常好，具体代码一查就找到了
就是慢慢填，找个起点然后一路画过去。用selectionset看看和圆是否相交。相交了再作临界判断如果你的矩形不需要同样大小就用region来找到合适的大小
具体代码没有特殊的，就是画一个矩形，然后根据offset一直画一直画。
autocad vba的帮助做的非常好，具体代码一查就找到了
jiang101726 2011-06-27
- 打赏
- 举报
是在规定的圆里面填充一个图形，直到填充满了为止。 你说的我知道。 我现在缺的是 在圆里面填充图形的一个算法，而且每个图形之间还要有间距 ，这个算法是要在宏里面编写vb代码实现的
赵4老师 2011-06-27
- 打赏
- 举报
莫非cad里面也能：
开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。
开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。
