GetInterfaceObject Method （ActiveX）

签名

工 务 局：

RetVal = object.GetInterfaceObject(ProgID)

对象

类型：应用

此方法适用的对象。

程序标识

访问：仅输入

类型：字符串

要返回的接口对象的程序 ID。

返回值（RetVal）

类型：对象

与程序 ID 匹配的接口对象。

言论

尽管对象将加载到 AutoCAD 中，但它不会显示在其类型库中。该对象将具有自己的类型库。此方法允许您连接到 ActiveX 自动化服务器。

如果可能，请使用与版本相关的 ProgID。如果方法使用与版本无关的 ProgID，请将该方法更改为使用与版本相关的 ProgID。例如，您将更改为。GetInterfaceObjectAcadLayerStateManagerAcadLayerStateManager.22

例子

工 务 局：

Sub Example_GetInterfaceObject()
    ' This example returns top level object of another application.
    On Error GoTo ERRORHANDLER
    
    Dim poly As Object
    Set poly = ThisDrawing.Application.GetInterfaceObject("Polycad.Application")

ERRORHANDLER:
    MsgBox Err.Description, , "GetInterfaceObject Example"
    
End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_GetInterfaceObject()
    ;; This example returns top level object of another application.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (setq poly (vl-catch-all-apply 'vla-GetInterfaceObject (list acadObj "Polycad.Application")))

    (if (= (type poly)'VL-CATCH-ALL-APPLY-ERROR)
        (alert (strcat "Error occured: \n" (vl-catch-all-error-message poly)))
    )
)