从图层名称复制信息

SYahoo · 发表于 2022-7-6 01:50:04

是否有人拥有或知道lisp例程，该例程允许您选择图层名称的最后8个字符，并将此信息存储为变量？

我们有一个平面检查器，他在每个层名称的末尾添加了一个组合比例因子，他问是否可以通过选择一个层来获取该信息作为变量。

谢谢

Tharwat · 发表于 2022-7-6 02:05:12

如何选择图层名称以获取该名称的最后8个字符？

您计划只获取一个或多个图层名称吗？如果更多，您可以将所有选定的图层名作为一个变量名列表吗？

你所寻找的确实是可能的，但我们需要更多的细节来让事情朝着正确的方向发展

SYahoo · 发表于 2022-7-6 02:14:37

层名称以8位数字结尾，我想将其用作另一个命令的变量。

例如：LAYER-NAME-0.999785

我想选择图层，并将0.999785存储为下一个命令的变量。

数字始终为八位数字，第一位数字后有一个小数。

感谢您的快速回复。

Tharwat · 发表于 2022-7-6 02:21:10

在设置图层后，是否需要获取图层名称？或者您愿意选择一个对象来获得层名称？

SYahoo · 发表于 2022-7-6 02:26:58

在图层列表中选择图层将是最佳选择，但在图层上选择对象也会起作用。

Tharwat · 发表于 2022-7-6 02:36:50

试试这个。

copy


(defun c:LayName (/ s l i LayName)
 (if (and (setq
            s (car (entsel "\n Select any object to get its Layer Name :")
              )
          )
          (>= (setq i (strlen (setq l (cdr (assoc 8 (entget s)))))) 
     )
   (progn (setq LayName (substr l (- i  i))
          (princ (strcat "\n Layer Name is : [ " LayName " ]"))
   )
 )
 (princ)
)