AddCustomObject Method （ActiveX）

签名

工 务 局：

RetVal = object.AddCustomObject(ClassName)

对象

类型：块，模型空间，图纸空间

此方法适用的对象。

类名

访问：仅输入

类型：字符串

必须在 ObjectARX 应用程序 （ObjectARX®DLL） 中定义 rxClassName，否则该方法将失败。

返回值（RetVal）

类型：自定义对象

新创建的自定义对象。

言论

必须加载定义 rxClassName 自定义类的 ObjectARX DLL。在应用程序对象上使用 LoadARX 方法显式加载 ObjectARX 文件。

例子

工 务 局：

Sub Example_AddCustomObject()
    ' This example adds a custom object to model space.
    
    ' Load the ObjectARX application that defines the custom object.
    ' Note: The application listed here does not exist and
    ' will cause an error when run. Change the application name
    ' to the path and name of your ObjectARX Application.
    ThisDrawing.Application.LoadArx "MyARXApp.dll"
    
    ' Once the application has been loaded successfully,
    ' add the custom object to model space.
    Dim customObj As AcadObject
    Set customObj = ThisDrawing.ModelSpace.AddCustomObject("MyNewObject")
End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_AddCustomObject()
    ;; This example adds a custom object to model space.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; Load the ObjectARX application that defines the custom object.
    ;; Note: The application listed here does not exist and
    ;; will cause an error when run. Change the application name
    ;; to the path and name of your ObjectARX Application.
    (vla-LoadArx acadObj "MyARXApp.dll")
    
    ;; Once the application has been loaded successfully,
    ;; add the custom object to model space.
    (setq customObj (vla-AddCustomObject (vla-get-ModelSpace doc) "MyNewObject"))
)