level 2
对曲线物体的面积,Coreldraw内置有Cure类的面积属性,懂得VBA的直接读此属性即可。
Sub AreaOfShapeSqIn()
ActiveDocument.Unit = cdrInch
'设置当前文档单位为英寸
MsgBox Round(ActiveShape.DisplayCurve.Area, 2) & " Sq In"
'用msgbox显示当前选择对象面积保留小数2位
End Sub
说明一下上面的代码,求是总面积。意思是如果有图形内嵌套有小图形,它会加上小图形面积,而不是减去。
另外我百度搜索一下,有某位大神用的VBA代码写的是用积分方法求面积。
2024年01月30日 15点01分