Lee Mac Posted April 18, 2017 Share Posted April 18, 2017 Just for fun - demonstrating another application of my GrSnap function: Lines2Point.lsp Quote Link to comment Share on other sites More sharing options...
tive29 Posted April 19, 2017 Author Share Posted April 19, 2017 Thanks Lee. Appreciate it. Quote Link to comment Share on other sites More sharing options...
BIGAL Posted April 19, 2017 Share Posted April 19, 2017 Just me I would go other way around pick base pt first, then within a while pick point and draw line no need for a cons etc a will exit. (defun c:linepts ( / pt1 pt2) (setq pt1 (getpoint "Pick base point")) (while (setq pt2 (getpoint "pick next point <Cr> to exit ")) (command "line" pt1 pt2 "") ) ) (c:linepts) Quote Link to comment Share on other sites More sharing options...
tive29 Posted April 19, 2017 Author Share Posted April 19, 2017 BIGAL. Thanks for another alternative. Before posting here, I considered before if the central point should come first or last. I choose last as it allows more flexibility to place the central point as it needs to be in relations to the other clicks. Quote Link to comment Share on other sites More sharing options...
tive29 Posted April 19, 2017 Author Share Posted April 19, 2017 tive29, study the variable BLIPMODE... Second Tharwat's code is just fine, just implement BLIPMODE inside code (use getvar to store default value at the beginning, set it to 1, and at the end restore stored value from beginning)... Thanks for the suggestion. Quote Link to comment Share on other sites More sharing options...
halam Posted April 19, 2017 Share Posted April 19, 2017 (edited) Great! would like to try to use this method on the clumersome pface command.. *Edit* Edited April 22, 2017 by halam Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.