Find workpoints in flat pattern

[Anonymous]

Hi,

I have created workpoints on my flat pattern that I want to use for dimensioning. 

I have the following code which is able to find the workpoints in the folded part but not the flat pattern:

Dim oDrawingDocument As DrawingDocument = ThisServer.ActiveDocument
Dim oSheet As Sheet = oDrawingDocument.ActiveSheet
Dim oView As DrawingView = ActiveSheet.View("VIEW7").View
Dim oPartDocument As PartDocument = oView.ReferencedDocumentDescriptor.ReferencedDocument
'Dim oComponentOcc As ComponentOccurrence = oAssemblyDoc.ComponentDefinition.Occurrences.Item(1)
'Dim oPartDocument As PartDocument = oComponentOcc.Definition.Document
Dim oWorkPoint1 As WorkPoint = oPartDocument.ComponentDefinition.WorkPoints.Item(2)
MsgBox(oPartDocument.ComponentDefinition.WorkPoints.Count)
MsgBox( oWorkPoint1.Name)
MsgBox( oWorkPoint1.Point.X)
MsgBox( oWorkPoint1.Point.Y)

Could anyone help me get the workpoints from the flat pattern.

Thanks,

Thomas

[bradeneuropeArthur]

How many workpoints did you create?
And which of them do you need to have?
the workpoints.item start at "0" so if you need workpoint 2 you need item(1)!

[Anonymous]

Hi is your question solve?How you get the work point of flat pattern?

[WCrihfield]

Hi @Anonymous.  That is a good question, but its answer can be complicated to explain.  If those WorkPoints were truly created within the FlatPattern, then you will need to dig down to the FlatPattern of the model to be able to get to them.  The FlatPattern is like its own ComponentDefinition, and has its own WorkPoints collection.  It can only be found within a SheetMetalComponentDefinition, so you first have to get the part's component definition as that type of component definition.  Then you can step down within that to get its FlatPattern, if one has been created.

Here is a fairly simple example iLogic code that can be used while you have a sheet metal part open & 'active'.

If ThisApplication.ActiveDocumentType <> DocumentTypeEnum.kPartDocumentObject Then
	MsgBox("A Part Document must be active for this rule to work. Exiting.", vbCritical, "iLogic")
	Exit Sub
End If
Dim oPDoc As PartDocument = ThisApplication.ActiveDocument
If TypeOf oPDoc.ComponentDefinition Is SheetMetalComponentDefinition Then 
	Dim oSMDef As SheetMetalComponentDefinition = oPDoc.ComponentDefinition
	If oSMDef.HasFlatPattern Then
		oFP = oSMDef.FlatPattern
		oWPs = oFP.WorkPoints
		'do what you want with those WorkPoints here
		MsgBox("Found the FlatPattern's WorkPoints.", vbInformation, "iLogic")
	End If
End If

If this solved your problem, or answered your question, please click ACCEPT SOLUTION.
Or, if this helped you, please click (LIKE or KUDOS) 👍.

If you want and have time, I would appreciate your Vote(s) for My IDEAS 💡 or you can Explore My CONTRIBUTIONS

[Anonymous]

@WCrihfield  Many Thanks for sharing the code, yes its very much useful & solved my need.