线加属性问题？VLAX-LData-Put
(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把它们合并后也没有了，
是不是图元名的问题？？如何解决这个问题？？？
没办法？？？自己想办法吧。。
页:
[1]