cdr怎么计算图形的周长和面积? cdr图形计算长度和面积的技巧

作者: -楠er
来源: 51数据库
2021-10-19

在coreldraw中绘图有时需要获取所绘曲线的长度和面积，但是coreldraw中并没有cad中那样方便的查看属性的工具，既然没有我们就需要制作一个可以计算的模块，下面我们就来看看详细的教程。

1、打开coreldraw,新建文档绘制一个矩形、三角形、闭合的贝塞尔曲线，为后期测量距离和面积做准备。如下图。

2、按alt+f11打开vba编辑器，点击菜单中的“插入”下面的“模块”，在左侧上部的工程管理器中显示“模块1”。双击“模块1”，在右侧代码窗口中输入代码。

3、右侧代码窗口中拷贝如下代码：

sub test()
on error resume next
activedocument.unit = cdrmillimeter
dim sl as shape, xsel as shaperange, m as double, n as double
set xsel = activeselectionrange
if activeselectionrange.count > 1 or activeselectionrange.count = 0 then
    msgbox "请先选中1条曲线。"
    exit sub
end if
m = xsel.shapes(1).curve.length
n = xsel.shapes(1).curve.area
msgbox "曲线长度l(mm)：" & format(m, "0.0000") & chr(13) & "曲线面积s(mm2)：" & format(n, "0.0000")
end sub