LISP表示中的总张数

brawleyman · 发表于 2022-7-5 16:53:27

我已经创建了一个标题栏，可以自动填写来自的几乎所有信息。项目的DST文件（项目编号、名称、起草人、审核人、创建日期、页码等）。现在，我有一个自定义属性，我只是填写总张数，但我希望它可以成为自动。

我一直在搜索，但显然没有任何东西可以记录一个图纸集中的图纸总数。是否有LISP例程可以提取该信息，以便我可以将其放在标题栏的字段中？

谢谢

BIGAL · 发表于 2022-7-5 17:02:47

每个打印页使用1个布局选项卡。我知道您可以获得布局选项卡的列表，因此打印页的总数不确定这是否是您要在此处搜索代码的内容（布局选项卡）

另一次尝试，我们有一个自动更新标题栏的系统，它可以让我计算更新的标题栏的数量，因此这可能适用于你现在如果你已经更新了标题栏，这只意味着第二次通过。

Commandobill · 发表于 2022-7-5 17:07:04

这将返回图形中有多少选项卡。。。这就是你要找的吗？

copy

(length(layoutlist))

Lee Mac · 发表于 2022-7-5 17:13:36

如果您希望通过LISP操作图纸集管理器，我认为这相当困难（无论如何我不知道），我认为它运行在COM接口上。

brawleyman · 发表于 2022-7-5 17:19:10

对于每个项目，将有几个图形文件（一个用于平面布置图，一个用于立管、详图等）。每个图形文件都有多个带有标题栏的选项卡。

我希望有一种方法可以在不需要手动输入的情况下对图纸集中的所有图纸进行计数。我想我必须等到他们在2010年或以后推出一些东西。。。

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

正如CommandoBill所说，如果要计算每个图形中的选项卡数：

copy

(length (layoutlist))

Will做到了-你可以在很多画上运行这个，然后合计总数-这就是你想要的吗？

BIGAL · 发表于 2022-7-5 17:34:46

如果您编写一个脚本来打开所有图形，然后运行（length（layoutlist））将答案写入一个txt文件，比如称为project-name with 2 columns tab no dwgname。然后，您可以在任何图形中读取图纸总数。或者总是重读所有图纸并更新页码。如果你插入了一个选项卡，你只需要一个图纸列表和正确的顺序，你就可以变得更聪明一些，并对所有图纸重新编号。

我建议两个项目。

只是另一个想法做一个测试运行（不要改变任何事情，但运行检查，一切都是正确的，你已经考虑到了每一张表）。

为了简化工作，您可以使用lisp程序编写脚本，然后以这种方式运行（命令“script”myscript），您只需要如上所述的源txt文件，而不是每次都对脚本进行硬编码。（phew第三个项目）

Lee Mac · 发表于 2022-7-5 17:36:48

好吧，如果你愿意的话，我会帮你开始的。。。这里是程序1。。。

copy


(defun c:shtcnt (/ path ofile)
 (setq path "[color=Red][b]C:\\sheet.txt[/b][/color]")
 
 (setq ofile (open path "a"))
 (write-line (itoa (length (layoutlist))) ofile)
 (close ofile)
 (princ))