选择的直线归到某个图层中lisp语言

r02t

我编了个简单的cadlisp，想实现，选个直线后偏移，偏移后的哪个直线设置到名称为“200”图层中去，但是往下编就不会了。

(defun C:ofe (/ a b)

(setq a (ssget))

(command "offset" 50 a pause "")

(setq b (entlast))

(command ？？？)

(princ)

  )

edata

(command "CHPROP" b "" "la" "200" "")

r02t

弄好了，十分感谢edata，不过只能一根根直线依次点击，能否同时处理多个直线，对于偏移的方向不做要求，比如我输入ofe命定后，一次选择多个直线，回车后，这多个直线旁边都生产了图层为200的直线。