how to get Flat pattern is created or not?

[Anonymous]

How to get whether a flat pattern present in the Sheet metal is proper or unresolved ?

Below is the code I am using

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim oCompDef As PartComponentDefinition
Set oCompDef = oDoc.ComponentDefinition

Dim sheetmetalcompdef As SheetMetalComponentDefinition
Set sheetmetalcompdef = oCompDef

Dim bHasFlatpatt As Boolean
bHasFlatpatt = sheetmetalcompdef.HasFlatPattern

bHasFlatpatt will return true for unresoved Flat pattern also.

How to get whether it is resolved or unresolved?

[Anonymous]

Here's the code I use -

If oPartDoc.SubType <> "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
    MsgBox "The 'Part' must be a Sheet Metal Part"
    Exit Sub
End If

Dim oSheetMetalCompDef As SheetMetalComponentDefinition
Set oSheetMetalCompDef = oPartDoc.ComponentDefinition
If oSheetMetalCompDef.FlatPattern Is Nothing Then
    MsgBox "Create flat pattern and try again"
    Exit Sub
End If

[Anonymous]

"oSheetMetalCompDef.FlatPattern"  will return object for unresolved Flat pattren also.

When we create a flat pattren even if it is not created, it will return an object and is not "Nothing".

See the attached image for an unresolved Flat pattern icon

[Anonymous]

Never come across this?

I think I'd be checking how the flat pattern was created.