GetExtensionDictionary Example |
Using Programming Languages other than VBA
Sub Example_GetExtensionDictionary() ' This example creates a Circle object in model space and ' adds a new Extension Dictionary to the Circle object Dim EDictionary As AcadDictionary Dim circleObj As AcadCircle Dim centerPoint(0 To 2) As Double Dim radius As Double ' Define the Circle object centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0 radius = 5# ' Create the Circle object in model space Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius) ThisDrawing.Application.ZoomAll MsgBox "Circle object Extension Dictionary state before: " & circleObj.HasExtensionDictionary ' Create an Extension Dictionary for the new Circle Set EDictionary = circleObj.GetExtensionDictionary MsgBox "Circle object Extension Dictionary state after: " & circleObj.HasExtensionDictionary End Sub
Comments? |