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

试试这个。
 

(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 (- ii))
          (princ (strcat "\n Layer Name is : [ " LayName " ]"))
   )
)
(princ)
)

SYahoo 发表于 2022-7-6 02:43:54

哇，这太棒了。
 
谢谢你的快速帮助。

Tharwat 发表于 2022-7-6 02:58:10

 
随时欢迎你。
页: [1]
查看完整版本: 从图层名称复制信息