层描述

au-s · 发表于 2022-7-6 15:10:58

你好

有没有办法通过单击图形中的一条线来显示图层名称和描述？

例如：
你选了一行，弹出窗口告诉你图层名称和图层描述。
一行显示layer Desc，第二行显示layername。

Thanx寻求帮助

顺致敬意，

fixo · 发表于 2022-7-6 15:38:51

这就是你要找的吗？


(defun C:WD(/ descr ent layer obj)
(while (setq ent (entsel "\nSelect object (Enter to Exit): "))
 (setq obj (vlax-ename->vla-object (car ent))
layer (vla-get-layer obj)
descr (vla-get-description
        (vla-item
          (vla-get-layers
            (vla-get-activedocument
              (vlax-get-acad-object))) layer)))
 (alert (strcat "Description: " """ descr """ "\nLayer: " """ layer """ "."))
)  
(princ)
)
(prompt "\n\t***   Type WD to run   ***")
(princ)