[求助]mccad版主，请进

hawk151

With textobj '文字对象
    .Height = textHgt
    .Layer = newlayer.Name  '设置图层
    .Color = acRed          '设置颜色
    .DrawingDirection = 1    '设置书写方向
这里的textobj 怎么定义呢？这么些有什么错误？

hawk151

我觉得应该定义一下textobj，可是我每次都出错，还请执导

mccad

如:
Dim textObj As AcadText
然后在找到文字时可以使用
Set textObj = ...
来指定文字