如何在多个dra上运行lisp

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

在下面的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
末端接头