怎么添加属性子列表,急!

sf_elite

选择对象: ((-1 . <图元名: 7ef8ad90>) (0 . "LINE") (330 . <图元名: 7ef8ad18>) (5
. "32") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 3) (100 .
"AcDbLine") (10 296.263 84.3673 0.0) (11 344.105 91.8686 0.0) (210 0.0 0.0 1.0))


选择对象: ((-1 . <图元名: 7ef8ad88>) (0 . "LINE") (330 . <图元名: 7ef8ad18>) (5
. "31") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbLine") (10 294.335 104.015 0.0) (11 342.177 111.517 0.0) (210 0.0 0.0 1.0))

请问如果属性列表里没有我要的那个子列表，怎么编写LISP添加进去啊，并成功更新，如上面的（62.3)是表示颜色的子列表，下面的那个颜色是随层，并没有这个子列表，怎么添加进去啊，谢谢了

ayunger

;;;**********************************
;;; No.7-1 替换对象指定DXF码的内容  
;;;**********************************
(defun ayEntMod1 (entName1 DXFcode newValue / cc)
  (if (setq cc (assoc DXFcode (entget entName1)))
  (entmod (subst (cons DXFcode newValue) (assoc DXFcode (entget entName1)) (entget entName1)));then
  (entmod (append (entget entName1) (list (cons DXFcode newValue))));else
  );end_if
  (entupd entName1)
);end_defun
;例如 (ayEntMod1 (cdr (entsel)) 62 3)