Question

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

Answer 1

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

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

3. (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选择对象："))))))