需要帮助命名布局增量

LosGirk · 发表于 2022-7-5 17:32:23

为了帮助说明此示例，我使用了图形名称ABCD。
我需要在图形中搜索匹配的布局名称，如果没有找到，请创建一个示例：ABCD01。如果找到了现有的匹配项，它将添加在最后一个匹配项之后的下一行内容，例如：ABCD01、ABCD02和ABCD03已经存在，因此它将创建一个名为ABCD04的新布局。
有人有这样的东西吗？我甚至不知道该怎么做。
谢谢你抽出时间。

Lee Mac · 发表于 2022-7-5 17:47:26

快速书写：

copy

(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)