What kind of point are you selecting? There are several different types of
entities that can define a point within Inventor; work points, vertices of a
solid, sketch points, hole centers, etc. Depending on how you have the
selection filter set up you will be selecting one of these entities. From
an entity you can use its Geometry property to get the geometric definition
of the entity. In the case of these objects you will get a Point or Point2d
object back. Your code should then function correctly.
You code could look something like:
If TypeOf JustSelectedEntities.Item(1) Is Vertex Then
Dim oVertex As Vertex
Set oVertex = JustSelectedEntities.Item(1)
Dim oPoint As Point
Set oPoint = oVertex.Geometry
txtX.Text = oPoint.X
txtY.Text = oPoint.Y
txtZ.Text = oPoint.Z
End If
--
Brian Ekins
Autodesk Inventor API
wrote in message news:[email protected]...
I looked in all the relative topics but i couldn't find help.Can somebody
help me?I made a select event so as to pick a point; that works ok.My
problem is that i want its coordinates to appear in 2 text boxes. My try is:
Private Sub oSelectPoint_OnSelect(ByVal JustSelectedEntities As
ObjectsEnumerator, _
ByVal SelectionDevice As SelectionDeviceEnum, _
ByVal ModelPosition As Point, _
ByVal ViewPosition As Point2d, _
ByVal View As View)
Dim oSelectedEnt As ObjectsEnumerator
Set oSelectedEnt = oSelectPoint.SelectedEntities
If TypeOf oSelectedEnt.Item(1) Is Point Then
Dim oPoint As Point
Set oPoint = oSelectedEnt.Item(1)
End If
txtX.Text = oPoint.X
txtY.Text = oPoint.Y
End Sub
What is wrong about it?
