HasExtensionDictionary property example
Sub GetExtensionDictionary_Example()
Dim EDictionary As AcadDictionary
Dim circleObj As AcadCircle
Dim centerPoint(0 To 2) As Double
Dim radius As Double
centerPoint(0) = 0: centerPoint(1) = 0: centerPoint(2) = 0
radius = 5#
Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
ThisDrawing.Application.ZoomAll
MsgBox "Circle object Extension Dictionary state before: " & circleObj.HasExtensionDictionary
Set EDictionary = circleObj.GetExtensionDictionary
MsgBox "Circle object Extension Dictionary state after: " & circleObj.HasExtensionDictionary
End Sub
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV
are fully owned subsidiaries of Menhirs NV. Copyright ©
2001- Menhirs NV - All rights reserved. |