所有者 ID 属性 （ActiveX）

签名

工 务 局：

object.OwnerID 

对象

类型：所有图形对象，属性参考，块，块，字典，字典，尺寸，暗淡样式，暗淡样式，组，组，图层，图层，布局，布局，线型，线型，材料，材料，MLeader样式，模型空间，图纸空间，打印配置，打印配置，注册应用程序，注册应用程序，分区管理器，分区设置，排序表，表格样式，文本样式，文本样式，UCS，UCS，视图，视图，视口，视口，X生态

此属性适用的对象。

属性值

只读：是的

类型：Long_PTR

对象所有者的对象 ID。

言论

没有额外的评论。

例子

工 务 局：

Sub Example_OwnerID()
    ' This example creates an MText object in model space
    ' and then finds the OwnerID for the object.
    
    Dim MTextObj As AcadMText
    Dim corner(0 To 2) As Double
    Dim width As Double
    Dim text As String
    corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
    width = 10
    text = "This is the text string for the MText object"

    ' Creates the MText object
    Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
    ZoomAll
    
    MsgBox "The OwnerID for the MText object is: " & MTextObj.OwnerID
    
End Sub

Visual LISP：

(vl-load-com)
(defun c:Example_OwnerID()
    ;; This example creates an MText object in model space
    ;; and then finds the OwnerID for the object.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    (setq corner (vlax-3d-point 0 10 0)
          width 10
          text "This is the text string for the MText object")

    ;; Creates the MText object
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq MTextObj (vla-AddMText modelSpace corner width text))
    (vla-ZoomAll acadObj)
    
    (alert (strcat "The OwnerID for the MText object is: " (itoa (vla-get-OwnerID MTextObj))))
)