cafa 发表于 2022-9-19 16:04:38

如何获取对象线型名

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

vitalgg 发表于 2022-9-19 16:24:47

(defun entity:get-linetype (ent)
"获取图元的线型，当线型随层时，返回图层线型。"
(if (entity:getdxf ent 6)
    (entity:getdxf ent 6)
    (cdr (assoc 6 (tblsearch "layer"
          (entity:getdxf ent 8))))))
页: [1]
查看完整版本: 如何获取对象线型名