Creating workpoints from the vertex of a part[VBA]

[Anonymous]

Im trying to create an array of workpoints based on the vertex of a part. I want to create the workpoints with coordinates based on the part and not the coordinates from the main frame. I tried using this, 

Dim wp As workpoint
Set wp = partDef.WorkPoints.AddFixed(ThisApplication.TransientGeometry.CreatePoint(0, 0, 1))

But, this just creates the point in space. Is there anyway to code it to accept the vertex from the user and create it based on that?

Thanks

[Xun.Zhang · Accepted solution]

Hi,

Firstly, you have to get the property of that point with VBA based on a projection of 2D sketch, and than you can create workpoint based on that point.

Here is a sample for your reference.

Dim oApp As Inventor.Application
Set oApp = ThisApplication

Dim oPartDoc As PartDocument
Set oPartDoc = oApp.Documents.Add(kPartDocumentObject, _
   oApp.GetTemplateFile(kPartDocumentObject))

Dim oSketch As PlanarSketch
Set oSketch = oPartDoc.ComponentDefinition.Sketches.Add _
  (oPartDoc.ComponentDefinition.WorkPlanes.Item(3))
 
Dim oTG As TransientGeometry
Set oTG = oApp.TransientGeometry

Dim oSkPnts As SketchPoints
Set oSkPnts = oSketch.SketchPoints
Call oSkPnts.Add(oTG.CreatePoint2d(10, 20), False)

[dgreatice]

please provide screenshot or attachments to help another.

[Anonymous]

Awesome I think this should work. Thanks a lot!!