如何在EXCEL中打开CAD后执行CAD自定义函数后正常返回，再执行下面的语句？

淹不死的鱼

在CAD中有自定义函数如(defun c:1()....    在在EXCEL中打开CAD后执行CAD自定义函数（c：1）后正常返回，再执行VBA下面的语句？

约定的童话

在Excel中打开CAD后执行CAD自定义函数需要使用VBA编写宏。以下是一个示例：

复制
Sub RunCADFunction()
    Dim cadApp As Object
    Set cadApp = GetObject(, "AutoCAD.Application")
    If cadApp Is Nothing Then
        MsgBox "AutoCAD is not running"
        Exit Sub
    End If
   
    '执行CAD自定义函数
    Dim result As Variant
    result = cadApp.ActiveDocument.Application.Invoke("MyCustomFunction", 1, 2)
   
    '检查CAD自定义函数的返回值
    If result = True Then
        '执行下面的语句
        MsgBox "CAD function returned True"
    Else
        MsgBox "CAD function returned False"
    End If
End Sub
在上面的示例中，GetObject函数用于获取正在运行的AutoCAD应用程序实例。然后，使用Invoke方法执行自定义函数并将返回值存储在变量中。最后，检查返回值并执行下一步操作。

请注意，这只是一个示例。实际的代码可能需要根据具体情况进行调整。

淹不死的鱼

首先非常非常感谢高手的指点，对Application.Invoke不是很了解，还没找到相关帮助说明，现在问题：
1、运行时错误，‘438’ ，对象不支持该属性或方法；2、我是要执行子程序如何实现？
result = cadApp.ActiveDocument.Application.Invoke("(jxt_dlbb_T)", 1, 2)  ；jxt_dlbb_T是字程序

淹不死的鱼

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

淹不死的鱼

????????????????????/

淹不死的鱼

？？？？？？？？？？？？

淹不死的鱼

？？？？？？？？？？？？？？、

淹不死的鱼

关键的问题就是由Excel VBA向CAD发送命令后，由用户在CAD进行数据处理，如何再将控制权再转回VBA，再接着执行VBA下面的代码。说白了就是由VBA向CAD发送数据选择指令，由CAD（用户使用CAD处理程序）生成数据再将数据返回到VBA中，由VBA对CAD的数据接着进行下一部处理。。。