I'm trying to pull attribute value by using VBA, but the ".Value" is not pulling the information.
With DraftSight open, a document opened, in sheet view, and looking at a "revision line" block, my code looks like the following:
'Variable Delcarations
Dim dsApp As DraftSight.Application
Dim dsDoc As DraftSight.Document
Dim dsBlock As DraftSight.BlockDefinition
Dim VAttributes As Variant
Dim dsAttributes As DraftSight.AttributeDefinition
'Initializing Variables
Set dsApp = GetObject(, "DraftSight.Application")
Set dsDoc = dsApp.GetActiveDocument
Set dsBlock = dsDoc.GetBlockDefinition("Rev_Line 2")
VAttributes = dsBlock.GetAttributeDefinitions
Set dsAttributes = VAttributes(2)
'Output
Debug.Print dsAttributes.Name 'Good Results
Debug.Print dsAttributes.Caption 'Good Results
Debug.Print dsAttributes.Value 'Bad Results
The images attached are of what I expected versus actuality.
