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

yuangw1234 · 发表于 2006-8-15 12:22:00

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

wyj7485 · 发表于 2006-8-15 15:08:00

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

chman · 发表于 2006-8-16 10:39:00

一样的困惑啊

lazybug · 发表于 2006-8-17 17:37:00

弱弱的问一下
VBA定义CAD命令是怎样实现的?
用Lisp是(defun c:ff() ……)
然后回车还是执行的ff

wyj7485 · 发表于 2006-10-9 16:46:00

该问题不知道能否解决?

chman · 发表于 2006-10-9 19:34:00

参考这个：
(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 · 发表于 2010-5-11 17:02:00

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 · 发表于 2010-5-12 09:10:00

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

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

发表回复

精选推荐

浏览过的版块