Hi
I have two lisps that I would like to have run as one. The first one runs a query on an attached file, then detaches the file.
The second lisp changes the draw order of selected layers to bring to front. Both lisps work great, but would work much better if they run consecutive (as one). I have tried simply adding the lisp together, but no matter where I place the second one in, it does not run. Not sure if I am missing something to run one to the other.
Lisp one:
HTML Code:
(defun c:executequery (/)(ade_errsetlevel 2)(ade_qryexecute) (foreach x (ade_dslist) (ade_dsdetach x))))
Lisp two:
HTML Code:
(defun c:layers (/ layerList data ss)
(foreach layer '("S-POLE" "S-POLE_NOT_GPS" "S-PED" "S-VAULT" "S-MANHOLE" "Addresses-Never_Served" "Addresses-Served")
(if (and (setq data (tblsearch "LAYER" layer)) ; layer exists
(zerop (logand 4 (cdr (assoc 70 data)))) ; layer unlocked
(setq ss (ssget "_X" (list (cons 8 layer)))) ; layer has objects
)
(command "_.draworder" ss "" "_front" "regen")
)
)
(princ)
)