Quick select Section Object

[Bart_Dheere]

I often enable the Quickselect option to select elements in a drawing at a rapid pace.
A very handy one, but it cannot be done in 1 click.

In a drawing I want to quickly select a Section Plane to change its parameters.
Is there a possibility via Lisp to select the Section Object in the drawing with 1 click (I was thinking of creating a button in the toolbar, which I can do once I have the Lisp)?

[pendean]

QSELECT has a long list of options and choices: how would you like that automated exactly?

What about SELECTSIMILAR (controlled by SELECTSIMILARMODE) and SSX commands that already in the program?

[ВeekeeCZ]

A macro/lisp probably could be simple IF you've posted a sample file and possibly a video of what you set in the QSELECT dialog.

[komondormrex]

(ssget "_x" '((0 . "section")))

[Bart_Dheere]

You can raise or lower a section plane after selecting it.
Therefore, first zoom out, select and zoom back in.
too many steps over and over again...
solution: select section plane with a button.
Quick selection of a section object cast in a lisp is a solution in my opinion.

[ВeekeeCZ]

So this section plane, is (always) only one per drawing? 

btw paste this line into the command line, select the plane, and post the result here.

(assoc 0 (entget (car (entsel))))

[Bart_Dheere]

Indeed, one per drawing.

Command: (assoc 0 (entget (car (entsel))))
Select object: (0 . "SECTIONOBJECT")

[ВeekeeCZ · Accepted solution]

Ok, if you want to have a button, put this line into "macro" field. 

(progn (sssetfirst nil (ssget "_X" (list '(0 . "SECTIONOBJECT") (cons 410 (getvar 'ctab))))) (princ))

If you want to have a command, then this

(defun c:PLN () (sssetfirst nil (ssget "_X" (list '(0 . "SECTIONOBJECT") (cons 410 (getvar 'ctab))))) (princ))