vba程式中用過sendcommand後就無法重復vba命令
假如我做了一个vba程式:这个程式对应的命令是 ff问题：vba程式中有这样一句画矩形程式Cmd = "rectang" & vbCr & 2.0 & "," & 3.0 & vbCr & 4.0& "," & 8.0 & vbCr
ThisDrawing.SendCommand Cmd
现在想用回车键重復命令 ff 发现不行，其重復的是程式中的画矩形,而不是ff，请问在vba中要写什么程式可以重復我的ff命令
我也有这个困惑,好象不能解决啊 一样的困惑啊
弱弱的问一下
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
最后两行前。
再不清楚，查看站内帮助吧
; 后面的内容是注释，程序会自动屏蔽
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 命令
期待高手出现，希望版主能露面帮忙
页:
[1]