明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1063|回复: 5

[讨论] lisp自定义命令如何在当前打开的所有文档遍历运行

[复制链接]
发表于 2016-4-30 16:02 | 显示全部楼层 |阅读模式
我想用程序实现这个功能,就是在当前文档里面运行自己定义的程序,然后程序根据设定好的参数分别在当前打开的所有文档里面执行一遍,比方说根据设定好的参数在每个文档里面执行一遍A2图纸的批量打印。

下面是部分代码,我想让程序切换到另外一个文档然后执行程序,好像不行,感觉lisp只能在当前文档里面执行,虽然能切换到另外一个文件,但是切换后代码就不执行了,要等回到原来的文档再继续执行,如何才能在新的文档里面执行自定义的命令呢?

如果lisp不能实现是不是可以用scr实现呢,有没有大神给指点一下

cad打开两个文档,在第一个打开的文档里面运行下面的程序
  1. (defun alldocs (/ docs)
  2.   (vlax-map-collection (vla-get-Documents (vlax-get-acad-object))
  3.     (function
  4.       (lambda ( doc )
  5.         (setq docs
  6.           (cons doc docs
  7.           )
  8.         )
  9.       )
  10.     )
  11.   )
  12.   (reverse docs)
  13. )

  14. (defun c:tt( / )
  15.     (vl-load-com)
  16.     (vla-Activate (nth 1 (alldocs)))
  17.     (alert "xx")(princ)
  18. )


"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2016-4-30 18:56 来自手机 | 显示全部楼层
vl-load-all
 楼主| 发表于 2016-4-30 19:03 | 显示全部楼层
ivde 发表于 2016-4-30 18:56
vl-load-all

这样只是在所有文档里面加载了程序,现在的关键问题是如何编写程序能够实现这样的功能。
即在当前文档运行自定义的程序,程序在当前文档运行完后,自动切换到另外一个CAD打开的文档,然后也运行该程序。
发表于 2016-5-6 10:41 | 显示全部楼层
Lisp启用的年代未有多文件模式的架构,只能作用于单文档...

思路:
启用SDI,用Script串接
or
开启空白文档  [undo mark]
循环...
insert 打印文文件 打印文文件程序 [undo Back]
insert 打印文文件 打印文文件程序 [undo Back]
insert 打印文文件 打印文文件程序 [undo Back]
...
循环...
 楼主| 发表于 2016-5-6 11:02 | 显示全部楼层
Andyhon 发表于 2016-5-6 10:41
Lisp启用的年代未有多文件模式的架构,只能作用于单文档...

思路:

谢谢大神解惑

启用SDI,用Script串接
是不是就是用scr脚本来批量切换执行啊
找不到相关的例子或者资料
发表于 2016-5-6 11:49 | 显示全部楼层
Searching with keyword:
ScriptPro "AutoCAD"
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-2-28 14:56 , Processed in 0.152754 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表