如何在文档集合循环

霹雳啪啦啦 · 发表于 2006-11-13 11:14

使用了下列代码，在打开的图纸中循环，但是失败了：

(setq docs (vla-get-documents acadobject))

(vlax-for docitem docs
    (vla-activate docitem)

    )

不知道为什么，程序只激活了一张其他图纸，然后就停住了。然后还有怪事，就是从菜单的窗口去选别的图也不行了，比如现在停在001图，选030图不行，自动跳到002图，然后再选一下030，就跳到003，一直到循环完所有图纸。这样不是变成手动循环了？

有人给个提示吗？

zdfwyh · 发表于 2006-11-13 14:43

应为Lisp程序在每次打开图纸之后就重新加载一遍，所以上次运行的任何结果都将丢失，所以如果用这种方法来执行文档之间的循环是有些困难的，不过也有解决办法，就是用setenv函数将中间变量保存到注册表中，在打开新图纸之后再用getenv来读取这些变量，维持程序的继续运行

霹雳啪啦啦 · 发表于 2006-11-14 13:05

谢谢，原来是这样的啊。不过我只想激活每张图，找到相同的块，然后读取参数，再打印，如此一来好像太麻烦了。

霹雳啪啦啦 · 发表于 2006-11-14 13:12

那我是否可以总结一下，就是Lisp是单文档的？

meflying · 发表于 2006-11-14 16:01

全部使用vla对象操作，不要将别的文档激活到当前文档

zdfwyh · 发表于 2006-11-16 09:03

你还是用VBA去做吧,这样就不用考虑这些问题了,不过还是要单文档状态下进行

账号		自动登录	找回密码
密码			注册