cad vba 二次开发 填充圆有关问题
cad vba 二次开发 填充圆问题
本帖最后由 jiang101726 于 2011-06-27 16:15:32 编辑 在 宏 内编写代码 ,先画一个圆,在该圆内画一个任意的图形,
比如:矩形。
然后在圆内填充该图形,直至填满为止 ,每个图形之间可以设置间距
最好是有代码提示
谢谢 ! 大家接起来
------最佳解决方案--------------------
好像以前有人问过
就是慢慢填,找个起点然后一路画过去。用selectionset看看和圆是否相交。相交了再作临界判断如果你的矩形不需要同样大小就用region来找到合适的大小
具体代码没有特殊的,就是画一个矩形,然后根据offset一直画一直画。
autocad vba的帮助做的非常好,具体代码一查就找到了
------其他解决方案--------------------
用 AotoLisp
------其他解决方案--------------------
莫非cad里面也能:
开始记录宏,手动完成所需功能,结束记录宏,按Alt+F11键,查看刚才记录的宏对应的VBA代码。
------其他解决方案--------------------
是在规定的圆里面填充一个图形,直到填充满了为止。 你说的我知道。 我现在缺的是 在圆里面填充图形的一个算法,而且每个图形之间还要有间距 ,这个算法是要在宏里面编写vb代码实现的
------其他解决方案--------------------
该回复于2011-07-18 00:58:53被版主删除
本帖最后由 jiang101726 于 2011-06-27 16:15:32 编辑 在 宏 内编写代码 ,先画一个圆,在该圆内画一个任意的图形,
比如:矩形。
然后在圆内填充该图形,直至填满为止 ,每个图形之间可以设置间距
最好是有代码提示
谢谢 ! 大家接起来
------最佳解决方案--------------------
好像以前有人问过
就是慢慢填,找个起点然后一路画过去。用selectionset看看和圆是否相交。相交了再作临界判断如果你的矩形不需要同样大小就用region来找到合适的大小
具体代码没有特殊的,就是画一个矩形,然后根据offset一直画一直画。
autocad vba的帮助做的非常好,具体代码一查就找到了
------其他解决方案--------------------
用 AotoLisp
------其他解决方案--------------------
莫非cad里面也能:
开始记录宏,手动完成所需功能,结束记录宏,按Alt+F11键,查看刚才记录的宏对应的VBA代码。
------其他解决方案--------------------
是在规定的圆里面填充一个图形,直到填充满了为止。 你说的我知道。 我现在缺的是 在圆里面填充图形的一个算法,而且每个图形之间还要有间距 ,这个算法是要在宏里面编写vb代码实现的
------其他解决方案--------------------
该回复于2011-07-18 00:58:53被版主删除