draw multiple lines to a central origin location

[Lee Mac]

Just for fun - demonstrating another application of my GrSnap function:

 

Lines2Point.lsp

[tive29]

Thanks Lee. Appreciate it.

[BIGAL]

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)

[tive29]

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.

[tive29]

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.

[halam]

Great! would like to try to use this method on the clumersome pface command..

*Edit*

Edited April 22, 2017 by halam