jxlsp 发表于 2008-10-1 12:36:00

[求助]请帮我把两句LISP代码改为VBA代码

<p>请帮我把下面两句LISP代码改为VBA代码&nbsp;呀,不胜感谢.</p><p>(也就是加载vbmp.dll并运行showbmp.vbmpApp类里的vbmp)</p><p>(setq rndobj (vlax-create-object "showbmp.vbmpApp"))<br/>(vlax-invoke-method rndobj "vbmp" (vla-get-ActiveDocument (vlax-get-acad-object)))</p>

王咣生 发表于 2008-10-6 09:06:00

<p>不知道这样行不行(首先要保证vbmp.dll已经注册了)</p><p>Sub test()<br/>&nbsp;&nbsp;&nbsp; Dim obj As Object<br/>&nbsp;&nbsp;&nbsp; Set obj = CreateObject("showbmp.vbmpApp")<br/>&nbsp;&nbsp;&nbsp; obj.vbmp<br/>End Sub</p>
页: [1]
查看完整版本: [求助]请帮我把两句LISP代码改为VBA代码