在菜单中好何运行VBA程序?

烟雨.江南

RM6Select 是你在VBA中定义的一个SUB对吧？

不用LISP，直接用下面的语句应该就可以了。（偶电脑上的CAD被和谐了，没办法测试。记得应该是这样没错。）

openMacro = Chr(3) & Chr(3) & "-VBARUN RM6Select" & Chr(13)

Set NewMenuItem = NewMenu.AddMenuItem(NewMenu.Count + 1, "RM6(&R)", openMacro)

前提是 C:/Program Files/RM6/RM6-Project.dvb  已经加载到CAD中。

fantasyfly

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

yefeiwolaile

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

yefeiwolaile

Chr(3) & Chr(3)代表什么意思？

已查到

二进制 十进制 十六进制 缩写 解释
0000 0000 0 00 NUL 空字符(Null)
0000 0001 1 01 SOH 标题开始
0000 0010 2 02 STX 正文开始
0000 0011 3 03 ETX 正文结束

laoxie_198

先写这样的lisp程序

(vl-load-com)
(vl-vbaload(findfile "拍卖地块加点.dvb"))
(defun c:pmjd()
   (vl-vbarun "jd")
   (princ)
)

再像在lisp中添加菜单一样添加就行了。

***POP9
               [实用程序]
               [从网络数据库下载数据]^C^C(load "sjxzjm")^P xz
               [将数据上传到网络数据库]^C^C(load "sj")^P sc
               [查看实体代码]^C^C(load "ck")^P ck
               [提取金图坐标]^C^C(load "jtl")^P jtl
               [改变字高]^C^C(load "chzg")^P chzg
               [->宗地处理]
                 [绘制宗地图框横A4]^C^C(load "ha4")^P zdt
                 [绘制宗地图框竖A4]^C^C(load "sa4")^P szdt
                 [绘制用地略图框]^C^C(load "ltsa4")^P syt
                 [宗地注记]^C^C(load "zdcl1212")^P zdcl22
                 [<-批量生成宗地图]^C^C(load "zdt1108")^P zdt
               [删除指定图元]^C^C(load "csc")^P sc
               [注计坐标]^C^C(load "zjzb")^P zjzb
               [批量打印宗地图]^C^C(load "pd")^P pd
               [调整面积]^C^C(load "mjtz1")^P mjtz0
               [->勘测定界]
                 [面积统计]^C^C(load "kcdj1127")^P kcdj
                 [面积表生成]^C^C(load "tdcsc")^P tdcsc
                 [报告生成]^C^C(load "bgsc")^P bgsc
                 [生成坐标册excel]^C^C(load "zbcsc")^P zbcsc
                 [<-生成坐标册cad]^C^C(load "zbc")^P (zbc)
               [标注面积]^C^C(load "mj1")^P mj
               [->坐标转换]
                 [北京－苏州]^C^C(load "54sz1")^P zh
                 [苏州－北京]^C^C(load "sz54")^P sz54
                 [<-自由转换]^C^C(load "zbzh0518")^P zbzh
               [展      点]^C^C(load "pszd")^P zd
               [求      和]^C^C(load "pjsg")^P pjz
               [圆弧取点画线]^C^C(load "yh")^P yh
               [拍卖地块加点]^C^C(load "pmjd")^P pmjd

yefeiwolaile

烟雨.江南  总算明白你的意思了！感谢中！

dxhy

15楼的兄弟

“再像在lisp中添加菜单一样添加就行了。”

这句话是什么意思？怎么弄？

jhkdyhl1

学习中