需要帮助命名布局增量
为了帮助说明此示例，我使用了图形名称ABCD。我需要在图形中搜索匹配的布局名称，如果没有找到，请创建一个示例：ABCD01。如果找到了现有的匹配项，它将添加在最后一个匹配项之后的下一行内容，例如：ABCD01、ABCD02和ABCD03已经存在，因此它将创建一个名为ABCD04的新布局。
有人有这样的东西吗？我甚至不知道该怎么做。
谢谢你抽出时间。
快速书写：
(defun c:addlay ( )
( (lambda ( ita lst cnt / lay )
(while (member (setq lay (strcat "ABCD" (ita (setq cnt (1+ cnt))))) lst))
(vla-add (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))) lay)
)
(lambda ( x ) (if (< x 10) (strcat "0" (itoa x)) (itoa x))) (layoutlist) 0
)
(princ)
)
(vl-load-com) (princ) ：t非常感谢李·麦克。对于我们这些不太了解lisp的人来说，你是一笔宝贵的财富。祝你度过一个愉快的七月四日！ 不客气！ 李，你最近帮我做了一个增加布局名称的例程-
我知道这部分搜索的是一个已有的名字，你能帮我理解这部分吗？我需要找到布局Layout1和Layout2，如果它们存在，并删除它们。
非常感谢。
页:
[1]