cdr怎么计算图形的周长和面积? cdr图形计算长度和面积的技巧
<p>在CorelDraw中绘图有时需要获取所绘曲线的长度和面积，但是CorelDraw中并没有CAD中那样方便的查看属性的工具，既然没有我们就需要制作一个可以计算的模块，下面我们就来看看详细的教程。</p><p><div class="arc_down"><img src="https://img.jbzj.com/do/uploads/litimg/160322/1520422Ib8.jpg"><p class="arc_down_title">CorelDRAW X8 官方中文安装特别版(附注册机+序列号)</p><ul><li><span>类型：</span>图像处理</li><li><span>大小：</span>12.1MB</li><li><span>语言：</span>简体中文</li><li><span>时间：</span>2016-06-15</li></ul>查看详情</div></p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/202009170855578.png" /></p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555812.png" /></p>
<p>1、打开CorelDraw,新建文档绘制一个<strong>矩形、三角形、闭合的贝塞尔曲线</strong>，为后期测量距离和面积做准备。如下图。</p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/202009170855579.png" /></p>
<p>2、按Alt+F11打开VBA编辑器，点击菜单中的“<strong>插入</strong>”下面的“<span style="color: #ff0000"><strong>模块</strong></span>”，在左侧上部的工程管理器中显示“模块1”。双击<strong>“模块1”，</strong>在右侧代码窗口中输入代码。</p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555710.png" /></p>
<p>3、右侧代码窗口中拷贝如下代码：</p>
<div class="jb51code">
<pre class="brush:plain;">
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
</pre>
</div>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555811.png" /></p>
<p>4、然后切换到CorelDraw绘图窗口，<strong>选中先前换的曲线，</strong>然后点击工具栏中的运行<span style="color: #ff0000"><strong>宏按钮</strong></span>，如图。弹出窗口中选择“模块1.Test”，然后点击“运<strong>行</strong>”，出现结果。</p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555813.png" /></p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555814.png" /></p>
<p>5、该函数只能计算曲线的长度和面积，对矩形和三角形等对象无效，<strong>下面是测试结果，均显示长度面积为0</strong>.如图。</p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555815.png" /></p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555816.png" /></p>
<p>6、那么要计算矩形和三角形和长度面积怎么办呢？需要先选中它们，如选中三角形，然后点击右键，选择“<span style="color: #ff0000"><strong>转化为曲线”（快捷键Alt+Q），</strong></span>然后再进行测量就可以了，如下图。</p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555817.png" /></p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555818.png" /></p>
<p align="center"><img alt="" src="https://img.jbzj.com/file_images/coreldraw/202009/2020091708555819.png" /></p>
<p>以上就是cdr计算曲线图形的长度和面积的教程，希望大家喜欢，请继续关注琼殿技术社区。</p>
<p><strong>相关推荐： </strong></p>
<p>cdr图形怎么填充铁丝网围栏图样? </p>
<p>cdr怎么绘制几何图形? cdr常用几何图形的画法</p>
<p>cdr怎么绘制虚线组成的长方体图形? cdr长方体的画法</p>
頁:
[1]