Convert Sheetmetal to part

[Anonymous]

Hi
i have a potentially large problem to solve. All of our parts are modelled as sheetmtal subtype and now due to a change we need to convert the parts that aren't sheetmetal to standard parts.

So far i have

Dim oMsgSM
oMsgSM = MsgBox("Please confirm " & oCompOccName & " is a sheetmetal part.", vbYesNo)
If oMsgSM = vbNo Then
Dim oNonSMDoc As PartDocument
Set oNonSMDoc = ThisApplication.ActiveDocument
oNonSMDoc.DocumentSubType = "{4D29B490-49B2-11d0-93C3-7E0706000000}"
Else
End If

But it doesn't seem to convert them to a standard part.

I thin kthe error is in the subtype.

Can someone please confirm that

1. The code is correct
2. I have the right docsubtype for a standard part.

Thanks in advance

Daren

[Anonymous]

Hi
i have a potentially large problem to solve. All of our parts are modelled as sheetmtal subtype and now due to a change we need to convert the parts that aren't sheetmetal to standard parts.

So far i have

Dim oMsgSM
oMsgSM = MsgBox("Please confirm " & oCompOccName & " is a sheetmetal part.", vbYesNo)
If oMsgSM = vbNo Then
Dim oNonSMDoc As PartDocument
Set oNonSMDoc = ThisApplication.ActiveDocument
oNonSMDoc.DocumentSubType = "{4D29B490-49B2-11d0-93C3-7E0706000000}"
Else
End If

But it doesn't seem to convert them to a standard part.

I thin kthe error is in the subtype.

Can someone please confirm that

1. The code is correct
2. I have the right docsubtype for a standard part.

Thanks in advance

Daren

[Anonymous]

Use the SubType property (not DocumentSubType)...

oNonSMDoc.SubType = "{4D29B490-49B2-11d0-93C3-7E0706000000}"

[Anonymous]

Use the SubType property (not DocumentSubType)...

oNonSMDoc.SubType = "{4D29B490-49B2-11d0-93C3-7E0706000000}"

[Anonymous]

Sanjay

That was the problem

Just converted 160 files without an issue.

Only 34 - 35 thousand to go 🙂

Daren

[Anonymous]

Sanjay

That was the problem

Just converted 160 files without an issue.

Only 34 - 35 thousand to go 🙂

Daren