hawk151 发表于 2003-6-20 13:11:00

[求助]mccad版主，请进

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

hawk151 发表于 2003-6-20 13:42:00

我改不对

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

mccad 发表于 2003-6-20 16:24:00

首先你必须把textobj定义为文字，再通过选择的方法把屏幕上的文字赋值给它

如:
Dim textObj As AcadText
然后在找到文字时可以使用
Set textObj = ...
来指定文字
页: [1]
查看完整版本: [求助]mccad版主，请进