[求助]用lisp调用VBA命令

wycl8

用lisp调用VBA命令，并不在CAD中显示Macro name:这行，

Lisp能不能办到呀！

即虽为VBA，就像LISP编的命令一样，不出现宏的字样。

请各位指教！先谢谢了！

王咣生

(setq ce (getvar "CMDECHO"))

(setvar "CMDECHO" 0)

;...调用宏

(setvar "CMDECHO" ce)

(princ)

qtds3386

看了，非常好，真的很感谢啊

雪山飞狐_lzh

(vla-runmacro
         (vlax-get-acad-object)
         宏名
    )

qtds3386

(defun c:pmfh()
   (setq ce (getvar "CMDECHO"))
   (setvar "CMDECHO" 0)
   (command "_-vbarun" "dytzh")
   (setvar "CMDECHO" ce)
(princ)
);程序结束

;这样写可以，效果很好

(defun c:pmfh()
   (vla-runmacro
      (vlax-get-acad-object)
      dytzh
   )
(princ)
);程序结束

;这样写出错(no function definition: VLAX-GET-ACAD-OBJECT)

yshf

改为如下：

(defun c:pmfh()

   (vl-load-com)   
   (vla-runmacro
      (vlax-get-acad-object)
      dytzh
   )
(princ)
);程序结束