layer를 속성으로 넣고 싶습니다.

안녕하세요.

리습을 잘 몰라서 이렇게 요청합니다.

제가 가지고 있는 도면layer어들을 속성으로 넣고 싶습니다.

예) 레이어명 : a001 네모박스가 있으면 속성으로 a001로 넣고 싶습니다.

캐드 버젼은 2004map 사용하고 있습니다.

(defun c:lx ();레이어를 속성으로…
 (setq ss (ssget (list (cons 0 “arc”))))
 (setq sl (sslength ss))
 (setq is 0)
 (repeat sl
  (setq en (ssname ss is) is (1+ is))
  (setq ip (entget en))
  (setq la (cdr (assoc 8 ip)))
      (ade_odaddrecord en “layer”)
  (ade_odsetfield en “layer” “layer” 0 la)
 )
  (princ)
)

제가 가지고 있는 리습인데…사용이 안되서 문의 드립니다.

어디가 잘못 되었는지 좀 가르쳐주세요.