vba程式中用過sendcommand後就無法重復vba命令

yuangw1234

假如我做了一个vba程式:这个程式对应的命令是 ff

问题：vba程式中有这样一句画矩形程式Cmd = "rectang" & vbCr & 2.0 & "," & 3.0 & vbCr & 4.0& "," & 8.0 & vbCr
ThisDrawing.SendCommand Cmd
现在想用回车键重復命令 ff 发现不行，其重復的是程式中的画矩形,而不是ff，请问在vba中要写什么程式可以重復我的ff命令

wyj7485

我也有这个困惑,好象不能解决啊

chman

一样的困惑啊

lazybug

弱弱的问一下

VBA定义CAD命令是怎样实现的?

用Lisp是(defun c:ff() ……)

然后回车还是执行的ff

wyj7485

该问题不知道能否解决?

chman

lazybug发表于2006-8-17 17:37:00 弱弱的问一下 VBA定义CAD命令是怎样实现的? 用Lisp是(defun c:ff() ……) 然后回车还是执行的ff

参考这个：

(defun c:kk()                ;;;;;;;;kk为你自定义的快捷命令                         
    (setvar "cmdecho" 0)      ;;;;; 这一行偶也不知道是啥意思，照搬
    (command "-vbarun" "e:/ff.dvb!ThisDrawing.ff") ;;;;;;此处注意路径要用 /

;;;;;;;; ff是你的文件名和工程名（就是sub后面的）
    (setvar "cmdecho" 1)      ;;;;; 这一行偶也不知道是啥意思，照搬
(princ)
)

将上面的几行改好后，添加到:\Program Files\AutoCAD 2005\Support\acad2005doc.lsp

最后两行前。

再不清楚，查看站内帮助吧

;   后面的内容是注释，程序会自动屏蔽

yuangw1234

6楼的好象有点答非所问，楼主是要问用VBA写出的程式在回车上的问题

问题是：假如把VBA写的程式做成命令OD,VBA程式中最后一行有如下语句

Cmd = "rectang" & vbCr & 2.0 & "," & 3.0 & vbCr & 4.0& "," & 8.0 & vbCr
ThisDrawing.SendCommand Cmd
第一次输入OD后可以正常使用，按道理来说回车键应该是再次执行OD，可以发现Autocad的命令行却是出现 rectang 命令

yuangw1234

期待高手出现，希望版主能露面帮忙