close

Sub VBATEST_025()
MsgBox "[範例]建立圓並更新圖面"

 

'縮放圖面
ZoomAll

    Dim circleObj As AcadCircle
    Dim center(0 To 2) As Double
    Dim radius As Double
    center(0) = 1: center(1) = 1: center(2) = 0
    radius = 1

    ' 建立圓
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)

    ' 更新圓
    circleObj.Update
   
End Sub

arrow
arrow
    全站熱搜
    創作者介紹
    創作者 jthwax 的頭像
    jthwax

    JTHWAX 部落格

    jthwax 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄