线加属性问题？VLAX-LData-Put

54525596

(defun c:a ()
(setq gas (Car (EntSel "\n请选择添加属性线: ")))
(setq gas (VLAX-Ename->VLA-Object gas))
       (VLAX-LData-Put gas "lx0" "路面")
       (VLAX-LData-Put gas "lx1" "水泥")
(princ)
)
(defun c:b ()
(setq gas (Car (EntSel "\n请选择检看属性线: ")))
(setq gas (VLAX-Ename->VLA-Object gas)
        lx0 (VLAX-LData-Get gas "lx0")
        lx1 (VLAX-LData-Get gas "lx1")
)
(print (strcat lx0 "材质为" lx1))
(princ)
)

比如我选择给PLINE线加好属性，我分解后就没有了，或者我给LINE加好属性,我用PEDIT把它们合并后也没有了，
是不是图元名的问题？？如何解决这个问题？？？

54525596

没办法？？？自己想办法吧。。