CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2024 开发者帮助 › 查看内容

AutoCAD 2024 开发者帮助

GetInterfaceObject 方法（ActiveX）

2024-5-18 19:07| 发布者: admin| 查看: 175| 评论: 0|原作者: admin|来自: AutoCAD

接受程序 ID 并尝试将其作为进程内服务器加载到 AutoCAD 中。

支持的平台：仅限 AutoCAD for Windows;AutoCAD LT for Windows 不支持

签名

VBA：

RetVal = object.GetInterfaceObject(ProgID)

对象

类型： 应用

此方法应用到的对象。

项目 ID

访问：仅输入

类型：字符串

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

返回值（RetVal）

类型：对象

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

言论

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

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

例子

VBA：

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

可视化 LISP：

(vl-load-com)
(defun c:Example_GetInterfaceObject()
    ;; This example returns top level object of another application.
    (setq acadObj (vlax-get-acad-object)
          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)))
    )
)