CADSoftTools

Code: Select all

type
  Tsg3DDrawingNavigatorAccess = class(Tsg3DDrawingNavigator);
...

function EntToMeshObjectList(A3DNavigator: Tsg3DDrawingNavigator; AEntity: TsgDXFEntity; var AMeshObjectsList: TList): Boolean;
var
  I, C: Integer;
  vNav3d: Tsg3DDrawingNavigatorAccess;
  vMesh: TObject;

  procedure AddMeshObjects(AInsert: TObject);
  var
    vMeshes: TList;
  begin
    vMeshes := vNav3d.GetInsertMeshes(AInsert);
    try
      AMeshObjectsList.Assign(vMeshes, laOr);
    finally
      vMeshes.Free;
    end;
  end;

begin
  vNav3d := Tsg3DDrawingNavigatorAccess(A3DNavigator);
  C := AMeshObjectsList.Count;
  case AEntity.EntType of
    ceInsert: AddMeshObjects(AEntity);
    ce3DSolid, ceStep, ceBrep, ceIges:
      begin
        for I := 0 to AEntity.Count - 1 do
          if AEntity.EntType = ceInsert then
            AddMeshObjects(AEntity);
      end;
  else
    vMesh := vNav3d.EntToGLObj(AEntity);
    if vMesh <> nil then
      AMeshObjectsList.Add(vMesh);
  end;
  Result := C <> AMeshObjectsList.Count;
end;