Chris,
You can load a custom menu with pull downs defined and then initiate those
pull downs anywhere you want at any time with simple "menucmd" from a tool
bar.
Is this not what you need?
Dave Alexander
"Chris Ferris" wrote in message
news:3BB491E5.A063DBE8@hbcommunications.com...
> Greetings all,
>
> If any of you lisp gurus have been following along on my last couple of
> posts, you have probably realized that Menu files are now the bane of my
> existence.
>
> I have been trying to develop a way to switch partial menu files. Most
> specifically Menu slots 12~16. I need to be able to load the partial
> menu files into the ACAD menugroup. One is called schemat.mns with the
> menugroup defined as HB_Schemat, the other is called Arch.mns with
> menugroup HB_Arch. And for the life of me I can't make it work.
>
> I've gotten some help from Cliff Middleton. But I am trying to use
> other methods (I'm sorry Cliff, but if I can't understand the code, I
> won't put it into a production environment, but I imagine that your code
> will teach me a lot in the long run). After looking into no-Help files,
> I found out a way to do this using the (menugroup) Lisp command. I used
> the syntax that they recommended, and it still doesn't work. I even went
> to the trouble of loading the HB_Schemat using MENULOAD.
>
> I am running AutoCAD 2000 SP2 on a WINNT 4.0 SP6a 256MB RAM.
>
> Below is a code snippet I am using
>
> CMF
>
> ;; Beginning of menu file
>
> //
> // AutoCAD menu file - C:\Program
> Files\Acad2000\support\HB_Schemat.mnc
> //
>
> ***MENUGROUP=HB_SCHEMAT
>
> ***POP1
> **Video Equip
>
> ID_Video Equip [Video E&quip]
> [->S&witchers]
> [->&RGB]
> [->&12x8]
> [&Five Wire]^C^C(setq EQ_NAME "RGBSW");(setq RGB_DWG
> "Crspt128HVA");RGB_SW;
> [F&our Wire]^C^C(setq EQ_NAME "RGBSW");(setq RGB_DWG
> "Crspt128A");RGB_SW;
> [<-5 Wire &Compact]^C^C(setq EQ_NAME "RGBSW");(setq RGB_DWG
> "Crspt128HVA_5BNC");RGB_SW;
> [->&8x4]
> [&Five Wire]^C^C(setq EQ_NAME "RGBSW");(setq RGB_DWG
> "Crspt84HVA");RGB_SW;
> [F&our Wire]^C^C(setq EQ_NAME "RGBSW");(setq RGB_DWG
> "Crspt84A");RGB_SW;
> [<-5 Wire &Compact]^C^C(setq EQ_NAME "RGBSW");(setq RGB_DWG
> "Crspt84HVA_5BNC");RGB_SW;
> [&4x1]^C^C(setq EQ_NAME "RGBSW");(setq RGB_DWG
> "SW4ARMXHV");RGB_SW;
> [<-&2x1]^C^C(setq EQ_NAME "RGBSW");(setq RGB_DWG
> "SW2ARHVxi");RGB_SW;
> [->VGA/&XGA]
> [<-2x2 Switcher/&DA]^C^C(setq EQ_NAME "VGASW");(setq VGA_DWG
> "SW2VGADA2A.dwg");VGA_SW;
> [->S&ystem]
> [System &5CR]^C^C(setq EQ_NAME "SYSSW");(setq SYS_DWG
> "SYSTEM5CR");SYS_SW;
> [System &7SC]^C^C(setq EQ_NAME "SYSSW");(setq SYS_DWG
> "SYSTEM7SC");SYS_SW;
> [<-System &8+]^C^C(setq EQ_NAME "SYSSW");(setq SYS_DWG
> "SYSTEM8");SYS_SW;
> [--]
> [->&Video]
> [6x1 &Composite]^C^C(setq EQ_NAME "CVIDSW");(setq VIDS_DWG
> "Sw6-cvmx");VID_SW;
> [&6x1 Comp and Stereo Aud]^C^C(setq EQ_NAME "CVIDSW");(setq
> VIDS_DWG "SW6-AVMX");VID_SW;
> [6x&2 Comp and Stereo Aud]^C^C(setq EQ_NAME "CVIDSW");(setq
> VIDS_DWG "MAV62");VID_SW;
> [<-&16x16 Comp and Stereo Aud]^C^C(setq EQ_NAME "CVIDSW");(setq
> VIDS_DWG "MAV1616");VID_SW;
> [->&Svideo]
> [&Svideo and Stereo Aud Matrix]^C^C(setq EQ_NAME "SVIDSW");(setq
> VIDS_DWG "MATRIX50_SVID_A");VID_SW;
> [<-<-Svideo/&Video Transcoding Switcher]^C^C(setq EQ_NAME
> "SVIDSW");(setq VID_DWG "YCSSW6MX");VID_SW;
>
> ;; Menu file continues, but it is unimportant
>
> ;; Beginning of Lisp File
>
> (defun c:schemat ()
> (menugroup "P12=HB_SCHEMAT.Video Equip")
> (menugroup "P12=*")
> )
>
> ;;Beginning of Alternate Lisp file
>
> (defun c:schemat ()
> (menugroup "GACAD.MNWINDOW= +HB_SCHEMAT.Video Equip")
> )
>
>