[求助]如何设定VBA程序的快捷命令

68301367

如下面的阵列程序，如何设定装载及设定快捷命令

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)

    ZoomAll

End Sub

68301367

沙发，顶一下，

为什么没人帮我呀。

jsf1117

API 获得鼠标点击点，不过我也没有试过，听说而已

robbin840311

这个其实很简单：

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

完！

68301367

没有理我的呀，

nhy12345678

打开记事本文件，拷贝下列文本：

;;自动加载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安装目录)

gdzhou

修改CAD的简化命令名可以到CAD的安装目录，找到一个Acad.pgp文件。。

这里边记录的就是简化命令。。与命令全名

Hawking

在lisp中有个函数grread可以获得鼠标的坐标，而在vba中可以创建一个类模块，通过这个类模块取得与lisp的联系，从而可以使用grread函数，获得点坐标

crazylsp

Dim retObj As Variant    retObj = circleObj.ArrayRectangular _        (numberOfRows, numberOfColumns, numberOfLevels, ...

提供  可以用理解了谢谢