TagString プロパティ(ActiveX)

オブジェクトのタグ文字列を指定します。

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

構文と要素

VBA:

object.TagString

object

タイプ: Attribute、AttributeReference、PopupMenu、PopupMenuItem、Toolbar、ToolbarItem

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ(PopupMenu および Toolbar オブジェクトを除く)

タイプ: 文字列

オブジェクトのタグ文字列

注意

Attribute、AttributeReference: この文字列は、属性を識別するためのものです。スペースと感嘆符以外のどんな文字でも使用できます。小文字は自動的に大文字に変更されます。

PopupMenu、PopupMenuItem、Toolbar, ToolbarItem: タグ(名前タグ)は、英数字とアンダースコア(_)文字で構成される文字列です。この文字列によって、カスタマイズ ファイル内の項目が特定されます。この文字列はオブジェクトの作成時に自動的に割り当てられ、ツールバーとメニューを識別するために AutoCAD 内部で使用されます。ほとんどの開発者は、このレベルの識別を必要としないため TagString プロパティについては、無視して問題ありません。

例

VBA:

Sub Example_TagString()
    ' This example creates an attribute definition in model space.
    ' It then queries the tag string for the attribute, changes
    ' the tag string, and displays the new tag string.
    
    Dim attributeObj As AcadAttribute
    Dim height As Double
    Dim mode As Long
    Dim prompt As String
    Dim insertionPoint(0 To 2) As Double
    Dim tag As String
    Dim value As String
    
    ' Define the attribute definition
    height = 1#
    mode = acAttributeModeVerify
    prompt = "New Prompt"
    insertionPoint(0) = 5#: insertionPoint(1) = 5#: insertionPoint(2) = 0
    tag = "NEW_TAG"
    value = "New Value"
    
    ' Create the attribute definition object in model space
    Set attributeObj = ThisDrawing.ModelSpace.AddAttribute(height, mode, prompt, insertionPoint, tag, value)
    ZoomAll
    
    ' Find the current tag string for the attribute
    tag = attributeObj.TagString
    MsgBox "The current tag string for the attribute is " & tag, , "TagString Example"
    
    ' Change the tag string for the attribute
    attributeObj.TagString = "UPDATED_TAG"
    attributeObj.Update
    tag = attributeObj.TagString
    MsgBox "The new tag string for the attribute is " & tag, , "TagString Example"
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_TagString()
    ;; This example creates an attribute definition in model space.
    ;; It then queries the tag string for the attribute, changes
    ;; the tag string, and displays the new tag string.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define the attribute definition
    (setq insertionPoint (vlax-3d-point 5 5 0) 
          attHeight 1
          attMode acAttributeModeVerify
          attPrompt "New Prompt"
          attTag "NEW_TAG"
          attValue "New Value")
    
    ;; Create the attribute definition object in model space
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq attributeObj (vla-AddAttribute modelSpace attHeight attMode attPrompt insertionPoint attTag attValue))
    (vla-ZoomAll acadObj)
    
    ;; Find the current tag string for the attribute
    (setq tag (vla-get-TagString attributeObj))
    (alert (strcat "The current tag string for the attribute is " tag))
    
    ;; Change the tag string for the attribute
    (vla-put-TagString attributeObj "UPDATED_TAG")
    (vla-Update attributeObj)
    (setq tag (vla-get-TagString attributeObj))
    (alert (strcat "The new tag string for the attribute is " tag))
)