PullDown Menu

[MarcelGoulet]

Hi,

How I can know, if a certain pulldown menu is displayed are not in a autoCad session using lisp ou vlisp ?

The menu can be loaded, but the popup is not displayed.

For exemple, if I want to know if Express pulldown menu is displayed ? How I can know that ?

Thanks,

Marcel

 

[Rudy Tovar]

Pulldown Menus

(if (not (menugroup "<Yourpulldown>"))(command "menuload" "c:/Program Files/AutoCAD 2004/Your Menu/Yourmenu.mns"))

Hi,
How I can know, if a certain pulldown menu is displayed are not in a

autoCad session using lisp ou vlisp ?

 

[Jason Piercey]

Did my answer to your previous thread on August 15th not solve your problem?

 

[R. Robert Bell]

(defun rrbI:IsPopupDisplayed (popName / Found)
(vl-Load-Com)
(vlax-Map-Collection
(vla-Get-MenuBar (vlax-Get-Acad-Object))
(function
(lambda (objPopup)
(cond ((= popName (vla-Get-NameNoMnemonic objPopup))
(setq Found T))))))
Found)

_$ (rrbI:IsPopupDisplayed "Express")
T

_$ (rrbI:IsPopupDisplayed "dsfsdfs")
nil

 

[R. Robert Bell]

sho' nuff is!

 

[Rudy Tovar]

You're right. I had that worked out once, I can't remember how I did it anymore.

I'm getting too old....

 

[R. Robert Bell]

That's why I prefer the NameNoMnemonic property; you don't have to mess with all those ampersands (&).

--
R. Robert Bell, MCSE
www.AcadX.com

"Luis Esquivel" <www.draftteam.com> wrote:
| What Robert posted is the way to go.
|
| here is an alternative:
|
| (vlax-for i (vla-Get-MenuBar (vlax-Get-Acad-Object)) (print (vla-get-name | i))) | "&File" | "&Edit" | "&View" | "&Insert" | "F&ormat" | "&Tools" | "&Draw" | "Dime&nsion" | "&Modify" | "E&xpress" | "&Window" | "D&raftTeam" | "D&raftTeam" | _$ | | and by following the above naming | | (if (not | (vl-catch-all-error-p | (setq | obj (vl-catch-all-apply | 'vla-item | (list (vla-Get-MenuBar (vlax-Get-Acad-Object)) | "&Window"))))) | (vla-get-onmenubar obj)) | | it will return :vlax-true or' :vlax-false | |

 

[Doug Broad]

Very nice Robert! Is string case important?

 

[R. Robert Bell]

You know as well as I do <vbg>. I like to match what I see on the pop menu's label, so I didn't force case matching.

--
R. Robert Bell, MCSE
www.AcadX.com

| Very nice Robert! Is string case important?
|
| | > sho' nuff is!
| >
| > --
| > R. Robert Bell, MCSE
| > www.AcadX.com
| >
| >
| > | > | ah yes.... and vla-Get-NameNoMnemonic sure is handy | > | | > | > | |

 

[R. Robert Bell]

Happy to help.

 

[Doug Broad]

<bwa ha ha> ;-)
jes had ta du it.

 

[R. Robert Bell]

Hang wit' Doug and I fer' 'bout a mont' r tu, an' yuall git it then.

 

[Murph]

http://tinyurl.com/khyx

<g>
Murph