cdr怎么计算图形的周长和面积? cdr图形计算长度和面积的技巧
百度经验 发布时间：2020-09-17 09:10:48 作者：abc123_431 
我要评论
我要评论cdr怎么计算图形的周长和面积？使用cdr随意画的图形想要计算面积和周长，该怎么实现呢？今天我们就以三角形和矩形为例看看cdr图形计算长度和面积的技巧，需要的朋友可以参考下
在CorelDraw中绘图有时需要获取所绘曲线的长度和面积，但是CorelDraw中并没有CAD中那样方便的查看属性的工具，既然没有我们就需要制作一个可以计算的模块，下面我们就来看看详细的教程。
1、打开CorelDraw,新建文档绘制一个矩形、三角形、闭合的贝塞尔曲线，为后期测量距离和面积做准备。如下图。
2、按Alt+F11打开VBA编辑器，点击菜单中的“插入”下面的“模块”，在左侧上部的工程管理器中显示“模块1”。双击“模块1”，在右侧代码窗口中输入代码。
3、右侧代码窗口中拷贝如下代码：
Sub Test()
On Error Resume Next
ActiveDocument.Unit = cdrMillimeter
Dim sl As Shape, xSel As ShapeRange, m As Double, n As Double
Set xSel = ActiveSelectionRange
If ActiveSelectionRange.Count > 1 Or ActiveSelectionRange.Count = 0 Then
MsgBox "请先选中1条曲线。"
Exit Sub
End If
m = xSel.Shapes(1).Curve.Length
n = xSel.Shapes(1).Curve.Area
MsgBox "曲线长度L(mm)：" & Format(m, "0.0000") & Chr(13) & "曲线面积S(mm2)：" & Format(n, "0.0000")
End Sub
4、然后切换到CorelDraw绘图窗口，选中先前换的曲线，然后点击工具栏中的运行宏按钮，如图。弹出窗口中选择“模块1.Test”，然后点击“运行”，出现结果。
5、该函数只能计算曲线的长度和面积，对矩形和三角形等对象无效，下面是测试结果，均显示长度面积为0.如图。
6、那么要计算矩形和三角形和长度面积怎么办呢？需要先选中它们，如选中三角形，然后点击右键，选择“转化为曲线”（快捷键Alt+Q），然后再进行测量就可以了，如下图。
以上就是cdr计算曲线图形的长度和面积的教程，希望大家喜欢，请继续关注脚本之家。
相关推荐：
相关文章
cdr调和工具怎么设计创意的图形？cdr中想要设计创意的图形，该怎么设计呢？下面我们就来看看cdr设计创意线条图形的教程，需要的朋友可以参考下2019-01-21
cdr平行度量工具怎么标注图形和文字？cdr中绘制的图形和文字想要添加标注，该怎么标注并设置标注线的颜色呢？下面我们就来 看看详细的教程，需要的朋友可以参考下2019-01-18
cdr怎么使用变形工具调整图形？cdr中绘制的图形想要调整成其他的创意图形，我们使用变性工具就可以快速制作创意的图形，下面我们就来看看详细的教程，需要的朋友可以参考下2019-01-14
cdr怎么设计矢量的挂旗图形？cdr中想要画一个吊旗图形，该怎么绘制吊旗呢？下面我们就来看看cdr画吊旗的教程，很简单，需要的朋友可以参考下2019-01-07
cdr图形怎么填充透明度？cdr中想要制作一个渐变色的图形，该怎么给图形设置透明度呢？下面我们就来看看cdr渐变色的制作方方法，需要的朋友可以参考下2019-01-03
cdr椭圆形工具怎么绘制创意的花环图形？cdr中的椭圆形工具经常使用，绘制一些图形，今天我们就来看看cdr绘制漂亮的花环图形的教程，需要的朋友可以参考下2019-01-03
cdr图形怎么标注尺寸？cdr绘制的图形想要添加标注，该怎么添加尺寸标注呢？下面我们就来看看cdr图形标注的教程，需要的朋友可以参考下2018-12-24
cdr矩形工具怎么绘制创意的图？cdr中绘制创意图形很简单，想要使用矩形绘制创意图形该怎么操作呢？下面我们就来看看详细的教程，需要的朋友可以参考下2018-12-21
CDR怎么绘制污点形状的图形？cdr中想要绘制一些市里阿尼哥的图形，该怎么绘制污点呢？下面我们就来看看详细的教程，需要的朋友可以参考下2018-11-21
CDR怎么使用形状工具调整图形形状？cdr中绘制的图形可以调整形状的，该怎么首映形状工具调整图形呢？下面我们就来看看详细的教程，需要的朋友可以参考下2018-11-09
最新评论