将多个 dwg 中的布局选项卡计数为“一个”文件

T-Square · 发表于 2013-1-17 14:24:53

大家好，
有人有lisp程序可以将多个dwg文件中的布局选项卡计算到一个文件中吗？
我发现了几种在dwg命令中计算布局的方法:(layoutlist)但是需要用多个布局选项卡计算多个dwg文件。希望找出这个项目中有多少布局标签(表)。
我在AUGI的一个线程中找到了下面的代码，它会将文本文件创建到“Local Settings\Temp”文件夹中。

copy

(setq fn (strcat (getenv "temp") "\" "layoutlist.txt")
      fp (open fn "w")
)      
(vlax-for x
          (vla-get-Layouts
            (vla-get-ActiveDocument
              (vlax-get-acad-object)
            )
          )
          (princ (vla-get-Name x) fp)
          (princ "\n" fp)
)
(close fp)
(startapp "notepad" fn)

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

ronjonp · 发表于 2013-1-17 14:50:12

使用Lee的OBDX包装器：http://lee-mac.com/odbxbase.html
这是一个很好的例子

copy

(defun c:test3 ( / )
    (LM:ODBX
      '(lambda ( doc ) (vla-get-count (vla-get-layouts doc)))
       nil
       nil
    )
)

T-Square · 发表于 2013-1-17 15:02:32

ronjonp，
试过了。做了点什么。哈哈哈...带有布局列表的文件将放在哪里？叫？
我确实在他的网页上看到“将列表提取到文件”，不确定我是否可以弄清楚如何使其工作。编码虚拟。
谢谢。
提姆

ronjonp · 发表于 2013-1-17 15:14:33

这将写入您的文本文件：

copy

(defun c:test3 (/ fn fp)
  (setq        fn (strcat (getenv "temp") "\" "layoutlist.txt")
        fp (open fn "w")
  )
  (foreach line        (lm:odbx '(lambda (doc) (vla-get-count (vla-get-layouts doc))) nil nil)
    (write-line (vl-prin1-to-string line) fp)
  )
  (close fp)
  (startapp "notepad" fn)
)

T-Square · 发表于 2013-1-17 15:25:45

适合我的需要。通过在excel中引入一些小的调整，然后一些查找并替换最后的数字，一些=和，神奇的数字出现。这肯定能满足我的需要。第一个文件夹中的390个布局选项卡（图纸）。还有9个文件夹要去。哈哈哈，我估计差不多有2000张
蒂姆

ronjonp · 发表于 2013-1-17 15:39:20

很高兴能帮忙...还要记住，布局的数量还包括“模型空间”选项卡。

将多个 dwg 中的布局选项卡计数为“一个”文件

发表回复

精选推荐