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

68301367 · 发表于 2008-11-10 10:42:00

如下面的阵列程序，如何设定装载及设定快捷命令
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

68301367 · 发表于 2008-11-10 13:44:00

沙发，顶一下，
为什么没人帮我呀。

jsf1117 · 发表于 2008-11-10 19:28:00

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

robbin840311 · 发表于 2008-11-10 19:46:00

这个其实很简单：
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 · 发表于 2009-3-12 16:51:00

没有理我的呀，

nhy12345678 · 发表于 2009-3-12 17:53:00

打开记事本文件，拷贝下列文本：
;;自动加载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安装目录)