Hi
I need to get properties (Name, Material, Mass ets.) from Infopoint in Autocad Mechanical 2013. I found this code to get infopoint and its works, but how to get property's values?
Dim acApp As AcadApplication = DirectCast(System.Runtime.InteropServices.Marshal.GetActiveObject("Autocad.Application.18"), AcadApplication)
Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
ed.WriteMessage("Select Infopoint:")
Dim pso As New PromptSelectionOptions()
pso.SinglePickInSpace = True
Dim res As PromptSelectionResult = ed.GetSelection(pso)
Dim SS As Autodesk.AutoCAD.EditorInput.SelectionSet = res.Value
If SS Is Nothing Then
Return
End If
If SS.Count < 1 Then
Return
End If
If (SS(0)).ObjectId.ObjectClass.Name.Contains("AcmPartRef") Then
ed.WriteMessage("Is an infopoint:")
End If