.NET

Reply
Contributor
NovayaEra
Posts: 13
Registered: ‎08-10-2011
Message 1 of 1 (171 Views)

Infopoint properties (Mechanical)

171 Views, 0 Replies
11-09-2012 03:13 AM

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

 

Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.
Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.