Sorry I didn't tell that it was made by a macro. Here is the last part of the macro.
Dim oShaftBody As ExtrudeFeature
Set oShaftBody = oCompDef.Features.ExtrudeFeatures.AddByDistanceExtent(oProfile, sOD, kSymmetricExtentDirection, kIntersectOperation)
'Convert to SheetMetal environment
If oPartDoc.SubType <> "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
oPartDoc.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}"
End If
Dim oSheetMetalCompDef As SheetMetalComponentDefinition
Set oSheetMetalCompDef = oPartDoc.ComponentDefinition
Dim oFlatPattern As FlatPattern
Set oFlatPattern = oSheetMetalCompDef.FlatPattern
oSheetMetalCompDef.Unfold
I tried this in UI, it can be flattened but i have to select first one of its surface. Unlike if i make something like square shape, selecting any face is unnecessary.
I am new to this IV programming. Pls help!
Thanks