- (vlax-for for-item
- (vla-get-MenuGroups
- (vlax-get-acad-object)
- )
- (if (equal "ACAD" (vla-get-name for-item))
- (progn
- (vlax-for for-item1 (vla-get-menus for-item)
- (if (equal :vlax-true (vla-get-ShortcutMenu for-item1))
- (progn
- (vla-AddMenuItem (vla-AddSubMenu for-item1 0 "New1") 0 "new3" " ")
- )
- )
- )
- )
- )
- )
|