Get referenced entityname of sketch entity API

LS,

I'm working on a macro that selects sketchsegments based on the name of the referenced entity (all segments are converted from a 3d model into a 2d drawing). But I just can't get the relations properly. Can anyone help??

Thanx

I'm using this code:

Dim swApp As SldWorks.SldWorks Dim model As SldWorks.ModelDoc2 Dim swsketch As SldWorks.sketch Dim swsketchseg As SldWorks.SketchSegment Dim swsketch_relman As SldWorks.SketchRelationManager Dim swsketch_rel As SldWorks.SketchRelation Dim draw As SldWorks.DrawingDoc

Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Dim FeatureData As Object Dim Feature As Object Dim Component As Object

Sub main()

Set swApp = Application.SldWorks Set model = swApp.ActiveDoc

Set swsketch = model.GetActiveSketch2

If Not swsketch Is Nothing Then

Set swsketch_relman = swsketch.RelationManager

vswsketchseg = swsketch.GetSketchSegments

For sketchsegcount_drw = 0 To UBound(vswsketchseg) Set swsketchseg = vswsketchseg(sketchsegcount_drw)

swsketchseg.Select (True) swsketchseg_relcount = swsketchseg.GetRelationsCount swsketchrels = swsketchseg.GetRelations Set swsketch_rel = swsketchrels

DefEnt_arr = swsketch_rel.GetDefinitionEntities Next sketchsegcount_drw End If End Sub