[求助]：怎样使输入框为空时，程序也能运行

persistence2006

我在编一个标题栏的程序，当文本框输入值是空时，系统提示下面的程序的：“对象变量或with块变量未设置”，而有输入值时，就能正常运行。程序是引用《AutoCAD二次开发教程》的代码是没问题的，只是标题栏在实际使用时，不是一次全都添加的。请高手帮忙，该怎样修改呢？


' 在给定的矩形区域内创建属性定义，属性文字放置在矩形的中心
Private Function DrawAttributeRec(ByVal ptInsert As Variant, ByVal strText As String, ByVal height As Double, _
    ByVal widthRec As Double, ByVal heightRec As Double) As AcadAttribute
    Dim objAttribute As AcadAttribute
    Dim ptTemp(0 To 2) As Double
    ptTemp(0) = ptInsert(0) + widthRec / 2
    ptTemp(1) = ptInsert(1) + heightRec / 2
    ptTemp(2) = ptInsert(2)
   
    Set objAttribute = ThisDrawing.Blocks.Item("标题栏").AddAttribute(height, 0, "请输入" & strText & ":", _
                        ptTemp, strText, strText)
    '调整文字的对齐方式
    objAttribute.Alignment = acAlignmentMiddleCenter
    objAttribute.TextAlignmentPoint = ptTemp
    objAttribute.Update
   
    Set DrawAttributeRec = objAttribute
End Function

雪山飞狐(lzh)

确定你的文件里确实有名为“标题栏”的块定义

persistence2006

lzh741206  斑竹 你好：
感谢你的帮助，但我查过了
AddAttribute(Height As Double, Mode As AcAttributeMode, Prompt As String, InsertionPoint, Tag As String, Value As String)
其中 tag 和 value 不能为空，而程序里都被付上了strText，strText正是标题栏的输入内容，所以一为空就出现错误，我给他们付了初值，但不理想，要想实现为空也能好使，我该怎么做呢？

雪山飞狐(lzh)

既然tag 和 value 不能为空，就一定要传值，这没有什么好说得：）

persistence2006

唉！我的意思是：如果我要想实现标题栏逐步添加数据的功能，使用什么函数？
在autocad菜单里有编辑属性，标记，提示，值都可以为空，在重新调用时，置空也可以使用，我想用vba实现这样的功能，这样我可以通过程序控制添加的数据，形成表格，被外部程序调取：）

雪山飞狐(lzh)

这种程序，我一般直接做成图块文件，在VBA里插入

persistence2006

那样简单多了,谢谢高手!