Bring Layers' objects to Front

[GeryKnee]

In the following lisp routine needed an if() insert to code, in order to abort i ss Collection is empty (If Layername doesn't represent any existant layer(s))

(defun C:LayerObjSendToFront (/)
(setq LayName (getstring "Layername : "))
(setq ss (ssget "X" (list ( cons 8 LayName))))
(command "draworder" ss "" "front")
(princ)
)

[Kent1Cooper]

---

@GeryKnee wrote:

In the following lisp routine needed an if() insert to code, in order to abort i ss Collection is empty (If Layername doesn't represent any existant layer(s))

(defun C:LayerObjSendToFront (/)
  (setq LayName (getstring "Layername : "))
  (if

    (setq ss (ssget "X" (list ( cons 8 LayName))))
    (command "draworder" ss "" "front")

  )
  (princ)
)

---

Unless I misunderstand, can it be as simple as that?

[GeryKnee]

Hello Kent,

I can't undestand where is the error in following code

(defun fnLayerObjSendToFront (LayerName )
(if (setq ss (ssget "X" (list ( cons 8 LayName))))
(command "draworder" ss "" "front"))
(princ)
)
(defun c:LayerObjSendToFront(/)
(if (setq LayerName (getString "\nSpecify layer name: "))
(progn
(fnLayerObjSendToFront LayerName)
)
)
(princ)
)

when is executing  the following is sent

Command: LayerObjSendToFront

Specify layer name: L*

; error: bad SSGET list value

while when the same writen but with inside c:LayerObjSendToFront call (not using function fnLayerObjSendToFront ) works succesfully.

Where is the fault??

Thanks,

Gery

[Kent1Cooper · Accepted solution]

(if (setq ss (ssget "X" (list ( cons 8 LayerName))))

[GeryKnee]

Thank you Kent.

A simple Checker software is necessary i think so.

Or you have to be very carefull.

Thank you very much,\Regards,

Gery.

[Sea-Haven]

Would it not be easier 

(setq layername (cdr (assoc 8 (entget (car (entsel"\nChoose object for layer"))))))