topic How to measure distance from one fixed point to many others individually? in Visual LISP, AutoLISP and General Customization Forum

How to measure distance from one fixed point to many others individually?

Callum_Roberts64LCV — Tue, 26 Nov 2024 13:58:30 GMT

I have attached a diagram to help with explaining. I have one fixed point (Red X) and potentially hundreds of other points that each need a distance measured to (Blue X). I know I can do it individually, but is there a way to speed this up by perhaps selecting all the points in one go and highlighting X as the one I need a distance from.

I have looked for an addon or lsp but cannot seem to find what i'm looking for.

Thanks in advance

Betreff: How to measure distance from one fixed point to many others individually?

cadffm — Tue, 26 Nov 2024 14:30:57 GMT

Hi,

returns the 3D-distance between point objects and a point of your choice.

(defun c:MIST (/ n ss) ; (c:MIST) (if (and (setq n -1 p1 (getpoint "\nBASEpoint: ")) (setq ss (ssget '((0 . "POINT"))))) (repeat (sslength ss) (princ(rtos (distance p1 (cdr(assoc 10 (entget(ssname ss (setq n (1+ n))))))) 2)) ) ) (princ) )

Re: How to measure distance from one fixed point to many others individually?

Kent1Cooper — Tue, 26 Nov 2024 15:38:34 GMT

@Callum_Roberts64LCV wrote:

.... is there a way to speed this up by perhaps selecting all the points in one go and highlighting X as the one I need a distance from. ....

In what form do you want the results? A reporting to the command line for each [as in the routine from @cadffm]? or Dimensions drawn from the common base Point to each other Point? or output to some kind of file? or something else drawn in the drawing, such as a Table or Mtext? or ...?

Re: How to measure distance from one fixed point to many others individually?

Sea-Haven — Tue, 26 Nov 2024 23:56:51 GMT

Like @Kent1Cooper would you want bearing and distance, points numbered and so on, a table of results,

point1 - 180deg 23.45 - point23,and so on.

You need to confirm so anyone does not waste time guessing.

Re: How to measure distance from one fixed point to many others individually?

Callum_Roberts64LCV — Wed, 27 Nov 2024 14:28:56 GMT

Hi all, Thanks for the replies @Sea-Haven @Kent1Cooper @cadffm . Just to clarify this is 2D CAD. The trouble is that these points (Blue X) do not have specific ID Numbers so if you outputted all the distances I wouldn't be able to match them to their respective points.

A desired output that would work would be:
Polylines drawn from the centre of the fixed point (Red X) to the centre of the other points (Blue X's). So if I could select the fixed point, press enter, then select all of the other points, then enter. It would then draw individual polylines and look something like the attached image. I could then select each polyline and write down the distance. This would be much quicker and much less messy to manually draw.

What do you think could this be done? Thanks a lot for the help.

Re: How to measure distance from one fixed point to many others individually?

ВeekeeCZ — Wed, 27 Nov 2024 14:54:08 GMT

Well, that's possible, but there is still plenty of manual work left up to the user...

Would you post a DWG sample and also explain where/how you write down the value in Excel or another program? how do you pair the points with distances? Some screenshots or videocapture might be helpful to better understand the work you do.

Re: How to measure distance from one fixed point to many others individually?

Kent1Cooper — Wed, 27 Nov 2024 16:07:48 GMT

@Callum_Roberts64LCV wrote:

.... A desired output that would work would be:
Polylines drawn from the centre of the fixed point (Red X) to the centre of the other points (Blue X's). ....

I see no reason they should be Polylines, which in this situation would only take more memory than Lines, for no benefit.

And I suggest having the length of each Point from the base Point written in Text right there. If that's desirable, you might consider eliminating the drawing of Lines, unless you want them anyway to indicated which was the selected base Point.

(defun C:DTMP ; = Distances To Multiple Points (/ baseobj basedata pts base n pt target) (if (and (setq baseobj (car (entsel "\nBase Point object to measure from: "))) (member '(0 . "POINT") (setq basedata (entget baseobj))) (not (prompt "\nFor Point objects to measure to,")) (setq pts (ssget '((0 . "POINT")))) ); and (progn ; then (ssdel baseobj pts); in case base was selected along with others (setq base (cdr (assoc 10 basedata))) (repeat (setq n (sslength pts)) (setq pt (ssname pts (setq n (1- n))) target (cdr (assoc 10 (entget pt))) ); setq (command "_.line" "_non" base "_non" target "" "_.text" "_mc" "_non" target "" 0 ; current height, zero rotation (rtos (distance base target)); in current mode & precision settings ); command ); repeat ); progn (prompt "\nSelected base not a Point, or no other Point(s) selected."); else ); if (prin1) ); defun

That uses whatever the current Text Style and height are, and assumes the Style does not have a fixed height, and draws everything on the current Layer. Variants to those assumptions are easily accommodated, and a Style and height and Layer(s) and format for the distance Text, can all be built in.

You can include the base Point in the selection of other Points to make it easier -- it will be ignored in the "reporting."

The Text will show 3D distances if there are different Z coordinates involved, not the plan-view XY distances.

Re: How to measure distance from one fixed point to many others individually?

Callum_Roberts64LCV — Wed, 27 Nov 2024 16:18:24 GMT

Hi,

I am drawing up Yardage Markers for golf irrigation, so players know how far they are away from the hole at a glance. Which involves finding the distance to the Front, Centre & Back of the putting green from each sprinkler on that hole. As you can imagine, that's roughly 60 sprinklers per hole * 3 * 18 holes.

I will quickly run through what I would usually have to do. Draw a polyline from the Front of the green to every sprinkler for that hole. Repeat for the Centre & Back. I would then click on every polyline and record the distance in an excel spreadsheet. Each sprinkler has its own code, but that isn't recorded in CAD, just on the spreadsheet. The sprinklers in my drawing are just blocks, and have nothing to identify them individually. The spreadsheet converts the entered distanced from Meters into Yards. I would then have to create a text box in CAD for each sprinkler with the Front Distance, Centre Distance & Back Distance.

I've attached 3 images of what it looks like without any pipework for clarity.

Re: How to measure distance from one fixed point to many others individually?

Callum_Roberts64LCV — Wed, 27 Nov 2024 16:30:13 GMT

I have just tested this out. This works with points. However the data that is used comes in blocks as it is survey data. Can it be modified to pick the Centrepoint of the blocks when selected? Thanks

Re: How to measure distance from one fixed point to many others individually?

CodeDing — Wed, 27 Nov 2024 18:00:33 GMT

@Callum_Roberts64LCV ,

Here's a routine that could work if you put a little more prep work into the elements/layering in your drawing.

This uses layers of items to identify what/where they are, measures to appropriate locations on greens, then automatically labels blocks. Run this routine in my attached drawing:

(defun c:GOLF ( / LayerList deuce h holes holeCnt sprCnt ssSpr ssFront ssCenter ssBack eFront eCenter eBack ptFront ptCenter ptBack eSpr ptSpr) (defun LayerList ( / lyr lyrList) (while (setq lyr (tblnext "LAYER" (null lyr))) (setq lyrList (cons (cdr (assoc 2 lyr)) lyrList)) );while );defun (foreach lay (LayerList) (if (or (setq deuce (wcmatch (strcase lay) "HOLE-##-*")) (wcmatch (strcase lay) "HOLE-#-*")) (progn (setq h (substr lay 6 (if deuce 2 1))) (if (not (member h holes)) (setq holes (cons h holes)) );if );progn );if );foreach (prompt (strcat "\n" (itoa (length holes)) " HOLES FOUND.")) (setq holeCnt 0 sprCnt 0) (foreach hole holes (setq holeCnt (1+ holeCnt)) (if (setq ssSpr (ssget "_A" (list (cons 0 "INSERT") (cons 2 "SPRINKLER-*") (cons 8 (strcat "HOLE-" hole "-SPRINKLER"))))) (progn (prompt (strcat "\nMeasuring " (itoa (sslength ssSpr)) " sprinklers for hole " hole "... ")) (setq ptFront nil ptCenter nil ptBack nil) (and (setq ssFront (ssget "_A" (list (cons 0 "POINT") (cons 8 (strcat "HOLE-" hole "-FRONT"))))) (setq eFront (ssname ssFront 0)) (setq ptFront (cdr (assoc 10 (entget eFront))))) (and (setq ssCenter (ssget "_A" (list (cons 0 "POINT") (cons 8 (strcat "HOLE-" hole "-CENTER"))))) (setq eCenter (ssname ssCenter 0)) (setq ptCenter (cdr (assoc 10 (entget eCenter))))) (and (setq ssBack (ssget "_A" (list (cons 0 "POINT") (cons 8 (strcat "HOLE-" hole "-BACK"))))) (setq eBack (ssname ssBack 0)) (setq ptBack (cdr (assoc 10 (entget eBack))))) (repeat (setq cnt (sslength ssSpr)) (setq eSpr (ssname ssSpr (setq cnt (1- cnt)))) (setq ptSpr (cdr (assoc 10 (entget eSpr)))) (if ptFront (setpropertyvalue eSpr "FRONT" (rtos (distance ptSpr ptFront) 2 2))) (if ptCenter (setpropertyvalue eSpr "CENTER" (rtos (distance ptSpr ptCenter) 2 2))) (if ptBack (setpropertyvalue eSpr "BACK" (rtos (distance ptSpr ptBack) 2 2))) (setq sprCnt (1+ sprCnt)) );repeat (prompt "Complete") );progn );if );foreach (alert (princ (strcat "\nGOLF COMPLETE" "\n" "\nReviewed " (itoa holeCnt) " holes, measuring " (itoa sprCnt) " sprinklers." );strcat );princ );alert (princ) );defun

...Starts with empty blocks:

...Finishes with populated info in blocks:

Best,

~DD

Re: How to measure distance from one fixed point to many others individually?

Kent1Cooper — Wed, 27 Nov 2024 18:46:55 GMT

@Callum_Roberts64LCV wrote:
I have just tested this out. This works with points. However the data that is used comes in blocks as it is survey data. Can it be modified to pick the Centrepoint of the blocks when selected? Thanks

If the center point is the insertion point, just replace "POINT" with "INSERT" in two places. The 10-code entry is the location of a Point object and the insertion point of a Block. [And, if you like, replace "Point object" with "Block."]