复制/重命名层

ajax30 · 发表于 2022-7-5 17:29:14

我最初的想法，让说“重命名层”来自“块重命名”，这正是我想要的，除了重命名块，而不是层。。。过了一段时间，我明白了我错得很厉害，即使没有编程技巧，我也可以简单地将其修改为“重命名层”

nod684 · 发表于 2022-7-5 17:33:47

尝试了这个。。。它正在工作，但如果我希望使用带有空格的层名称，该怎么办？
如果我使用空格键，它将结束例程。

Tharwat · 发表于 2022-7-5 17:37:15

您是否尝试在函数getstring之后添加t，以允许您的字符串输入有一个空格？

nod684 · 发表于 2022-7-5 17:38:38

非常感谢Tharwat！

Tharwat · 发表于 2022-7-5 17:42:19

不客气

VVA · 发表于 2022-7-5 17:44:29

谢谢李。
我编辑#8
考虑到nod684的意愿，增加了一层对话选择

ajax30 · 发表于 2022-7-5 17:47:23

VVA，
经过测试，效果良好！谢谢

ajax30 · 发表于 2022-7-5 17:52:56

是否可以为层的新副本自动添加一些后缀？

你想复制第01层
当它要求新的层名称而不是
新层名称：

可能是
新层名称：

VVA · 发表于 2022-7-5 17:55:49

新版本Test1。需要#8中的一些函数

copy


(defun C:test1 ( / _nl _l suff )
 (vl-load-com)
 (setq suff "_temp")
 (and
 (setq _l  
 (listbox "Layer" "Select exist layer"
   ((lambda(l)(mapcar 'cons l l))(vl-remove-if-not 'snvalid (tablelist "LAYER")))
   1
   )
)
 (setq _nl (getstring t (strcat "\nNew layer name <" _l suff ">:")))
 (if (eq _nl "")(setq _nl (strcat _l suff)) t)
 (snvalid _nl 0)
 (if (make-copy-layer  _nl _l) (setvar "clayer" _nl))
 )
(princ)
 )

ajax30 · 发表于 2022-7-5 17:59:28

VVA，
杰出的它工作得很好！
谢谢！

[编程交流] 复制/重命名层

发表回复

精选推荐