coreldRAW12中求面积插件 GetArea13.gms ,工作原理?
coreldraw吧
全部回复
仅看楼主
level 2
璺飞龙 楼主
哪个大神知道给我和大家科普一下,求面积时用的什么方法、什么原理啊?
2016年03月06日 02点03分 1
level 1
对曲线物体的面积,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分 2
吧务
level 13

2024年02月11日 13点02分 3
1