xshrimp的动态菜单显示问题 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz! Archiver

社区 › AutoLISP/Visual LISP 编程技术 › xshrimp的动态菜单显示问题

baolanjun 发表于 2009-7-8 12:44:00

xshrimp的动态菜单显示问题

<pre><font face="Fixedsys" color="#990099">;byxshrimp 2007.1.5</font>
<font face="Fixedsys" color="#990099">;(setq str (gps->popupmenu '("Line" "" "Circle" "Arc")))</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">DEFUN</font>
<font face="Fixedsys">gps->popupmenu</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">MENULST</font>
<font face="Fixedsys" color="#0000ff">/</font>
<font face="Fixedsys">acadobj</font>
<font face="Fixedsys">currmenugroup</font>
<font face="Fixedsys">flag</font>
<font face="Fixedsys">fn</font>
<font face="Fixedsys">menus</font>
<font face="Fixedsys">n</font>
<font face="Fixedsys">newmenu</font>
<font face="Fixedsys">newmenuitem</font>
<font face="Fixedsys">openmacro</font>
<font face="Fixedsys">str</font>
<font face="Fixedsys">thisdoc</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETVAR</font>
<font face="Fixedsys" color="#ff00ff">"cmdecho"</font>
<font face="Fixedsys" color="#009900">0</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETQ</font>
<font face="Fixedsys">FLAG</font>
<font face="Fixedsys" color="#0000ff">nil</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETQ</font>
<font face="Fixedsys">FN</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">OPEN</font>
<font face="Fixedsys" color="#ff00ff">"VbaMenu.mns"</font>
<font face="Fixedsys" color="#ff00ff">"w"</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">CLOSE</font>
<font face="Fixedsys">FN</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETQ</font>
<font face="Fixedsys">ACADOBJ</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vlax-get-acad-object</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETQ</font>
<font face="Fixedsys">THISDOC</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-get-ActiveDocument</font>
<font face="Fixedsys">ACADOBJ</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETQ</font>
<font face="Fixedsys">MENUS</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-get-MenuGroups</font>
<font face="Fixedsys">ACADOBJ</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#990099">;(VLAX-FOR N MENUS (IF (= (vla-get-Name N) "VbaMenu")</font>
<font face="Fixedsys" color="#990099">;    (SETQ FLAG T)</font>
<font face="Fixedsys" color="#990099">;    ) (TERPRI)</font>
<font face="Fixedsys" color="#990099">;)</font>
<font face="Fixedsys" color="#990099">;(IF FLAG</font>
<font face="Fixedsys" color="#990099">; (UnLoadMenuGroup "VbaMenu")</font>
<font face="Fixedsys" color="#990099">;)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">UnLoadMenuGroup</font>
<font face="Fixedsys" color="#ff00ff">"VbaMenu"</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-Load</font>
<font face="Fixedsys">MENUS</font>
<font face="Fixedsys" color="#ff00ff">"VbaMenu.mns"</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETQ</font>
<font face="Fixedsys">CURRMENUGROUP</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-Item</font>
<font face="Fixedsys">MENUS</font>
<font face="Fixedsys" color="#ff00ff">"VbaMenu"</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">IF</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff"><=</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-get-Count</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-get-Menus</font>
<font face="Fixedsys">CURRMENUGROUP</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#009900">0</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">PROGN</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETQ</font>
<font face="Fixedsys">NEWMENU</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-Add</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-get-Menus</font>
<font face="Fixedsys">CURRMENUGROUP</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff00ff">"V&BA Menu"</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">FOREACH</font>
<font face="Fixedsys">N</font>
<font face="Fixedsys">MENULST</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">IF</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">=</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">TYPE</font>
<font face="Fixedsys">N</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">QUOTE</font>
<font face="Fixedsys">STR</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">COND</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">/=</font>
<font face="Fixedsys">N</font>
<font face="Fixedsys" color="#ff00ff">""</font><font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">SETQ</font>
<font face="Fixedsys">OPENMACRO</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">STRCAT</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">CHR</font>
<font face="Fixedsys" color="#009900">3</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">CHR</font>
<font face="Fixedsys" color="#009900">3</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff00ff">"(setq xxx "</font>
<font face="Fixedsys">N</font>
<font face="Fixedsys" color="#ff00ff">")"</font>
      <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">CHR</font>
<font face="Fixedsys" color="#009900">32</font><font face="Fixedsys" color="#ff0000">)</font>
      <font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys">NEWMENUITEM</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-AddMenuItem</font>
<font face="Fixedsys">NEWMENU</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">1+</font>
         <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-get-Count</font>
<font face="Fixedsys">NEWMENU</font><font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys">N</font>
<font face="Fixedsys">OPENMACRO</font>
<font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-put-HelpString</font>
<font face="Fixedsys">NEWMENUITEM</font>
<font face="Fixedsys">N</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">=</font>
<font face="Fixedsys">N</font>
<font face="Fixedsys" color="#ff00ff">""</font><font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-AddSeparator</font>
<font face="Fixedsys">NEWMENU</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">1+</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-get-Count</font>
<font face="Fixedsys">NEWMENU</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-Save</font>
<font face="Fixedsys">CURRMENUGROUP</font>
<font face="Fixedsys">acMenuFileCompiled</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">PRINC</font>
<font face="Fixedsys" color="#ff00ff">"\nThe menu is already loaded"</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">PRIN1</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">MENUCMD</font>
<font face="Fixedsys" color="#ff00ff">"p0=VbaMenu.POP2"</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">MENUCMD</font>
<font face="Fixedsys" color="#ff00ff">"p0=*"</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">defun</font>
<font face="Fixedsys">UnLoadMenuGroup</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">iValue</font>
<font face="Fixedsys" color="#0000ff">/</font>
<font face="Fixedsys">rValue</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">if</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">menugroup</font>
<font face="Fixedsys">iValue</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">progn</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">if</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">not</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vl-catch-all-error-p</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font>
<font face="Fixedsys">rValue</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vl-catch-all-apply</font>
   <font face="Fixedsys" color="#990000">'</font><font face="Fixedsys">vla-unload</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">list</font>
   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-item</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">vla-get-menugroups</font><font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vlax-get-acad-object</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys">iValue</font><font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">)</font>
   <font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font>
<font face="Fixedsys">rValue</font>
<font face="Fixedsys" color="#0000ff">T</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys">rValue</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>

<font face="Fixedsys" color="#ff0000">)</font></pre><pre>
<font face="Fixedsys" color="#ff0000"><font color="#990099" style="BACKGROUND-COLOR: #cccccc;">(gps->popupmenu '("Line" "" "Circle" "Arc"))</font></font></pre><pre>(vla-Load MENUS "VbaMenu.mns") <br/>在CAD2004下OK<br/>这句话，在CAD2006下面不能使用。 <br/>; 错误: Automation 错误。参数 VbaMenu.mns (位于 Load 中) 无效 <br/><br/>会不会是因为CAD2006下使用了cui。 <br/><br/>请问怎么解决 </pre>

cjun2258 发表于 2009-9-17 21:32:00

我在2004下可以用，但不知道如何獲取選取值

asdfxx 发表于 2009-9-18 08:47:00

海盗曹 发表于 2013-5-4 23:56:00

来学习一下，找了好久啊~

页: [1]

查看完整版本: xshrimp的动态菜单显示问题