社区 › Auto Lisp › 如何在多个dra上运行lisp

MR MAN 发表于 2022-7-6 14:29:31

如何在多个dra上运行lisp

在下面的vba中，我尝试对许多图形运行lisp（其名称为b0），但它给出了这个错误消息
对象“Iaxdbdocument”的方法“open”失败
而它打开一张图纸才给出上述信息
有人能帮我解决这个问题吗
 
vba程序：
私有子runlisp（）
设置objdbx=GetInterfaceObject（“ObjectDBX.AxDbDocument.17”）
Dim inDir作为字符串
Dim filenom作为字符串
作为字符串的Dim WholeFile
inDir=“C:\我的”
filenom=Dir$（inDir和“\*.dwg”）
Do While filenom“”
此图纸。SendCommand“b0”和vbCr
WholeFile=inDir&“\”&filenom
objdbx。打开WholeFile
filenom=Dir$
此图纸。公用事业提示vbCrLf
环
设置objdbx=Nothing
末端接头

VVA 发表于 2022-7-6 14:55:01

有可能，它会靠近
OpenDwgsCmds是一组函数，用于在所有打开的图形上执行命令和函数列表。CDC函数“当前图形命令”允许您在当前图形上测试这些命令和功能。ODC函数Open Drawings Commands在所有打开的图形上执行这些命令和函数。包括几个编程实用程序。

fuccaro 发表于 2022-7-6 15:16:59

可以在许多文件上运行lisp。请参见此处：http://www.cadtutor.net/forum/showthread.php?t=19294

Lee Mac 发表于 2022-7-6 15:43:39

您可以使用多种方法-请参阅此处了解更多详细信息：
 
http://www.cadtutor.net/forum/showthread.php?t=35060

查看完整版本: 如何在多个dra上运行lisp