What are the names of these entities? Points, Blocks, Circles .... etc. So can you list them down here?
Registered forum members do not see this ad.
Quite often I draw lines from many entities at different location to a central origin point.
Instead of drawing them 1 bat a time, Is there a lisp that I can click those entities with the last click for the central origin point like the picture below
Draw the first line, select line and then the grip point att the end, right click and select copy.
So as an example of how the lisp were to run is (base on the photo in the 1st post)
1)I will be clicking on multiple location in the drawing (1st click, 2nd click, 3rd click & 4th click)
2)for the last click I will click a distance away from all the previous clicks then press ENTER
3)lisp will then draw all the line from all the clicks (1st click to 4th click) to the last click (which will be the central location)
Something like this?
Code:(defun c:Test (/ int inp pt1 lst pt2) ;; Tharwat - Date: 18.4.2017 ;; (setq int 0 inp '("1st" "2nd" "3rd" "4th" "Base") ) (while (and (< int 5) (setq pt1 (getpoint (strcat "\nSpecify " (nth int inp) " Point :"))) ) (setq int (1+ int) lst (cons pt1 lst) ) ) (and (= (length lst) 5) (foreach p (cdr lst) (entmake (list '(0 . "LINE") (cons 10 (car lst)) (cons 11 p))) ) ) (princ) )
Sometimes there's a man... I won't say a hero, 'cause, what's a hero? But sometimes, there's a man. And I'm talkin' about the Dude here. Sometimes, there's a man, well, he's the man for his time and place. He fits right in there. And that's the Dude, in Los Angeles. - The Stranger, The Big Lebowski
Tharwat, I think you understood it literally... I think that OP means input as much points as needed - while loop is needed and when it's terminated, user should pick base point and then routine should connect all points from stored list of points obtained while looping with base one...
Marko Ribar, d.i.a. (graduated engineer of architecture)
M.R. on YouTube