新手求助:VBA里怎样给对象倒角,急!

fantasyhk · 发表于 2005-4-16 10:39:00

求助各位朋友,在VBA下怎么给对象倒角.比方说给个矩形倒角,倒角的具体参数是根据矩形的长和宽而变.怎样进行编程,用什么语句!

(具体的功能实现如下:在文本框里输入矩形长宽的树枝,点生成图形时能自动生成图形并倒角!)

先谢谢了啊!!!

cobalt · 发表于 2005-4-17 19:43:00

我是这么处理的：
设定：两条线互相垂直的LWPolylines相交，生成倒角后变成一条LWPolyline。
方法：首先计算得到倒角段起始和结束顶点的坐标位置，然后得到所有的顶点位置放入一个顶点数组，构造一个LWPolyline对象，设置此LWPolyline的Bulge属性。

fantasyhk · 发表于 2005-4-19 09:33:00

好的，我试试！谢谢

丹雪 · 发表于 2005-5-21 10:34:00

为什么不直接调用CAD命令呢?

sieben · 发表于 2005-5-21 13:41:00

我的想法同2楼的，在这提醒bulge属性的正负问题，可通过判断p(Index-1),P(Index),P(index+1)三个点的走向来确定bulge的正负,逆时针为正，顺时针为负,

若LwPolyLine在圆角前全位直线段还好办，但若已经存在圆弧则更麻烦,我正在写这些内容，我们可以交流交流

账号		自动登录	找回密码
密码			注册