Center property example

Private Sub CenterpropertyExample()

' This example adds an arc to the drawing and returns the center point.

     Dim icadDoc As IntelliCAD.Document

     Dim myArc As Arc

     Dim cenPt As IntelliCAD.Point

     Dim myObj As Object

     Dim myCenPt As IntelliCAD.Point

     Set icadDoc = ActiveDocument

     Set cenPt = Library.CreatePoint(4, 2)

     'Add the arc to the .dwg

     Set myArc = icadDoc.ModelSpace.AddArc(cenPt, 3, 1, 3)

     ' Display the entity

     myArc.Update

 

     Set myCenPt = myArc.Center

     MsgBox "x = " & myCenPt.x & Chr(13) & "y = " & myCenPt.y & Chr(13) & "z = " & myCenPt.z, , "Arc Center Point"

End Sub