Community
Posted a solution here:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | 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 |