Draw order based on BlockName

[cliffordcudal]

Hi,

I'm trying to create lisp that will set draw order based on block name. can anyone check the code, it does not work when I try it. Thanks

(defun c:xblk (/ s blockList)
(setq blockList '("__4_Structure" "__3_Beam" "__2_Purlins" "__1_Modules)) ;  top-most first
(foreach blk blockList
(if (setq s (ssget "_X" (list (cons 2 blk))))
(command "_.draworder" s "" "_front")
)
)
(prin1)

[komondormrex · Accepted solution]

hey,

syntax only corrected

(defun c:xblk (/ s blockList s)
(setq blockList '("__4_Structure" "__3_Beam" "__2_Purlins" "__1_Modules")) ;  top-most first
(foreach blk blockList
	(if (setq s (ssget "_X" (list (cons 2 blk))))
		(command "_.draworder" s "" "_front")
	)
)
	(prin1)
)

[cliffordcudal]

It works, Thank you!