使用vla-put-TagString对菜单ID进行更改出错！！

NetBee

在使用vla-put-TagString对新添加的子菜单项vla-AddSubMenu进行ID更改时出错，但在对原有子菜单项却是能更改。不知什么原因

(setq
   newMenuItem
    (vla-AddSubMenu
      MenuID
      MnuCount
      (car tmp)
    ) ;_ 结束vla-AddMenuItem
        ) ;_ 结束setq
        (vla-put-TagString newMenuItem (strcat TagStr (substr (car tmp) 1 4)))

NetBee

找到原因了，添加子菜单项返回的是子菜单项的菜单集容器

    (vla-put-TagString (vla-get-parent newMenuItem) (strcat TagStr (substr (car tmp) 1 4)))