ssget选择对象后获取对象的线型名的代码怎么写，望赐教：
（setq ss (ssget))
(setq lnm (....));;获取线型名
网友答:
（setq ss (ssget))
(setq lnm (....));;获取线型名
网友答:
- (defun entity:get-linetype (ent)
- "获取图元的线型，当线型随层时，返回图层线型。"
- (if (entity:getdxf ent 6)
- (entity:getdxf ent 6)
- (cdr (assoc 6 (tblsearch "layer"
- (entity:getdxf ent 8))))))