Message 1 of 16
Points and properties of objects

Not applicable
06-12-2001
12:20 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Howdy Ya'll (sorry couldn't resist!)
I am trying to get a point (Pt1) on a line by allowing the user to select
the point (first line of code). I have set "OSMODE" to nearest as the exact
point does not matter as long as it falls on the line. I also need to get
the properties of the line with the point on it (Ln2), so I have the user
select that same line again (second line of code). I would rather not have
to use two user picks to achieve this. I have tried to use one line of code
(third line of code below) but sometimes the point does not fall on the line
and this will just not do. Is there a way to only have one user pick to get
the point (Pt1) on the line and get the properties of the line (Ln2)?
Pt1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "Select the opening start
point: ")
ThisDrawing.Utility.GetEntity Ln2, ptNothing, "Select the same wall: "
ThisDrawing.Utility.GetEntity Ln2, Pt1, "Select the opening start point: "
Thanx,
Rob
I am trying to get a point (Pt1) on a line by allowing the user to select
the point (first line of code). I have set "OSMODE" to nearest as the exact
point does not matter as long as it falls on the line. I also need to get
the properties of the line with the point on it (Ln2), so I have the user
select that same line again (second line of code). I would rather not have
to use two user picks to achieve this. I have tried to use one line of code
(third line of code below) but sometimes the point does not fall on the line
and this will just not do. Is there a way to only have one user pick to get
the point (Pt1) on the line and get the properties of the line (Ln2)?
Pt1 = ThisDrawing.Utility.GetPoint(, vbCrLf & "Select the opening start
point: ")
ThisDrawing.Utility.GetEntity Ln2, ptNothing, "Select the same wall: "
ThisDrawing.Utility.GetEntity Ln2, Pt1, "Select the opening start point: "
Thanx,
Rob