参数标记无效

Question

我正在 Autocad 中对块插入进行一些自定义。设置属性时，我的程序出现错误：

"Invalid argument Tag in setting TagString"

代码如下：

Sub Ch10_GettingAttributes()
 ' Create the block
 Dim blockObj As AcadBlock
 Dim insertionPnt(0 To 2) As Double
 insertionPnt(0) = 0
 insertionPnt(1) = 0
 insertionPnt(2) = 0
 Set blockObj = ThisDrawing.Blocks.Add _
 (insertionPnt, "TESTBLOCK")

 ' Define the attribute definition
 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
 height = 1#
 mode = acAttributeModeVerify
 prompt = "Attribute Prompt"
 insertionPoint(0) = 5
 insertionPoint(1) = 5
 insertionPoint(2) = 0
 tag = "Attribute Tag"
 value = "Attribute Value"

 ' Create the attribute definition object on the block
 Set attributeObj = blockObj.AddAttribute(height, mode,_
prompt, insertionPoint, tag, value)

 End Sub

什么会导致此错误？

Answer 1

好吧，错误信息相当明确，你有一个 "Invalid argument Tag in setting TagString"

所以只需删除标签值中的 space 就可以了。它不支持 spaces.

tag = "Attribute Tag" 'BAD
tag = "AttributeTag" 'OK

参数标记无效

Invalid argument tag

vba

autocad