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

aicr317

没人回复继续顶

aicr317

在顶

aicr317

在顶

jxlsp

不要再顶了,这个问题现在还没解决,你要启动画面,可到ARX区去下王咣生的ARX,再换成自己的图片.

aicr317

我是想问你怎么作的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

aicr317

你的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);

请问如何修改！！！

jxlsp

因为你的123.DLL里的类没定义没TESE这个模块,这是VB的内容,我也不大懂.VB我只会EXE工程,我哪个例子也是别处下来的,可惜没成功,唉.

aicr317

这个VBMP.DLL不是你作的啊，晕

aicr317

这句什么意思

vlax-invoke-method rndobj "vbmp"

还有DLL中的这句什么意思

function vbmp(AcadApp:IDispatch);

aicr317

我看这个DLL里的图片应该是你做的吧，能说说怎么弄的吗！