[求助]如何设定VBA程序的快捷命令
如下面的阵列程序，如何设定装载及设定快捷命令1)、如在CAD里输入C就是画圆，我能不能设定下列的程序，在CAD里输入AA就是执行下面的程序
2)、如何在VBA中获得鼠标点击的坐标
Sub Ch4_ArrayRectangularExample() ' 创建圆 Dim circleObj As AcadCircle Dim center(0 To 2) As Double Dim radius As Double center(0) = 2#: center(1) = 2#: center(2) = 0# radius = 0.5 Set circleObj = ThisDrawing.ModelSpace. _ AddCircle(center, radius) ZoomAll ' 定义矩形阵列 Dim numberOfRows As Long Dim numberOfColumns As Long Dim numberOfLevels As Long Dim distanceBwtnRows As Double Dim distanceBwtnColumns As Double Dim distanceBwtnLevels As Double numberOfRows = 5 numberOfColumns = 5 numberOfLevels = 2 distanceBwtnRows = 1 distanceBwtnColumns = 1 distanceBwtnLevels = 1 ' 创建对象的阵列 Dim retObj As Variant retObj = circleObj.ArrayRectangular _ (numberOfRows, numberOfColumns, numberOfLevels, _ distanceBwtnRows, distanceBwtnColumns, distanceBwtnLevels) ZoomAllEnd Sub 沙发，顶一下，
为什么没人帮我呀。
API 获得鼠标点击点，不过我也没有试过，听说而已
这个其实很简单：
1、新建TXT文件，输入如下代码：
(defun C:AA()
(setq oce (getvar "cmdecho")) ;存储旧指令响应值
(setvar "cmdecho" 0) ;关闭指令响应
(command "-vbarun" "Ch4_ArrayRectangularExample")
(setvar "cmdecho" oce) ;恢复旧的指令响应值
(princ) ;避开程序最后响应
)
然后将这个TXT文件的后缀修改为.lsp（比如修改为AA.lsp，第2步会用到）
2、将第一步新建的文件复制到../support/文件夹中，并使用记事本打开文件夹下的acad200×.lsp（其中×表示版本，例如acad2006.lsp表示AutoCAD 2006）
在文件末尾加上如下代码：
(load "AA.lsp")
注意：有两种办法运行宏，参考：http://blog.sina.com.cn/s/blog_48ff6e140100bddp.html
完！
没有理我的呀， 打开记事本文件，拷贝下列文本：
;;自动加载VBA程序的函数
(defun S::STARTUP()
(command "_VBALOAD" "bb.dvb")
)
;;创建VBA程序的新命令
(defun C:aa ()
(command "_-vbarun" "Ch4_ArrayRectangularExample")
)
把上面的bb.dvb改为你的dvb文件名即可
把文本另存为acad.lsp(用cacd.txt改为acad.lsp即可) ，拷贝到CAD安装目录,重启CAD即可使用了(注：DVB文件要放在CAD能搜索到的地方，建议就放在CAD安装目录)
修改CAD的简化命令名可以到CAD的安装目录，找到一个Acad.pgp文件。。
这里边记录的就是简化命令。。与命令全名
在lisp中有个函数grread可以获得鼠标的坐标，而在vba中可以创建一个类模块，通过这个类模块取得与lisp的联系，从而可以使用grread函数，获得点坐标
提供可以用理解了谢谢
页:
[1]