使用2 tit重命名布局选项卡

Tharwat · 发表于 2022-7-6 01:12:27

我现在明白了，我的错误是把属性值放在一个列表中，而没有考虑属性位置的顺序，这导致了重命名不有序，无论如何，因为pBe的例程按需要为您工作，pBe的出色工作值得称赞

祝你好运

JADT · 发表于 2022-7-6 01:17:16

您好，如果您正在阅读本文。你的代码自创建以来一直在为我工作，再次感谢。
不幸的是，我刚刚遇到了一个以前从未遇到的问题。
如果您添加了一个新的布局选项卡，然后运行RENLAY lisp，它会用（1）后缀重命名现有选项卡，如下图所示

如果您有时间看一看，我们将不胜感激。现在，因为它只是一个奇怪的选项卡，我正在手动重命名新的选项卡。

pBe · 发表于 2022-7-6 01:19:55

这是一个故障保护，我嵌入了这种情况下的例行程序。在运行RENLAY之前，用户必须确保“源”标题栏没有重复的数字，从结果中可以确定哪个布局选项卡包含重复的标记值

dpenney · 发表于 2022-7-6 01:22:54

你好

我想知道我们是否可以通过重命名AutoCAD 2014布局选项卡，从特定图纸标题栏字段中提取信息来实现这一点？

纸张空间中每张纸上的标题栏“Block”为“AnaeCo_Title”

例如，布局选项卡将在包含A1图纸的第1页上显示为。。。。

第1-A1页

例如，布局选项卡将在包含A2图纸的第2页上显示为。。。。

第2-A2页

例如，布局选项卡将在包含A2图纸的第3页上显示为。。。。

第3-A2页

布局选项卡（例如，在包含A3图纸的第4页上）将显示为。。。。

第4页-A3页。。。。。。。。。。。。对于每个图纸选项卡，依此类推。

标签的位置（如所示）：

SHT-板材

每一张纸都可能会有变化。。。当然，关于板材数量，也可能是板材尺寸。

这个lisp可以用来适应上述情况吗？

这一切仍在学习者许可证上。。。。

干杯

DP

Lee Mac · 发表于 2022-7-6 01:25:00

尝试以下快速代码：

copy


([color=BLUE]defun[/color] c:relay ( [color=BLUE]/[/color] a e i l n p s x )
   ([color=BLUE]if[/color] ([color=BLUE]setq[/color] s ([color=BLUE]ssget[/color] [color=MAROON]"_X"[/color] '((0 . [color=MAROON]"INSERT"[/color]) (66 . 1) (2 . [color=MAROON]"AnaeCo_Title"[/color]) (410 . [color=MAROON]"~Model"[/color]))))
       ([color=BLUE]progn[/color]
           ([color=BLUE]repeat[/color] ([color=BLUE]setq[/color] i ([color=BLUE]sslength[/color] s))
               ([color=BLUE]setq[/color] e ([color=BLUE]entnext[/color] ([color=BLUE]ssname[/color] s ([color=BLUE]setq[/color] i ([color=BLUE]1-[/color] i))))
                     x ([color=BLUE]entget[/color] e)
                     a [color=BLUE]nil[/color]
               )
               ([color=BLUE]while[/color] ([color=BLUE]=[/color] [color=MAROON]"ATTRIB"[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 0 x)))
                   ([color=BLUE]setq[/color] a ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] ([color=BLUE]strcase[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 2 x))) ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 1 x))) a)
                         e ([color=BLUE]entnext[/color] e)
                         x ([color=BLUE]entget[/color]  e)
                   )
               )
               ([color=BLUE]setq[/color] l ([color=BLUE]cons[/color] ([color=BLUE]cons[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 410 ([color=BLUE]entget[/color] ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] 330 x))))) a) l))
           )
           ([color=BLUE]vlax-for[/color] x ([color=BLUE]vla-get-layouts[/color] ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color])))
               ([color=BLUE]if[/color]
                   ([color=BLUE]and[/color]
                       ([color=BLUE]setq[/color] a ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] ([color=BLUE]vla-get-name[/color] x) l)))
                       ([color=BLUE]setq[/color] n ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] [color=MAROON]"SHEET_NUM"[/color] a)))
                       ([color=BLUE]setq[/color] p ([color=BLUE]cdr[/color] ([color=BLUE]assoc[/color] [color=MAROON]"SIZE"[/color] a)))
                   )
                   ([color=BLUE]vl-catch-all-apply[/color] '[color=BLUE]vla-put-name[/color] ([color=BLUE]list[/color] x ([color=BLUE]strcat[/color] [color=MAROON]"SHT "[/color] n [color=MAROON]" - "[/color] p [color=MAROON]" SHEET"[/color])))
               )
           )
       )
       ([color=BLUE]princ[/color] [color=MAROON]"\nNo "AnaeCo_Title" blocks found."[/color])
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])