放置文字对象到"文字"图层怎么老是失败！

qsl707 · 发表于 2006-8-23 09:13:00

    '放置文字对象到"文字"图层
    gpCode(0) = 0
    dataValue(0) = "text"

    groupCode = gpCode
    dataCode = dataValue

    ObjSelectionSet.Select Mode, , , groupCode, dataCode

    For Each Entry In ObjSelectionSet
        Entry.Layer = "Text"
        Entry.Update
    Next Entry
    ObjSelectionSet.Clear

wyj7485 · 发表于 2006-8-24 08:37:00

确认是否建立了"Text"层

groupCode = gpCode
    dataCode = dataValue

    ObjSelectionSet.Select Mode, , , groupCode, dataCode
没必要吧,直接

ObjSelectionSet.Select Mode, , , gpCode
, dataValue

账号		自动登录	找回密码
密码			注册