@a.tawkXHKN6 wrote:
i want a lisp that draws a line as follows:
1. select point pt1
2. draw a line such that first point is pt1 second point is away 100,000 mm from pt1 toward the cursor side.
Define what you mean by "side." In the cursor direction, whatever the angle, or orthogonally to the right or left side [or maybe up or down?] from pt1?
I think this is going to involve (grread) operations. And I think the User will have to pick somewhere on the side [or direction?] they want to go, because the cursor location at the time of selecting pt1 will not be to any side, and slight movement subsequently might not be in the desired direction.
The way this is usually done involves a (while) function reading the (grread) returned list. As long as that indicates that what has happened is movement of the cursor, [in this case] a Line can be drawn using (grdraw) or (grvecs) or (entmakex), so you can see what you're getting. And every time the cursor is moved again, that's deleted and a new one drawn based on the new cursor location. When (grread) finally indicates that a pick has been made, then it keeps the latest Line drawn.
A more sophisticated example, but one of the few times I've made full use of it, is RectMidPoint.lsp, >here<. It's repeatedly drawing a rectangle based around the specified midpoint, checking for the first entry in what (grread) returns to be a 5 for cursor movement, getting rid of the previous rectangle and drawing a new one, and when it's a 3 for a pick, it leaves the latest thing drawn.
@a.tawkXHKN6 wrote:
i want a lisp that draws a line as follows:
1. select point pt1
2. draw a line such that first point is pt1 second point is away 100,000 mm from pt1 toward the cursor side.
...
let's say point2 is in cursor direction and orthogonally.
...
Not sure why the native Line command will not be enough for this.
Grid X=spacing 100,000
Grid Y=spacing 100,000
Grid On
Snap On
Ortho On
@pbejse wrote:
....Not sure why the native Line command will not be enough for this.Grid X=spacing 100,000
Grid Y=spacing 100,000
Grid On
Snap On
Ortho On
Perhaps because that requires the start point and end point of the Line to fall on the Snap-increment grid, whereas building the length into a routine will allow starting from anywhere, and will not require changing any settings, nor having to "aim" the cursor and type in the value.
@Kent1Cooper wrote:
Perhaps because that requires the start point and end point of the Line to fall on the Snap-increment grid, whereas building the length into a routine will allow starting from anywhere, and will not require changing any settings, nor having to "aim" the cursor and type in the value.
Yup, that could be the reason.
(DEFUN C:Whynot ( / PT1 pt2dir)
(if
(and
(SETQ PT1 (GETPOINT))
(setq pt2dir (getpoint pt1 "\nPick Direction point"))
)
(progn
(COMMAND "line"
PT1
(POLAR PT1 (angle PT1 pt2dir) 100000)
""
)
)
)(princ)
)
@Kent1Cooper wrote:
The way this is usually done involves a (while) function reading the (grread) returned list. ....
If it's important to you, the one thing you might consider an advantage of the (grread) approach over the other solutions is that after giving it the first point, as you move the cursor around, it can show the Line that will result at the specified length, no matter what the distance from the first point to the cursor. So you can see exactly what you'll get, not just the direction it will aim. Is that worth pursuing?
