社区 › Auto Lisp › 层描述

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)

Lee Mac 发表于 2022-7-6 15:46:51

层描述是否仅在更高版本中Lisp程序在04年似乎不起作用

fixo 发表于 2022-7-6 16:01:11

我认为这件事是从2005年开始增加的
但不确定
 
~'J'~

Lee Mac 发表于 2022-7-6 16:23:59

好的，干杯，菲索

查看完整版本: 层描述