杰网资源 Design By www.escxy.com
在CorelDraw中绘图有时需要获取所绘曲线的长度和面积,但是CorelDraw中并没有CAD中那样方便的查看属性的工具,既然没有我们就需要制作一个可以计算的模块,下面我们就来看看详细的教程。
- 软件名称:
- CorelDRAW X8 官方中文安装特别版(附注册机+序列号)
- 软件大小:
- 12.1MB
- 更新时间:
- 2016-06-15立即下载
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长方体的画法
标签:
cdr,周长,面积
杰网资源 Design By www.escxy.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
杰网资源 Design By www.escxy.com
暂无评论...