CDR计算曲线长度和面积

通过菜单 工具->脚本->脚本编辑器 打开VBA编辑器；

选择当前文件右键菜单插入模块；
将以下代码粘贴至编辑框，然后保存；

Sub CalcCurve()
	On Error Resume Next
	ActiveDocument.Unit = cdrMillimeter
	Dim sr As ShapeRange, l As Double, s As Double
	Set sr = ActiveSelectionRange
	If sr.Count > 1 Or sr.Count = 0 Then
		MsgBox "请选中1条曲线！"
		Exit Sub
	End If
	l = sr.Shapes(1).Curve.Length
	s = sr.Shapes(1).Curve.Area
	MsgBox "曲线长度L：" & Format(l, "0.00") & "mm" & Chr(13) & "曲线面积S：" & Format(s, "0.00") & "mm2"
End Sub

回到CDR，选择一条曲线；

点击运行按钮

得到曲线长度和面积；

另一种运行宏的快捷方式，点击泊坞窗栏的+号打开脚本管理窗口，选择刚刚创建的模块，双击项目或点击绿色三角图标执行。