search for restraints

[Angelo2449]

Hello everyone,
with this command;

 (defun c: test (/ stringa num)

(setq num 0)

(if (setq stringa (ssget "_ x" '((0. "hatch") (2. "solid")))
(setq num (1 + num))
); if

(prc "\ nnum xxxx")
(prc num)
(ringing)

);; defun fina cercat

I would like to look for all the existing solid > > handles in the design.

Unfortunately the search doesn't work, what is wrong?

Thank you.

 

[Angelo2449]

I changed the code, now it works!

 (defun c: test (/ stringa num)

(setq num 0)

(if (setq stringa (ssget "_ x" '((0. "hatch") (2. "_ solid")))
(progn
(repeated (setq num (sslength tight))
(prince)
);; repeated
);; progn
); if

(prc "\ nnum xxxx")
(prc num)
(pr "n")

);; defun fina cercat[
/CODE]now I would like to select the dash of a certain color.

 

[Joblayer]

You should filter the stains on the layers that have the color you're looking for, plus the stains with the same color, but imposed.
the dxf code that manages the layer is 8
the dxf code that manages the color, if different "from layer" (i.e. imposed) should be the 62

 

[GP.]

for green strands:
(ssget "_x" ((0 . "hatch") (2 . "solid") (62 . 3))

 

[Angelo2449]

Thank you.