MajorAxis Example |
Using Programming Languages other than VBA
Sub Example_MajorAxis() ' This example creates an ellipse and finds the major axis ' for that ellipse. It then changes the major axis for the ellipse. Dim ellObj As AcadEllipse Dim majAxis(0 To 2) As Double Dim center(0 To 2) As Double Dim radRatio As Double ' Create an ellipse in model space center(0) = 5#: center(1) = 5#: center(2) = 0# majAxis(0) = 10: majAxis(1) = 20#: majAxis(2) = 0# radRatio = 0.3 Set ellObj = ThisDrawing.ModelSpace.AddEllipse(center, majAxis, radRatio) ellObj.Update MsgBox "The ellipse has a major axis of " & majAxis(0) & ", " & majAxis(1) & ", " & majAxis(2), vbInformation, "MajorAxis Example" ' Change the major axis of the ellipse majAxis(0) = 5: majAxis(1) = 5: majAxis(2) = 0 ellObj.MajorAxis = majAxis ellObj.Update ' Query the major axis of an Ellipse Dim retMajAxis As Variant retMajAxis = ellObj.MajorAxis MsgBox "The ellipse has been udpated with the major axis " & retMajAxis(0) & ", " & retMajAxis(1) & ", " & retMajAxis(2), vbInformation, "MajorAxis Example" End Sub
Comments? |