如何用autolisp获取cad图形文件中直线和多义线的图层名

Answer 1

在cad里面每个对象都有图层。

使用autolisp程序获取图层信息代码如下：

(defun c:tes ( / ent obj)
 (setvar "cmdecho" 0)
 (setvar "blipmode" 0)
 (if (null vlax-dump-object) (vl-load-com) );加载vlax函数
 (while (setq ent (entsel "\n请选择对象"));如果选择了对象
  (setq obj (vlax-ename->vla-object (car ent)));lisp对象变体
  (princ (vla-get-layer obj));取得图层在命令行显示
  (princ "\n");换行
 )
 (princ);程序结束
)

Answer 2

(setq ly (cdr (assoc 8 (entget (car(entsel"\n选择对象："))))))