topic Count objects at a specific distance in Visual LISP, AutoLISP and General Customization Forum

Count objects at a specific distance

adaptacad — Mon, 14 Oct 2019 18:12:24 GMT

Hello everyone, Is there a way to count only objects at a specific distance?

Example I have several blocks in my drawing and I want to count only those that are at the maximum distance X, from a RED, CIAN polyline ... and delete all others, How to do this?

In the attached dwg example, I want to delete only those with the green circle.

Thanks in advance for the help you are giving me !!

Re: Count objects at a specific distance

dlanorh — Mon, 14 Oct 2019 18:23:51 GMT

In your drawing there is only one block at the "MAXIMUM" distance, and two that are close; unless you mean at a distance greater than a supplied distance.

Re: Count objects at a specific distance

doaiena — Mon, 14 Oct 2019 18:47:03 GMT

Here is a quick and dirty. You can easily edit it to suit your exact needs.

(defun c:test ( / ent poly sel maxDist ctr blocks)

(while (not ent) (setq ent (entsel "\nSelect a Polyline")))
(setq poly (vlax-ename->vla-object (car ent)))
(setq sel (ssget "X" '((0 . "INSERT"))))
(setq maxDist 2)
(setq blocks (ssadd))

(setq ctr 0)
(repeat (sslength sel)
(setq pt (cdr (assoc 10 (entget (ssname sel ctr)))))
(if (< (distance (vlax-curve-getclosestpointto poly pt) pt) maxDist)
(ssadd (ssname sel ctr) blocks)
)

(setq ctr (1+ ctr))
)

(princ (strcat "\n" (itoa (sslength blocks)) " blocks are in range."))
(princ)
)

Re: Count objects at a specific distance

adaptacad — Mon, 14 Oct 2019 18:52:26 GMT

@doaiena wrote:

Here is a quick and dirty. You can easily edit it to suit your exact needs.

(defun c:test ( / ent poly sel maxDist ctr blocks)

(while (not ent) (setq ent (entsel "\nSelect a Polyline")))
(setq poly (vlax-ename->vla-object (car ent)))
(setq sel (ssget "X" '((0 . "INSERT"))))
(setq maxDist 2)
(setq blocks (ssadd))

(setq ctr 0)
(repeat (sslength sel)
(setq pt (cdr (assoc 10 (entget (ssname sel ctr)))))
(if (< (distance (vlax-curve-getclosestpointto poly pt) pt) maxDist)
(ssadd (ssname sel ctr) blocks)
)

(setq ctr (1+ ctr))
)

(princ (strcat "\n" (itoa (sslength blocks)) " blocks are in range."))
(princ)
)

This is almost !!
How to use the selection set? and how to delete objects not being counted?

Re: Count objects at a specific distance

doaiena — Mon, 14 Oct 2019 19:12:05 GMT

Give this a try.

(defun c:test ( / ssPoly ssBlocks maxDist polyColors blocks ssDelete ctr poly ctr2 pt)

(setq ssPoly (ssget "X" '((0 . "LWPOLYLINE"))))
(setq ssBlocks (ssget "X" '((0 . "INSERT"))))
(setq maxDist 2)
(setq polyColors (list 1 4))
(setq blocks (ssadd))
(setq ssDelete (ssadd))

(setq ctr 0)
(repeat (sslength ssPoly)
(setq poly (vlax-ename->vla-object (ssname ssPoly ctr)))

(if (member (vla-get-color poly) polyColors)
(progn

(setq ctr2 0)
(repeat (sslength ssBlocks)
(setq pt (cdr (assoc 10 (entget (ssname ssBlocks ctr2)))))
(if (< (distance (vlax-curve-getclosestpointto poly pt) pt) maxDist)
(ssadd (ssname ssBlocks ctr2) blocks)
)

(setq ctr2 (1+ ctr2))
);repeat blocks

));if red or teal

(setq ctr (1+ ctr))
);repeat polys



(setq ctr 0)
(repeat (sslength ssBlocks)
(if (not (ssmemb (ssname ssBlocks ctr) blocks))
(ssadd (ssname ssBlocks ctr) ssDelete)
)
(setq ctr (1+ ctr))
)

(princ (strcat "\n" (itoa (sslength ssDelete)) " blocks are deleted."))
(command "erase" ssDelete "")
(princ)
)

Re: Count objects at a specific distance

adaptacad — Mon, 14 Oct 2019 19:43:50 GMT

This looks like it will work !! thank you very much! @doaiena

Re: Count objects at a specific distance

Scottu2 — Mon, 14 Oct 2019 20:03:34 GMT

Hi @doaiena,

Remove the objects found from the initial selection set.

(setq sel (ssget "X" '((0 . "INSERT"))))

This create a selection set with all objects in the drawing with the (0 . "INSERT") filter to select only blocks.

adaptacad's routine creates a new selection set, called blocks, to add blocks that are in range.

Then displays how many.

(princ (strcat "\n" (itoa (sslength blocks)) " blocks are in range."))

Add this line of code after the PRINC to erase all the other blocks.

(command "erase" "previous" "r" blocks")

PS: Nice routines adaptacad

Re: Count objects at a specific distance

JamesMaeding — Mon, 14 Oct 2019 20:16:42 GMT

note that this is brute force. It tests the distance on every item.

If running on large amounts of items over and over, you can speed things up by doing bounding box elimination.

That is, you make a list of the points to look at, sort by their x coord, then skip the ones before and after the bounding box. Do same for Y once narrowed down.

That sort approach is how you do things fast like "delete duplicate objects" and so on.

Re: Count objects at a specific distance

ronjonp — Mon, 14 Oct 2019 22:14:14 GMT

This was also answered HERE too. A few simple changes for speed could also include using vl-some when checking distance of points to lines, use an ename rather than vla object for the closest point check and filter the colored plines directly:

(setq sspoly (ssget "X" '((0 . "LWPOLYLINE") (-4 . "<OR") (62 . 1) (62 . 4) (-4 . "OR>"))))

Re: Count objects at a specific distance

adaptacad — Tue, 15 Oct 2019 12:11:45 GMT

@JamesMaeding You are very right. I tested on a file with many objects and behaved slowly!

Re: Count objects at a specific distance

adaptacad — Thu, 17 Oct 2019 18:54:08 GMT

@doaiena and @JamesMaeding Is there a way to improve performance? make it faster?

Re: Count objects at a specific distance

doaiena — Fri, 18 Oct 2019 10:47:40 GMT

As mentioned above, this is a brute force approach and as such, it gets exponentially slower, with the increase in entity count.

Both @JamesMaeding and @ronjonp gave suggestions on how to improve the performance. You can use a boundingbox elimination approach, filter the polylines at the selection stage, skip the ename->object convertion and so on. You should at least give it a try on your own, to implement these changes.