cdr怎么计算图形的周长和面积? cdr图形计算长度和面积的技巧

所属分类: 平面设计 / CorelDraw教程 阅读数: 2051
收藏 0 赞 0 分享

在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常用几何图形的画法

cdr怎么绘制虚线组成的长方体图形? cdr长方体的画法

更多精彩内容其他人还在看

CorelDRAW设置填充颜色和边框颜色的两种方法

这篇教程是向脚本之家的朋友分享CorelDRAW设置填充颜色和边框颜色的两种方法,教程比较基础,适合新手来学习,推荐到脚本之家,喜欢的朋友可以参考本文,来看看吧
收藏 0 赞 0 分享

CorelDRAW使用手绘工具绘制线条

这篇教程是向脚本之家分享CorelDRAW使用手绘工具绘制线条方法,教程比较基础,适合新手来学习,推荐到脚本之家,喜欢的朋友来看看吧
收藏 0 赞 0 分享

CorelDRAW X7中轮廓图滤镜组各滤镜的使用效果

这篇教程是向脚本之家的朋友分享CorelDRAW X7中轮廓图滤镜组各滤镜的使用效果方法,教程很基础,适合新手来学习,推荐到脚本之家,来看看吧
收藏 0 赞 0 分享

CorelDRAW如何输入竖式的分数?

这篇教程是向脚本之家的朋友分享CorelDRAW如何输入竖式的分数方法,对于很多人都不是很清楚,所以今天小编就为大家详细介绍一下,来看看吧
收藏 0 赞 0 分享

CorelDRAW等分分割图片

这篇教程是向脚本之家的朋友分享CorelDRAW等分分割图片方法,教程比较基础,适合新手来学习,推荐到脚本之家,喜欢的朋友可以参考本文,来看看吧
收藏 0 赞 0 分享

CorelDRAW中反显颜色的三种方法介绍

这篇教程是向脚本之家的朋友分享CorelDRAW中反显颜色的三种方法,教程比较基础,适合新手来学习,推荐到脚本之家,希望能对大家有所帮助
收藏 0 赞 0 分享

CorelDRAW X7如何加速

有人反应说用CorelDRAW软件进行打开文件、导出文件等一些动作时运行慢,甚至鼠标卡死,为了帮助大家给CorelDRAW X7软件加速,本教程将会有一些解决方案供大家参考
收藏 0 赞 0 分享

CorelDRAW X8设计吸引力的企业招聘海报

这篇教程是向脚本之家的朋友分享CorelDRAW X8设计吸引力的企业招聘海报方法,教程制作出来的海报非常漂亮,而且难度不是很大,值得大家学习,一起来学习吧
收藏 0 赞 0 分享

CorelDRAW移动图片就会出现复制的原因及解决方法

CorelDRAW移动图片就会出现复制怎么回事?相信很多朋友都碰到这类问题吧,下面小编就针对移动变复制这一问题,做出解析,给予解决方案,不会的朋友可以参考本文
收藏 0 赞 0 分享

CDR中群组在哪里呢?CorelDRAW群组对象、取消群组

在cdr软件里面进行排版设计,很多时候遇到很多个图片或者文字对象等,经常需要进行整体复制或者整体移动,只有把各个对象进行群组设置,才能方便我们的排版设计,下面为大家分享CorelDRAW群组对象、取消群组方法,来看看吧
收藏 0 赞 0 分享
查看更多