Lisp for selecting some itmes every constant space

[emadelbatran]

Dear Friends 

I need help from anyone supporting me to select some items  from column or row every constant distance like a picture attached

[RobDraw]

Have you tried the Customization and LISP forum?

[emadelbatran]

Dear robdraw, thanks for your reply, but I'm not talking about Revit my friend, what all I want is easy may for whos people specialist in lisp creation as I explain in my message above, anyway thank you 

[Sea-Haven]

Its not a hard task to draw rectangs in sequence via lisp and say every 3rd having a different colour, you need to provide some size details length, height and gap. 

[pbejse]

---

@emadelbatran wrote:

Dear Friends 

I need help from anyone supporting me to select some items  from column or row every constant distance ..

---

What are these items that you are referring to? A sample drawing is better than an image file.

[Sea-Haven · Accepted solution]

oops you want to select no probs just use a ssget "F" option sort the objects and then get every 3rd one. Like Pbe need a dwg. The object type will influence the sort order.

A rough start if created in order.

(setq pt1 (getpoint "\n1st point ")
pt2 (getpoint pt1 "\n2nd point"))
(setq ss (ssget "F" (list pt1 pt2)))
(setq x (sslength ss) inc (getint "\ninter increment spacing "))
(setq num (fix (/ x inc)) lst '())
(setq start (- inc 1))
(setq ss2 (ssadd))
(repeat num
(setq ss2 (ssadd (ssname ss start) ss2))
(setq start (+ start inc))
)
; do something (command "erase" ss2 "")

[RobDraw]

I pointed you to the correct forum. Your welcome. An admin has moved it your thread for you.

You have misinterpreted my signature which appears in all of my responses as a response to you. Of course, I know your question has nothing to do with Revit.

[emadelbatran]

Here you are dwg example as your request 

[emadelbatran]

Dear @Sea-Haven 

What I'm trying to do is separate some of the emergency lights, each a certain number of headlights. It could be after two, three, or four scouts, and so on...all I need is a lisp. I can modify it to determine the number left.

you will find a new attach dwg example.

frankly, I do not understand the coding you write, may it useful but how I can use it ?? 

thanks a lot for your effort 

[Sea-Haven]

1st up don;t mark as Solution till your happy it does what you want.

Ok 2nd go copy and paste into notepad and save as say getpart.lsp, next find help about running lisp programs. As a start can drag and drop using explorer.

3rd it will select the items based on position you nominate.

You have not said what you want to do with the result the code stores it as a selection set LST, so erase !lst would rub them out.

; simple get objects in using a line selecting by order
; By AlanH June 2021

(defun c:getpart ( / pt1 pt2 ss num)
(setq pt1 (getpoint "\n1st point ")
pt2 (getpoint pt1 "\n2nd point"))
(setq ss (ssget "F" (list pt1 pt2)))
(setq x (sslength ss) inc (getint "\nEnter increment spacing "))
(setq num (fix (/ x inc)) lst '())
(setq start (- inc 1))
(setq lst (ssadd))
(repeat num
(setq lst (ssadd (ssname ss start) lst))
(setq start (+ start inc))
)
(princ)
)

(c:getpart)

[emadelbatran]

Thank you @Sea-Haven  very much for your help and your advice, Just I have one remaining for you is to explain how's your LSP work. because I tried to do it but there's nothing happen .

What I did ..select the first light from down and the first one from up as you write 1st and 2nd into your LSP and the number in increment space.