烟雨.江南 发表于 2007-9-29 09:54:00

<p>RM6Select 是你在VBA中定义的一个SUB对吧？</p><p>不用LISP，直接用下面的语句应该就可以了。（偶电脑上的CAD被和谐了，没办法测试。记得应该是这样没错。）</p><p>openMacro = Chr(3) &amp; Chr(3) &amp; "-VBARUN RM6Select" &amp; Chr(13)</p><p>Set NewMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "RM6(&amp;R)", openMacro)</p><p>前提是 C:/Program Files/RM6/RM6-Project.dvb&nbsp; 已经加载到CAD中。</p>

fantasyfly 发表于 2007-9-29 13:58:00

问题已解决,非常感谢各位朋友的悉心指教.特别是ALIN和烟雨江南的指导.谢谢.

yefeiwolaile 发表于 2007-10-20 11:32:00

还在研究中，学习学习再学习

yefeiwolaile 发表于 2007-10-21 13:32:00

本帖最后由 作者 于 2007-10-21 13:44:22 编辑 <br /><br /> <p>Chr(3) &amp; Chr(3)代表什么意思？</p><p></p><p>已查到</p><p><font color="#ff0000">二进制 十进制 十六进制 缩写 解释 <br/>0000 0000 0 00 NUL 空字符(Null) <br/>0000 0001 1 01 SOH 标题开始 <br/>0000 0010 2 02 STX 正文开始 <br/>0000 0011 3 03 ETX 正文结束</font></p>

laoxie_198 发表于 2007-10-22 23:28:00

<p>先写这样的lisp程序</p><p></p><p>(vl-load-com)<br/>(vl-vbaload(findfile "拍卖地块加点.dvb"))<br/>(defun c:pmjd()<br/>&nbsp;&nbsp; (vl-vbarun "jd")<br/>&nbsp;&nbsp; (princ)<br/>)</p><p></p><p>再像在lisp中添加菜单一样添加就行了。</p><p></p><p>***POP9<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [实用程序]<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [从网络数据库下载数据]^C^C(load "sjxzjm")^P xz <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [将数据上传到网络数据库]^C^C(load "sj")^P sc <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [查看实体代码]^C^C(load "ck")^P ck <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [提取金图坐标]^C^C(load "jtl")^P jtl <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [改变字高]^C^C(load "chzg")^P chzg <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [-&gt;宗地处理]<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [绘制宗地图框横A4]^C^C(load "ha4")^P zdt <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [绘制宗地图框竖A4]^C^C(load "sa4")^P szdt <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [绘制用地略图框]^C^C(load "ltsa4")^P syt <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [宗地注记]^C^C(load "zdcl1212")^P zdcl22 <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [&lt;-批量生成宗地图]^C^C(load "zdt1108")^P zdt <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [删除指定图元]^C^C(load "csc")^P sc <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [注计坐标]^C^C(load "zjzb")^P zjzb <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [批量打印宗地图]^C^C(load "pd")^P pd <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [调整面积]^C^C(load "mjtz1")^P mjtz0 <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [-&gt;勘测定界]<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [面积统计]^C^C(load "kcdj1127")^P kcdj <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [面积表生成]^C^C(load "tdcsc")^P tdcsc <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [报告生成]^C^C(load "bgsc")^P bgsc <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [生成坐标册excel]^C^C(load "zbcsc")^P zbcsc <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [&lt;-生成坐标册cad]^C^C(load "zbc")^P (zbc) <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [标注面积]^C^C(load "mj1")^P mj <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [-&gt;坐标转换]<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [北京－苏州]^C^C(load "54sz1")^P zh <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [苏州－北京]^C^C(load "sz54")^P sz54 <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [&lt;-自由转换]^C^C(load "zbzh0518")^P zbzh <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [展&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 点]^C^C(load "pszd")^P zd <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [求&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 和]^C^C(load "pjsg")^P pjz <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [圆弧取点画线]^C^C(load "yh")^P yh <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [拍卖地块加点]^C^C(load "pmjd")^P pmjd </p>

yefeiwolaile 发表于 2007-10-24 22:42:00

<strong><font face="Verdana" color="#61b713">烟雨.江南&nbsp; 总算明白你的意思了！感谢中！</font></strong>

dxhy 发表于 2007-10-28 11:50:00

<p>15楼的兄弟</p><p>“再像在lisp中添加菜单一样添加就行了。”</p><p>这句话是什么意思？怎么弄？</p>

jhkdyhl1 发表于 2013-4-10 12:19:38

学习中         
页: 1 [2]
查看完整版本: 在菜单中好何运行VBA程序?