Replace メソッド(ActiveX)

ディクショナリ内の項目を、与えられた項目に置き換えます。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.Replace Name, NewObject

object

タイプ: Dictionary

このメソッドが適用されるオブジェクト。

Name

アクセス: 入力のみ

タイプ: 文字列

置き換えられるオブジェクトの名前(キーワード)。

NewObject

アクセス: 入力のみ

タイプ: Object

新しいオブジェクト。

戻り値(RetVal)

戻り値はありません。

注意

たとえば、次のようなディクショナリで、"FirstKeyword" という名前のオブジェクトを置き換えます。

• MyDictionary
• Keyword オブジェクト
• FirstKeyword Object1
• SecondKeyword Object2

新しいオブジェクト「NewObject」によって、次のようなディクショナリになります。

• MyDictionary
• Keyword オブジェクト
• FirstKeyword NewObject
• SecondKeyword Object2

例

VBA:

Sub Example_Replace()
    ' This example creates a dictionary and adds
    ' a custom object to that dictionary. It then
    ' replaces the object in the dictionary.
    
    Dim dictObj As AcadDictionary
    Set dictObj = ThisDrawing.Dictionaries.Add("TEST_DICTIONARY")
    
    ' 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"
    
    ' Create the custom object in the dictionary
    Dim keyName As String
    Dim className As String
    Dim customObj As AcadObject
    
    keyName = "OBJ1"
    className = "CAsdkDictObject"
    
    Set customObj = dictObj.AddObject(keyName, className)
    
    ' Replace the object from the dictionary with a different object
    Dim newCustomObject As AcadObject
    dictObj.Replace keyName, newCustomObject
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_Replace()
    ;; This example creates a dictionary and adds
    ;; a custom object to that dictionary. It then
    ;; replaces the object in the dictionary.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq dictionaries (vla-get-Dictionaries doc))
  
    (setq dictObj (vla-Add dictionaries "TEST_DICTIONARY"))
    
    ;; 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")
    
    ;; Create the custom object in the dictionary
    (setq keyName "OBJ1")
    (setq className "CAsdkDictObject")
    
    (setq customObj (vla-AddObject dictObj keyName className))
    
    ;; Replace the object from the dictionary with a different object
    (setq newCustomObject (vlax-make-variant))
    (vlax-variant-type newCustomObject vlax-vbObject)
    (vla-Replace dictObj keyName newCustomObject)
)