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”,然后點擊“運行”,出現(xiàn)結果。


5、該函數(shù)只能計算曲線的長度和面積,對矩形和三角形等對象無效,下面是測試結果,均顯示長度面積為0.如圖。


6、那么要計算矩形和三角形和長度面積怎么辦呢?需要先選中它們,如選中三角形,然后點擊右鍵,選擇“轉化為曲線”(快捷鍵Alt+Q),然后再進行測量就可以了,如下圖。



以上就是cdr計算曲線圖形的長度和面積的教程,希望大家喜歡,請繼續(xù)關注腳本之家。
相關推薦:
相關文章

cdr調(diào)和工具怎么設計創(chuàng)意的圖形?
cdr調(diào)和工具怎么設計創(chuàng)意的圖形?cdr中想要設計創(chuàng)意的圖形,該怎么設計呢?下面我們就來看看cdr設計創(chuàng)意線條圖形的教程,需要的朋友可以參考下2019-01-21
cdr平行度量工具怎么標注圖形和文字?cdr中繪制的圖形和文字想要添加標注,該怎么標注并設置標注線的顏色呢?下面我們就來 看看詳細的教程,需要的朋友可以參考下2019-01-18
cdr怎么使用變形工具調(diào)整圖形?cdr中繪制的圖形想要調(diào)整成其他的創(chuàng)意圖形,我們使用變性工具就可以快速制作創(chuàng)意的圖形,下面我們就來看看詳細的教程,需要的朋友可以參考下2019-01-14
cdr怎么設計矢量的掛旗圖形?cdr中想要畫一個吊旗圖形,該怎么繪制吊旗呢?下面我們就來看看cdr畫吊旗的教程,很簡單,需要的朋友可以參考下2019-01-07
cdr圖形怎么填充透明度?cdr中想要制作一個漸變色的圖形,該怎么給圖形設置透明度呢?下面我們就來看看cdr漸變色的制作方方法,需要的朋友可以參考下2019-01-03
cdr橢圓形工具怎么繪制創(chuàng)意的花環(huán)圖形?
cdr橢圓形工具怎么繪制創(chuàng)意的花環(huán)圖形?cdr中的橢圓形工具經(jīng)常使用,繪制一些圖形,今天我們就來看看cdr繪制漂亮的花環(huán)圖形的教程,需要的朋友可以參考下2019-01-03
cdr圖形怎么標注尺寸?cdr繪制的圖形想要添加標注,該怎么添加尺寸標注呢?下面我們就來看看cdr圖形標注的教程,需要的朋友可以參考下2018-12-24
cdr矩形工具怎么繪制創(chuàng)意的圖?cdr中繪制創(chuàng)意圖形很簡單,想要使用矩形繪制創(chuàng)意圖形該怎么操作呢?下面我們就來看看詳細的教程,需要的朋友可以參考下2018-12-21
CDR怎么繪制污點形狀的圖形?cdr中想要繪制一些市里阿尼哥的圖形,該怎么繪制污點呢?下面我們就來看看詳細的教程,需要的朋友可以參考下2018-11-21
CDR怎么使用形狀工具調(diào)整圖形形狀?cdr中繪制的圖形可以調(diào)整形狀的,該怎么首映形狀工具調(diào)整圖形呢?下面我們就來看看詳細的教程,需要的朋友可以參考下2018-11-09












