Transform imported geometry

By Adam Nagy

When importing geometry from another CAD format like *.step then you cannot specify the transformation for it in the UI. The only thing you can do is transform the geometry in another part document derived from the one that has the imported geometry.
However, using Brian‘s solution you can achieve that through the API directly in the part document that has the imported geometry. It also takes care of keeping the look of the component the same by copying the Appearance of the original faces:

Public Sub ReorientBaseBody()
    Dim partDoc As PartDocument
    Set partDoc = ThisApplication.ActiveDocument
    Dim pcd As PartComponentDefinition
    Set pcd = partDoc.ComponentDefinition
    Dim npbfs As NonParametricBaseFeatures
    Set npbfs = pcd.Features.NonParametricBaseFeatures
    ' Get the base feature that was created as a result of
    ' the translation.
    Dim baseFeature As NonParametricBaseFeature
    Set baseFeature = npbfs(1)
    ' Get the body created by the translation.
    Dim originalBody As SurfaceBody
    Set originalBody = baseFeature.InputSurfaceBodies(1)
    ' Create a transient copy of the body.
    Dim newBody As SurfaceBody
    Set newBody = ThisApplication.TransientBRep.Copy(originalBody)
    Dim tg As TransientGeometry
    Set tg = ThisApplication.TransientGeometry
    Dim tr As TransientObjects
    Set tr = ThisApplication.TransientObjects
    ' Define the transform to apply to the body.
    Dim trans As Matrix
    Set trans = tg.CreateMatrix
    Call trans.SetCoordinateSystem( _
    tg.CreatePoint(2, 2, 2), tg.CreateVector(0, 1, 0), _
    tg.CreateVector(-1, 0, 0), tg.CreateVector(0, 0, 1))
    ' Apply the transform to the transient body.
    Call ThisApplication.TransientBRep.Transform(newBody, trans)
    ' Create a new base feature.
    Dim baseFeatureDef As NonParametricBaseFeatureDefinition
    Set baseFeatureDef = npbfs.CreateDefinition()
    Dim inputBodies As ObjectCollection
    Set inputBodies = tr.CreateObjectCollection
    Call inputBodies.Add(newBody)
    baseFeatureDef.BRepEntities = inputBodies
    baseFeatureDef.OutputType = kSolidOutputType
    Dim newFeature As NonParametricBaseFeature
    Set newFeature = npbfs.AddByDefinition(baseFeatureDef)
    Dim realBody As SurfaceBody
    Set realBody = newFeature.SurfaceBodies(1)
    Dim i As Integer
    For i = 1 To originalBody.Faces.count
        Dim originalFace As Face
        Set originalFace = originalBody.Faces(i)
        If originalFace.AppearanceSourceType = kOverrideAppearance Then
            Dim newFace As Face
            Set newFace = realBody.Faces(i)
            newFace.Appearance = originalFace.Appearance
        End If
    Next
    ' Delete the original feature.
    baseFeature.Delete
End Sub