通过菜单 工具->脚本->脚本编辑器 打开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,选择一条曲线;

点击运行按钮

得到曲线长度和面积;

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


0 Comments

发表评论

电子邮件地址不会被公开。 必填项已用*标注