Exporting Only one element to ACIS File.

Vignesh_CPT · ‎03-14-2008

Hi,
Could anyone please tell me how to achieve Isolating a single element and Export the element alone as SAT File?

Regards,
Vignesh. S

sszabo · ‎11-22-2012

Posted a solution here:

http://forums.autodesk.com/t5/NET/Using-AcadSelectionSet-to-export-selected-3dSolid-to-ACIS-SAT/td-p...

    Public Function ExportDWG2SAT(ByVal lsFullName As String) As Object
        Dim ssetObj As AcadSelectionSet
        Dim removeObjects As New List(Of AcadEntity)
        Dim sImage_Type = "SAT"
        ssetObj = m_currentDoc.SelectionSets.Add("SSALL")   ' creates named selection set
        ssetObj.Select(AcSelect.acSelectionSetAll) 'select everything in the drawing
        Dim my3DSolidObj As Object = GetVisible3dSolid()
        If Not IsNothing(my3DSolidObj) Then
            Dim my3DSolid As ObjectId = CType(my3DSolidObj, ObjectId)
            For Each ent As AcadEntity In ssetObj
                Select Case ent.ObjectName
                    Case "AcDb3dSolid"
                            If ent.ObjectID <> CType(my3DSolid.OldIdPtr, Long) Then
                                removeObjects.Add(ent)
                            End If
                    Case Else
                        removeObjects.Add(ent)
                End Select
            Next
            Dim removeArr() As AcadEntity = removeObjects.ToArray
            ssetObj.RemoveItems(removeArr)
            m_currentDoc.Export(lsFullName, sImage_Type, ssetObj)
        End If
        Return Nothing
    End Function

Exporting Only one element to ACIS File.

Exporting Only one element to ACIS File.

Forums Links

Post to forums