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

来源：网络收集作者：李香香时间：2021-04-02 21:42:30热度： ℃字号：大中小

cdr怎么计算图形的周长和面积？使用cdr随意画的图形想要计算面积和周长，该怎么实现呢？今天我们就以三角形和矩形为例看看cdr图形计算长度和面积的技巧，需要的朋友可以参考下面
在CorelDraw中绘图有时需要获取所绘曲线的长度和面积，但是CorelDraw中并没有CAD中那样方便的查看属性的工具，既然没有我们就需要制作一个可以计算的模块，下面我们就来看看详细的教程。

JUa西部素材网

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

JUa西部素材网

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

JUa西部素材网

3、右侧代码窗口中拷贝如下代码：JUa西部素材网

Sub Test()JUa西部素材网
On Error Resume NextJUa西部素材网
ActiveDocument.Unit = cdrMillimeterJUa西部素材网
Dim sl As Shape, xSel As ShapeRange, m As Double, n As DoubleJUa西部素材网
Set xSel = ActiveSelectionRangeJUa西部素材网
If ActiveSelectionRange.Count > 1 Or ActiveSelectionRange.Count = 0 ThenJUa西部素材网
MsgBox "请先选中1条曲线。"JUa西部素材网
Exit SubJUa西部素材网
End IfJUa西部素材网
m = xSel.Shapes(1).Curve.LengthJUa西部素材网
n = xSel.Shapes(1).Curve.AreaJUa西部素材网
MsgBox "曲线长度L(mm)：" & Format(m, "0.0000") & Chr(13) & "曲线面积S(mm2)：" & Format(n, "0.0000")JUa西部素材网
End Sub