编了个
lsp
。可是最后一步不对。。求救。。怎么讲选出的数变成已自定义的图层

(defun c:f2 (/ f2-layer-0 f2-layer ss i n f2-ss f2-ir)
(command "layer" "n" "8-200" "")
(command "layer" "n" "8-150" "")
(command "layer" "n" "10-200" "")
(command "layer" "n" "10-150" "")
(command "layer" "n" "12-200" "")
(command "layer" "n" "12-150" "")
(command "layer" "n" "12-100" "")
(command "layer" "n" "12-100 高" "")
;修改颜色
(command "layer" "c"1 "8-200" "")
(command "layer" "c" 2 "8-150" "")
(command "layer" "c" 3 "10-200" "")
(command "layer" "c" 4 "10-150" "")
(command "layer" "c"5 "12-200" "")
(command "layer" "c" 6"12-150" "")
(command "layer" "c" 7"12-100" "")
(command "layer" "c" 8"12-100 高" "")
(command "")
(setq f2-layer-0 (car (entsel "\n请选择对象图层：")))
(setq f2-layer (cdr (assoc 8 (entget f2-layer-0))))
(princ "\n请选择对象:")
(setq ss (ssget (list '(0 . "text") (cons 8 f2-layer))))
(setq i 0
n (sslength ss)
f2-ss (ssadd)
)
(setq f2-ir (getreal "请输入小于的数值："))
(while (< i n)
(setq f2-real (cdr (assoc 1 (entget (ssname ss i)))))
(if (< (atof f2-real) f2-ir)
(setq f2-ss (ssadd (ssname ss i) f2-ss))
(setq Result_layer"8-200")
)
(setq i (1+ i))
)
)

上面是编的。。。高人指导下

这个程序要实现什么功能？
看不明白你要说什么。。。可能是我太水了，，，，求重新解析你的问题？