Summary
The IPropertySet.GetAllProperties method returns each property's value. The index of 0 contains the precision as a string.
Procedure
- Use an ArcInfoWorkspaceFactory object to create a pointer to the coverage's workspace.
'++ Create a pointer to the data's workspace:
Dim pWorkspaceFact As IWorkspaceFactory
Set pWorkspaceFact = New ArcInfoWorkspaceFactory
Dim pWorkspace As IWorkspace
Set pWorkspace = pWorkspaceFact.OpenFromFile("c:\geodata\covers", 0)
Dim pFeatureWorkspace As IFeatureWorkspace
Set pFeatureWorkspace = pWorkspace
- Open the coverage as a FeatureDataset object.
Dim pDataset As IFeatureDataset
Set pDataset = pFeatureWorkspace.OpenFeatureDataset("covername")
- Reference a PropertySet interface's GetAllProperties method. Two variant variables will be populated with the property names and values, respectively.
Code:
Dim props As Variant
Dim vals As Variant
pFeatureDataset.PropertySet.GetAllProperties props, vals
Note:
Since a FeatureDataset object is a type of Dataset object, and a PropertySet is associated with a Dataset, the PropertySet methods are available to the FeatureDataset.
- Return precision from the value variable's first index position (0).
Code:
MsgBox pFeatureDataset.Name & " " & props(0) & ": " & vals(0)