cdr怎么計(jì)算圖形的周長(zhǎng)和面積? cdr圖形計(jì)算長(zhǎng)度和面積的技巧
我要評(píng)論在CorelDraw中繪圖有時(shí)需要獲取所繪曲線的長(zhǎng)度和面積，但是CorelDraw中并沒(méi)有CAD中那樣方便的查看屬性的工具，既然沒(méi)有我們就需要制作一個(gè)可以計(jì)算的模塊，下面我們就來(lái)看看詳細(xì)的教程。
CorelDRAW X8 官方中文安裝特別版(附注冊(cè)機(jī)+序列號(hào))
- 類型：圖像處理
- 大?。?/span>12.1MB
- 語(yǔ)言：簡(jiǎn)體中文
- 時(shí)間：2016-06-15
1、打開CorelDraw,新建文檔繪制一個(gè)矩形、三角形、閉合的貝塞爾曲線，為后期測(cè)量距離和面積做準(zhǔn)備。如下圖。
2、按Alt+F11打開VBA編輯器，點(diǎn)擊菜單中的“插入”下面的“模塊”，在左側(cè)上部的工程管理器中顯示“模塊1”。雙擊“模塊1”，在右側(cè)代碼窗口中輸入代碼。
3、右側(cè)代碼窗口中拷貝如下代碼：
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 "請(qǐng)先選中1條曲線。"
Exit Sub
End If
m = xSel.Shapes(1).Curve.Length
n = xSel.Shapes(1).Curve.Area
MsgBox "曲線長(zhǎng)度L(mm)：" & Format(m, "0.0000") & Chr(13) & "曲線面積S(mm2)：" & Format(n, "0.0000")
End Sub
4、然后切換到CorelDraw繪圖窗口，選中先前換的曲線，然后點(diǎn)擊工具欄中的運(yùn)行宏按鈕，如圖。彈出窗口中選擇“模塊1.Test”，然后點(diǎn)擊“運(yùn)行”，出現(xiàn)結(jié)果。
5、該函數(shù)只能計(jì)算曲線的長(zhǎng)度和面積，對(duì)矩形和三角形等對(duì)象無(wú)效，下面是測(cè)試結(jié)果，均顯示長(zhǎng)度面積為0.如圖。
6、那么要計(jì)算矩形和三角形和長(zhǎng)度面積怎么辦呢？需要先選中它們，如選中三角形，然后點(diǎn)擊右鍵，選擇“轉(zhuǎn)化為曲線”（快捷鍵Alt+Q），然后再進(jìn)行測(cè)量就可以了，如下圖。
以上就是cdr計(jì)算曲線圖形的長(zhǎng)度和面積的教程，希望大家喜歡，請(qǐng)繼續(xù)關(guān)注腳本之家。
相關(guān)推薦：
cdr怎么繪制虛線組成的長(zhǎng)方體圖形? cdr長(zhǎng)方體的畫法
相關(guān)文章
cdr調(diào)和工具怎么設(shè)計(jì)創(chuàng)意的圖形?
cdr調(diào)和工具怎么設(shè)計(jì)創(chuàng)意的圖形？cdr中想要設(shè)計(jì)創(chuàng)意的圖形，該怎么設(shè)計(jì)呢？下面我們就來(lái)看看cdr設(shè)計(jì)創(chuàng)意線條圖形的教程，需要的朋友可以參考下2019-01-21
cdr平行度量工具怎么標(biāo)注圖形和文字？cdr中繪制的圖形和文字想要添加標(biāo)注，該怎么標(biāo)注并設(shè)置標(biāo)注線的顏色呢？下面我們就來(lái) 看看詳細(xì)的教程，需要的朋友可以參考下2019-01-18
cdr怎么使用變形工具調(diào)整圖形？cdr中繪制的圖形想要調(diào)整成其他的創(chuàng)意圖形，我們使用變性工具就可以快速制作創(chuàng)意的圖形，下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下2019-01-14
cdr怎么設(shè)計(jì)矢量的掛旗圖形? cdr畫吊旗的教程
cdr怎么設(shè)計(jì)矢量的掛旗圖形？cdr中想要畫一個(gè)吊旗圖形，該怎么繪制吊旗呢？下面我們就來(lái)看看cdr畫吊旗的教程，很簡(jiǎn)單，需要的朋友可以參考下2019-01-07
cdr圖形怎么填充透明度？cdr中想要制作一個(gè)漸變色的圖形，該怎么給圖形設(shè)置透明度呢？下面我們就來(lái)看看cdr漸變色的制作方方法，需要的朋友可以參考下2019-01-03
cdr橢圓形工具怎么繪制創(chuàng)意的花環(huán)圖形?
cdr橢圓形工具怎么繪制創(chuàng)意的花環(huán)圖形？cdr中的橢圓形工具經(jīng)常使用，繪制一些圖形，今天我們就來(lái)看看cdr繪制漂亮的花環(huán)圖形的教程，需要的朋友可以參考下2019-01-03
cdr圖形怎么標(biāo)注尺寸? cdr圖形標(biāo)注的教程
cdr圖形怎么標(biāo)注尺寸？cdr繪制的圖形想要添加標(biāo)注，該怎么添加尺寸標(biāo)注呢？下面我們就來(lái)看看cdr圖形標(biāo)注的教程，需要的朋友可以參考下2018-12-24
cdr矩形工具怎么繪制創(chuàng)意的圖？cdr中繪制創(chuàng)意圖形很簡(jiǎn)單，想要使用矩形繪制創(chuàng)意圖形該怎么操作呢？下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下2018-12-21
CDR怎么繪制污點(diǎn)形狀的圖形？cdr中想要繪制一些市里阿尼哥的圖形，該怎么繪制污點(diǎn)呢？下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下2018-11-21
CDR怎么使用形狀工具調(diào)整圖形形狀？cdr中繪制的圖形可以調(diào)整形狀的，該怎么首映形狀工具調(diào)整圖形呢？下面我們就來(lái)看看詳細(xì)的教程，需要的朋友可以參考下2018-11-09
