Change all xref layer

[kidznok]

Hi,
I would like to create button which change all xrefs layer using command line.
I have problem how to use qselect to all xref.

Is someone try sth like that?

[ВeekeeCZ]

-layer color 7 *|*

Edit test

[pendean]

Change what?
To what?

[cadffm]

Hi,

you can not select objects inside a block a block or xref, except you are inside bedit while editing the block or xref.

Qselect can not select layers, just objects, so we don't know what you rwally trying.

If you really try to edit layers, also xref layers, qselect is the wrong command.

Command -LAYER can edit Layers.

[ronjonp]

Do you mean put all xrefs on a common layer? If so, try this:

(defun c:foo (/ ln s)
  (setq ln "XREFLAYERNAME")
  (if (setq s (ssget "_X" '((0 . "INSERT"))))
    (foreach e (mapcar 'cadr (ssnamex s))
      (if (/= "" (cdr (assoc 1 (entget (tblobjname "block" (cdr (assoc 2 (entget e))))))))
	(entmod (append (entget e) (list (cons 8 ln))))
      )
    )
  )
  (princ)
)