[LISP函数]：用lsp带参数调用vb子函数!请测试!

fsxm

呵呵道理很简单但不知道为什么用这个方法的人很少!
无意中发现了就玩一玩!如果觉的有用请帮忙支持一下!
在附件中有程序&测试文件!
如:
调用vb中最简单的msgbox:
(fs-vbasubrun2
  '(msgbox "试试看看行不?" , 32 , "fsxm-vbasubrun测试")
)
调用f3来做捕捉开关
(fs-vbasubrun2 '(sendkeys "{F3}"))
调用vba的对话框userform1 (请自己先做好userform1)
(fs-vbasubrun "userform1.show")
等等!~~
自己用用就知道了~!
目前只能调用vb子函数,还不能得到vb子函数的返回值~
如调用成功返回T不成功返回nil~
版主如果看我可怜就加点分啦!

lidejun_55

不能下载

雨箭风刀

早讨论过了，搜索一下aeo，lzh的帖子
http://www.xdcad.net/forum/showt ... y=&pagenumber=2

[php]
1.

(setq vbf1 '(msgbox "切换正交?" , 33 , "vbasubrun测试")
      vbf2 '(sendkeys "{F8}")
)
(vla-eval (vlax-get-acad-object) (apply 'strcat (mapcar 'vl-prin1-to-string vbf1)))
(vla-eval (vlax-get-acad-object) (apply 'strcat (mapcar 'vl-prin1-to-string vbf2)))


(defun tt2 (vbf)
  (vla-eval (vlax-get-acad-object)
            (STRCAT "thisdrawing.setvariable \"USERI1\" , CINT ("
            (vl-prin1-to-string (cons (car vbf)(list(cdr vbf))))
            ")"
            ))
  (getvar "USERI1")
)
(setq b (tt2 vbf1)) -> 1
2.
(defun tt3 (vbf / a)
  (setq a (vla-GetInterfaceObject (vlax-get-acad-object) "ScriptControl"))
  (vlax-put-property a "language" "vbs")
  (vla-eval a (vl-prin1-to-string (cons (car vbf)(list(cdr vbf)))))
)

命令: (setq a (tt3 vbf1))
1
命令: !a
1
命令: (setq a (tt3 vbf2))
2
命令: !a
2[/php]

fsxm

的确是这样的~呵呵~老大们走前头了~我以前没看到所以又发了个一样的东东出笑话了~

GTJ116600

呵呵，飞诗的lsp调用VB