Help with right click menu

I have modified my ***POP502 (from the acad.mnu/mns) to add some items and
condense them into flyouts. The problem arises when I select something
first, then right click (except for a generic line). When the special pop
menus (504 dimensions, 505 viewports, 506 xrefs, etc) get added to the menu,
my flyout headers get messed up. The flyouts themselves seem to be okay. I
have played with not having flyouts for different sections, but the problem
still arises. I was hoping someone out there might see something I am
missing or know why this isn't possible. Here is my pop:

Thanks in advance,

Jeff



***POP502
**CMEDIT
[Context menu for edit mode]
ID_CMSelLast [&Repeat %s]^C^C;
[--]
[->Copy/Paste]
ID_Cutclip [Cu&t]^C^C_cutclip
ID_Copyclip [&Copy]^C^C_copyclip
ID_Copybase [Copy with &Base Point]^C^C_copybase
ID_Pasteclip [&Paste]^C^C_pasteclip
ID_Pastebloc [Paste as Bloc&k]^C^C_pasteblock
ID_Pasteorig [<-Paste to Original Coor&dinates]^C^C_pasteorig
[--]
ID_MnModify [->&Modify]
ID_Erase [&Erase]^C^C_erase
[--]
ID_Move
[&Move]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_move,^C^C_move)
ID_Copy [Cop&y
Selection]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_copy,^C^C_cop
y)
ID_Scale
[Sca&le]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_scale,^C^C_scal
e)
ID_Rotate
[R&otate]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate,^C^C_ro
tate)
ID_Mirror
[M&irror]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_mirror,^C^C_mi
rror)
ID_Explode [E&xplode]^C^C_explode
[--]
ID_Pedit [<-Polyline Ed&it]^C^C_pedit
[--]
ID_MnOrder [->Display &Order]
ID_DrawordeF [Bring to &Front]^C^C^P(ai_draworder "_f") ^P
ID_DrawordeB [Send to &Back]^C^C^P(ai_draworder "_b") ^P
[--]
ID_DrawordeA [Bring &Above Object]^C^C^P(ai_draworder "_a") ^P
ID_DrawordeU [<-Send &Under Object]^C^C^P(ai_draworder "_u") ^P
[--]
ID_Deselectall [Deselect &All]^C^C^P(ai_deselect) ^P
[--]
ID_Filter [&Quick Select...]^C^C_qselect
ID_TextFind [&Find...]^C^C_find
ID_Ai_propch [Propertie&s]^C^C_properties

 

Try this modification:
//Modified pop 502
***POP502
**CMEDIT
[Context menu for edit mode]
ID_CMSelLast [&Repeat %s]^C^C;
[--]
ID_Copypaste [->Copy/Paste]
ID_Cutclip [Cu&t]^C^C_cutclip
ID_Copyclip [&Copy]^C^C_copyclip
ID_Copybase [Copy with &Base Point]^C^C_copybase
ID_Pasteclip [&Paste]^C^C_pasteclip
ID_Pastebloc [Paste as Bloc&k]^C^C_pasteblock
ID_Pasteorig [<-Paste to Original Coor&dinates]^C^C_pasteorig
[--]
ID_MnModify [->&Modify]
ID_Erase [&Erase]^C^C_erase
[--]
ID_Move [&Move]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_move,^C^C_move)
ID_Copy [Cop&y Selection]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_copy,^C^C_copy)
ID_Scale [Sca&le]$M=$(if,$(eq,$(substr,$(getvar,cmdn ames),1,4),GRIP),_scale,^C^C_scale)
ID_Rotate [R&otate]$M=$(if,$(e q,$(substr,$(getvar,cmdnames),1,4),GRIP),_rotate,^C^C_rotate)
ID_Mirror [M&irror]$M=$(if,$(eq,$(substr,$(getvar,cmdnames),1,4),GRIP),_mirror,^C^C_ mirror)
ID_Explode [E&xplode]^C^C_explode
[--]
ID_Pedit [<-Polyline Ed&it]^C^C_pedit
[--]
ID_MnOrder [->Display &Order]
ID_DrawordeF [Bring to &Front]^C^C^P(ai_draworder "_f") ^P
ID_DrawordeB [Send to &Back]^C^C^P(ai_draworder "_b") ^P
[--]
ID_DrawordeA [Bring &Above Object]^C^C^P(ai_draworder "_a") ^P
ID_DrawordeU [<-Send &Under Object]^C^C^P(ai_draworder "_u") ^P
[--]
ID_Deselectall [Deselect &All]^C^C^P(ai_deselect) ^P
[--]
ID_Filter [&Quick Select...]^C^C_qselect
ID_TextFind [&Find...]^C^C_find
ID_Ai_propch [Propertie&s]^C^C_properties

You missed the ID on the 1st fly-out [->Copy/Paste]

Bob

 

Thanks for the suggestion Bob. However it didn't correct the issue. I'm at
a loss. Maybe you can't yet modify these menus in this fashion. Bummer.

Jeff

 

Well,
Another thing to check for is unique ID's. Make sure that all
of the 5xx series pops have unique ID's. Print that section out
and check it.

Bob

 

I did look for those as well. I noticed that none of the flyout ID's (the
ones from the pull-downs) had helpstrings. I am continuing to look for the
solution. If I find one, I will post it.

Jeff