如何获取对象线型名

cafa

ssget选择对象后获取对象的线型名的代码怎么写，望赐教：
（setq ss (ssget))
(setq lnm (....));;获取线型名

vitalgg

1. (defun entity:get-linetype (ent)
   
2.   "获取图元的线型，当线型随层时，返回图层线型。"
   
3.   (if (entity:getdxf ent 6)
   
4.     (entity:getdxf ent 6)
   
5.     (cdr (assoc 6 (tblsearch "layer"
   
6.           (entity:getdxf ent 8))))))
   

(defun entity:get-linetype (ent)<br />   "获取图元的线型，当线型随层时，返回图层线型。"<br />   (if (entity:getdxf ent 6)<br />     (entity:getdxf ent 6)<br />     (cdr (assoc 6 (tblsearch "layer"<br />           (entity:getdxf ent 8))))))<br />