topic Select polyline same lintype and layer in Visual LISP, AutoLISP and General Customization Forum

Select polyline same lintype and layer

virgilius99 — Wed, 26 Jul 2023 08:31:54 GMT

Hi, i need some help with a lisp, here i go:

I need a lisp for autocad that can do the following steps:
1. let me choose a polyline
2. search in the drawing and select all the polylines according to the same linetype and layer that i chose in point 1

PS: I know that Quickselect exist, but i need a shortcut, thank you!

Re: Select polyline same lintype and layer

komondormrex — Wed, 26 Jul 2023 10:39:47 GMT

hi,

try this

(setq pline_dxf (entget (car (entsel "\nPick sample pline: ")))) (sssetfirst nil (setq all_qualified_plines (ssget "_x" (vl-remove nil (list (assoc 0 pline_dxf) (assoc 6 pline_dxf) (assoc 8 pline_dxf))))))

Re: Select polyline same lintype and layer

Kent1Cooper — Wed, 26 Jul 2023 12:18:32 GMT

EDITED:

If you're talking about ones that have a linetype override, then @komondormrex 's approach should work, but I think not if the selected source object is ByLayer in linetype, because there will be no entry for linetype in the entity data to filter for, so it will find all objects of the same type and Layer, no matter what their linetype.

Re: Select polyline same lintype and layer

virgilius99 — Wed, 26 Jul 2023 10:59:53 GMT

It works, but like a command type line, how do i take it to a lisp instead?

Re: Select polyline same lintype and layer

virgilius99 — Wed, 26 Jul 2023 11:04:43 GMT

Resolved, thank you for your time!

Re: Select polyline same lintype and layer

Kent1Cooper — Wed, 26 Jul 2023 12:50:33 GMT

@Kent1Cooper wrote:

If you're talking about ones that have a linetype override, then @komondormrex 's approach should work, but I think not if the selected source object is ByLayer in linetype, because ... it will find all objects of the same type and Layer, no matter what their linetype.

This seems to overcome that issue with a source object of ByLayer Linetype, in limited testing:

(defun C:SSTLL (/ edata n ent); = Selection Set of same object Type, Layer & Linetype (setq edata (entget (car (entsel "\nSample object: ")))) (setq SameTypeLayerLtype (ssget "_X" (if (assoc 6 edata) (list (assoc 0 edata) (assoc 8 edata) (assoc 6 edata)); then -- all 3 (list (assoc 0 edata) (assoc 8 edata)); else -- by Type & Layer only ); if ); ssget ); setq (if (not (assoc 6 edata)); if source is ByLayer Linetype, remove any with override (repeat (setq n (sslength SameTypeLayerLtype)) (setq ent (ssname SameTypeLayerLtype (setq n (1- n)))) (if (assoc 6 (entget ent)) (ssdel ent SameTypeLayerLtype)) ); repeat ); if (sssetfirst nil SameTypeLayerLtype); select/grip/highlight ); defun

And it works for any kind of object. There may be a more concise way to do it -- I was hoping for a relational test with (-4) entries, but didn't find a way.

Re: Select polyline same lintype and layer

virgilius99 — Wed, 26 Jul 2023 13:03:34 GMT

Thank you