[求助]怎么让函数只在第一次打开cad时运行
 

[求助]怎么让函数只在第一次打开cad时运行
www.dimcax.com

没人回复继续顶
d
在顶
d
在顶
d
不要再顶了,这个问题现在还没解决,你要启动画面,可到arx区去下王咣生的arx,再换成自己的图片.
d
我是想问你怎么作的vbmp.dll，然后用
(defun c:test( / rndobj)
(setq rndobj (vlax-create-object "showbmp.vbmpapp"))
(vlax-invoke-method rndobj "vbmp" (vla-get-activedocument (vlax-get-acad-object)))
(princ)
)
来调用的
我也按你的方法作了个123.dll
输入test后返回activex 服务器返回错误: 未知名称: vbmp
d
你的dll是这样的
showbmp;
dispatch _vbmpapp;
guid={d70d494a-388f-4ae3-9040-d50806ad1403};
function queryinterface(riid:^guid; out ppvobj:^^void);
function addref: ui4;
function release: ui4;
function gettypeinfocount(out pctinfo:^uint);
function gettypeinfo(itinfo:uint; lcid:ui4; out pptinfo:^^void);
function getidsofnames(riid:^guid; rgsznames:^^i1; cnames:uint; lcid:ui4; out rgdispid:^i4);
function invoke(dispidmember:i4; riid:^guid; lcid:ui4; wflags:ui2; pdispparams:^dispparams; out pvarresult:^variant; out pexcepinfo:^excepinfo; out puargerr:^uint);
function vbmp(acadapp:idispatch);
class vbmpapp;
guid={bff0745a-8b46-46c5-bbda-227f7887f853};
function queryinterface(riid:^guid; out ppvobj:^^void);
function addref: ui4;
function release: ui4;
function gettypeinfocount(out pctinfo:^uint);
function gettypeinfo(itinfo:uint; lcid:ui4; out pptinfo:^^void);
function getidsofnames(riid:^guid; rgsznames:^^i1; cnames:uint; lcid:ui4; out rgdispid:^i4);
function invoke(dispidmember:i4; riid:^guid; lcid:ui4; wflags:ui2; pdispparams:^dispparams; out pvarresult:^variant; out pexcepinfo:^excepinfo; out puargerr:^uint);
function vbmp(acadapp:idispatch);
我的是
showbmp;
dispatch _vbmpapp;
guid={7afb3cae-6a7d-4280-9512-828ff5c8cc04};
function queryinterface(riid:^guid; out ppvobj:^^void);
function addref: ui4;
function release: ui4;
function gettypeinfocount(out pctinfo:^uint);
function gettypeinfo(itinfo:uint; lcid:ui4; out pptinfo:^^void);
function getidsofnames(riid:^guid; rgsznames:^^i1; cnames:uint; lcid:ui4; out rgdispid:^i4);
function invoke(dispidmember:i4; riid:^guid; lcid:ui4; wflags:ui2; pdispparams:^dispparams; out pvarresult:^variant; out pexcepinfo:^excepinfo; out puargerr:^uint);
class vbmpapp;
guid={c19dc298-ce68-431e-9302-7494f065acb7};
function queryinterface(riid:^guid; out ppvobj:^^void);
function addref: ui4;
function release: ui4;
function gettypeinfocount(out pctinfo:^uint);
function gettypeinfo(itinfo:uint; lcid:ui4; out pptinfo:^^void);
function getidsofnames(riid:^guid; rgsznames:^^i1; cnames:uint; lcid:ui4; out rgdispid:^i4);
function invoke(dispidmember:i4; riid:^guid; lcid:ui4; wflags:ui2; pdispparams:^dispparams; out pvarresult:^variant; out pexcepinfo:^excepinfo; out puargerr:^uint);
区别：少了function vbmp(acadapp:idispatch);
请问如何修改！！！