slicer solid

[Anonymous]

I would like this program
to place each section on a separate layer in AutoCAD 2000 could someone show
me how it would be written?

(setq thickness (getreal "Input slicing layer thickness: "))

(setq object (entsel "Please select slicing object:"))

(setq z_val 0)

(setq point1 (list 0 0 0))

(setq modelmax (getvar "extmax"))

(setq modelmin (getvar "extmin"))

(setq zheight (- (caddr modelmax) (caddr modelmin)))

(if (> 0 (caddr modelmin))

(progn

(command "move" object "" modelmin point1)

(command "zoom" "all")

)

)

(command "layer" "m" "slice" "c" "red" """")

(while (< z_val zheight)

(setq z_val (caddr point1))

(setq z_val (+ thickness z_val))

(setq point1 (list 0 0 z_val))

(command "section" object "" "xy" point1)

)

(command "layer" "off" "0" "")

(command "redraw")